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}"))