Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: GeorgK

SyntaxEditor Code Snippet

Dim v_DocumentoPadre As AssemblyDocument = ThisApplication.ActiveDocument
Dim v_GeometriaT As TransientGeometry = ThisApplication.TransientGeometry  
Dim v_DefComEnsamb As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
Dim v_Operacion As PartFeature
Dim v_DocsReferenciados As DocumentsEnumerator = v_DocumentoPadre.AllReferencedDocuments 
Dim v_DocumentoRef As Document 
v_Matriz = v_GeometriaT.CreateMatrix

For Each Ocurrence In v_DefComEnsamb.Occurrences
If Ocurrence.Definition.Document.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
Dim oSMDef As SheetMetalComponentDefinition
Dim REFDOC As PartDocument = Ocurrence.Definition.Document
oSMDef = REFDOC.ComponentDefinition
Dim oSheet As sheet
oApp = ThisApplication
Dim oBendNote As BendNote
Dim oBaseView As DrawingView
Dim oDrawingDoc As DrawingDocument
Try
Dim oFlatPattern As FlatPattern = oSMDef.FlatPattern
Dim oFace As Face = oFlatPattern.TopFace
oDrawingDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "TEMPLATE FULL PATH HERE", True)
oSheet= oDrawingDoc.ActiveSheet
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oBaseViewOptions As NameValueMap
oBaseViewOptions = ThisApplication.TransientObjects.CreateNameValueMap
oBaseViewOptions.Add("SheetMetalFoldedModel", False)
Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry
oBaseView = oSheet.DrawingViews.AddBaseView(REFDOC,oTG.CreatePoint2d(10, 12),1/2,ViewOrientationTypeEnum.kDefaultViewOrientation,DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle,,,oBaseViewOptions)
oBaseView.DisplayBendExtents= True
REFDOC = oBaseView.ReferencedDocumentDescriptor.ReferencedDocument
oFlatPattern = REFDOC.ComponentDefinition.FlatPattern
Dim extension As Edges
extension = oFlatPattern.GetEdgesOfType(
FlatPatternEdgeTypeEnum.kTangentFlatPatternEdge)
Dim ejeabajo As Edges
ejeabajo = oFlatPattern.GetEdgesOfType(
FlatPatternEdgeTypeEnum.kBendDownFlatPatternEdge)
Dim ejearriba As Edges
ejearriba = oFlatPattern.GetEdgesOfType(
FlatPatternEdgeTypeEnum.kBendUpFlatPatternEdge)
If extension.Count=0 Then
'oDrawDoc.Close (True)
v_AnadirA105=v_DocumentoPadre.ComponentDefinition.Occurrences.AddVirtual("A 105 CURVAR",v_Matriz)
End If

'oDrawDoc.Close (True)
Catch
End Try
End If
Next