アプリケーションオブジェクト取得 - SolidWorks API @ wiki

アプリケーションオブジェクト取得

• マクロから取得

Sub GetApplication()
    Dim objApp As SldWorks.SldWorks
    Set objApp = Application.SldWorks
End Sub
 

• 外部プログラムから取得

Sub GetApplicationOutSide()
    Dim objApp As SldWorks.SldWorks
    '新規の場合
    Set objApp = CreateObject("SldWorks.Application")
    '既存の場合
    Set objApp = GetObject("", "SldWorks.Application")
End Sub
 

戻る

---

アプリケーション オブジェクト取得