Re:OLEオートメーションの設定について

ソース抜粋です。

————————————————-
Private Sub Cad_Connect()
‘ CADに接続します(CADが起動されていない場合は起動します)。
cadApplication = New zwDrawCAD.Application

‘ CADが非表示の場合、CADを表示します。
If cadApplication.Visible = False Then
cadApplication.Visible = True
End If

‘ アクティブなドキュメントがない場合、新規作成を行います。
If IsNothing(cadApplication.ActiveDocument) Then
Dim cadDocuments As zwDrawCAD.Documents
cadDocuments = cadApplication.Documents
cadDocuments.Add()

‘ 参照したオブジェクトを解放します。
Marshal.ReleaseComObject(cadDocuments)
End If
End Sub
————————————————–