‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
C++ API
§ACM 2009新增的机械结构功能
§Annotation View – Manipulate Label and Standard
§Util – GetDrawingType
§
§
§
Sub DocumentType()
    Dim acmApp As AcadmApplication
    Set acmApp = Application.GetInterfaceObject("AcadmAuto.AcadmApplication")
   
    Dim acmUtil As McadUtility
    Set acmUtil = acmApp.ActiveDocument.Utility
    
    Dim acmDrawingType As McadDocDrawingType
    acmDrawingType = acmUtil.GetDrawingType(ThisDrawing.Database)
   
    If acmDrawingType = mcAcad Then
        MsgBox "Vanilla AutoCAD"
    ElseIf acmDrawingType = mcAcadM Then
        MsgBox "AutoCAD Mechanical Without Structure"
    ElseIf acmDrawingType = mcAcadMStruct Then
        MsgBox "AutoCAD Mechanical With Structure"
    End If
End Sub
C++ SDK API
acadmapi
mcadapi
AcmSymBB
Amdt_stdimp
McadApi
Amdt_attributes
Structure API
AmgTitle
AmgUtil