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