Editor オブジェクトの取得

2016/9/1 (Thu)2017/12/9 (Sat)

Public Sub subGetEditor()
    Dim pUID As New UID
    pUID = "esriEditor.Editor"
     
    Dim pEditor As IEditor
    Set pEditor = Application.FindExtensionByCLSID(pUID)
 
End Sub

URLをコピーしました！