‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
§通过AutoCAD Application 对象获得这些接口
Sub AccessLibraries()
    Dim acmApp As AcadmApplication
    Set acmApp = Application.GetInterfaceObject("AcadmAuto.AcadmApplication")
   
    Dim symMgr As McadSymbolBBMgr
    Set symMgr = Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
   
    Dim geApp As GeApplication
    Set geApp = Application.GetInterfaceObject("Ge.Application")
End Sub
COM API