Editor オブジェクトの取得

 2016/9/1 (木)    

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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.