CAD tip # 13535:

Pro zjištění typu, resp. podtypu dokumentu "Sheet Metal" můžete použít jednu z těchto tří naznačených metod:

If iProperties.Value("Project", "Document SubType Name") = "Sheet Metal" Then
 MsgBox("Je to plech 1")
End If

If ThisApplication.ActiveDocument.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
 MsgBox("Je to plech 2")
End If
	
Dim oPDoc As PartDocument = ThisDoc.Document
If TypeOf oPDoc.ComponentDefinition Is SheetMetalComponentDefinition Then
 MsgBox("Je to plech 3")
End If

Pro ověření přítomnosti děr v aktuálním plechovém dílu pak použijte tento fragment iLogic kódu:

i = 0 
'folded model holes?
For Each oFeature In ThisDoc.Document.ComponentDefinition.Features
 If oFeature.Type = ObjectTypeEnum.kHoleFeatureObject Then
  i = i + 1
 End If	
Next
'flat pattern holes?
For Each oFeature In ThisDoc.Document.ComponentDefinition.FlatPattern.Features
 If oFeature.Type = ObjectTypeEnum.kHoleFeatureObject Then
  i= i + 1
 End If	
Next
If i > 0 Then
 MsgBox("Obsahuje díry")
Else
 MsgBox("NEobsahuje díry")
End If