PPT_LOGO_4b
‹#›
Autodesk Confidential Information January 2010
How to recognize a SheetMetal Part ?
Public Sub IsSheetMetalPart()
    Dim doc As PartDocument
    doc = _InvApplication.ActiveDocument
    If (doc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}") Then
        MsgBox("Document is a Sheet Metal Part :)")
    Else
        MsgBox("Document is a regular Part :(")
    End If
End Sub
' Create a new sheet metal document, using the sheet metal template.
Dim oSheetMetalDoc As PartDocument
oSheetMetalDoc = _InvApplication.Documents.Add(DocumentTypeEnum.kPartDocumentObject, _
  _InvApplication.FileManager.GetTemplateFile(_
DocumentTypeEnum.kPartDocumentObject, _
SystemOfMeasureEnum.kDefaultSystemOfMeasure, _
DraftingStandardEnum.kDefault_DraftingStandard, _
"{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}"))