1

Solidworks API および Winforms C# swApp (スタンドアロン) と非常によく似て いますが、アプリケーションでソリューションが機能していないようです。実行する新しい図面を作成するマクロを作成しましたが、2 つのボタンを持つ winform が得られます。1 つのボタンは別のマクロを実行し、もう 1 つのボタンは別のマクロを実行します。ボタン操作がうまくいかないようです。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim swDoc As ModelDoc2 = Nothing
    Dim swPart As PartDoc = Nothing
    Dim swDrawing As DrawingDoc = Nothing
    Dim swAssembly As AssemblyDoc = Nothing
    Dim boolstatus As Boolean = False
    Dim longstatus As Integer = 0
    Dim longwarnings As Integer = 0
    swDoc = CType(swApp.ActiveDoc, ModelDoc2)
    swDoc.ClearSelection2(True)
    Dim skSegment As SketchSegment
    skSegment = CType(swDoc.SketchManager.CreateLine(-0.053838, 0.028482, 0, -0.003395, -0.060241, 0), SketchSegment)
    skSegment = CType(swDoc.SketchManager.CreateLine(-0.003395, -0.060241, 0, 0.012312, 0.028482, 0), SketchSegment)
    skSegment = CType(swDoc.SketchManager.CreateLine(0.012312, 0.028482, 0, 0.09885, -0.060241, 0), SketchSegment)
    swDoc.ClearSelection2(True)

End Sub
Public swApp As SldWorks

swDoc= CType(swApp などの行で null 参照例外が発生し続けます

前もって感謝します

4

1 に答える 1

0 
   Dim swApp As SldWorks
    swApp = Nothing
    Try
        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks)
    Catch ex As Exception
        MsgBox(ex.Message)
        Exit Sub
    End Try
于 2012-07-17T13:27:56.403 に答える