| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: DXFOUT - flatpattern (823 mal gelesen)
|
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003 3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2015
|
erstellt am: 30. Nov. 2015 07:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, gibt es eine Möglichkeit, die Kontur vom DXF-Export als Polylinie zu ändern und gibt es eine andere Möglichkeit, wie im manuellen DXF Out eine DWF zu "verschmelzen"? Diese DWG wird im DXF-Export automatisch eingefügt (hilfreich für Erklärungen). Der untere Code läuft bis auf diese beiden Dinge recht gut. Vielen Dank schon mal und viele Grüße Martin
Code: Sub Main DefaultChoice = True CadlinePathProperty() Cadline() End Sub Sub CadlinePathProperty() Dim FilePATH As String = "FilePATH" Dim FileINDEX As String = "FileINDEX" customPropertySet = ThisDoc.Document.PropertySets.Item _ ("Inventor User Defined Properties") Try prop= customPropertySet.Item(FilePATH) Catch customPropertySet.Add("", FilePATH) End Try customPropertySet = ThisDoc.Document.PropertySets.Item _ ("Inventor User Defined Properties") Try prop= customPropertySet.Item(FileINDEX) Catch customPropertySet.Add("", FileINDEX) End Try If iProperties.Value("Custom", "FilePATH") = "" Then iProperties.Value("Custom", "FilePATH") = "u:\trans\" Else End If Dim partDoc As PartDocument If ThisApplication.ActiveDocument.DocumentType <> kPartDocumentObject Then MessageBox.Show ("Please open a part document", "iLogic") End If 'FilePATH = InputBox("Enter a FilePATH for part file", "iLogic", iProperties.Value("Custom", "FilePATH")) 'iProperties.Value("Custom", "FilePATH") = FilePATH FileINDEX = InputBox("Bitte Änderungs-Index eingeben, z.B. A00", "iLogic", iProperties.Value("Custom", "FileINDEX")) iProperties.Value("Custom", "FileINDEX") = FileINDEX End Sub Public Sub Cadline() Dim oDoc As PartDocument oDoc = ThisApplication.ActiveDocument Dim oCompDef As SheetMetalComponentDefinition oCompDef = oDoc.ComponentDefinition If oCompDef.HasFlatPattern = False Then oCompDef.Unfold Else oCompDef.FlatPattern.Edit End If Dim sOut As String Dim sPATH As String sPATH = iProperties.Value("Custom", "FilePATH") Dim sINDEX As String sINDEX = iProperties.Value("Custom", "FileINDEX") sOut = "FLAT PATTERN DXF?AcadVersion=2000" _ + "&OuterProfileLayer=0" _ + "&IV_FEATURE_PROFILES=" _ + "&IV_INTERIOR_PROFILES=" _ + "&InvisibleLayers=IV_UNCONSUMEND_SKETCHES;IV_ALTREP_BACK;IV_ALTREP_FRONT;IV_ARC_CENTERS;IV_TOOL_CENTER_DOWN;IV_TOOL_CENTER;IV_ARC_CENTERS;IV_TANGENT;IV_BEND;IV_FEATURE_PROFILES_DOW N;IV_BEND_DOWN" _ + "&SplineTolerance Double 0.01" _ + "&MergeProfilesIntoPolyline=TRUE" _ + "&MergeOuterContour=TRUE" _ + "&AUTOCADTEMPLATE=I:\DXF\hinweis_dxfout.dwg" _ + "&MODELGEOMETRYONLY=Yes" Dim sFname As String sFname = sPATH & "\" & ThisDoc.FileName(False) & "-" & sINDEX & ".dxf" MessageBox.Show("DXF SAVED TO: " & sFname ,"DXF Saved", MessageBoxButtons.OK) oCompDef.DataIO.WriteDataToFile( sOut, sFname) oDoc = ThisApplication.ActiveDocument Dim oSMDef As SheetMetalComponentDefinition oSMDef = oDoc.ComponentDefinition oSMDef.FlatPattern.ExitEdit 'This code has been adapted from http://www.cadlinecommunity.co.uk/Blogs/Blog.aspx?ScoId= '4733ef2d-cd48-4bd9-a280-1d88dbbf3556&returnTo=%2fBlogs%2fclintonbrown%2fDefault.aspx '&returnTitle=Clinton+Brown%20Blog End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|