11-19-2018
04:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-19-2018
04:56 AM
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