Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  DXFOUT - flatpattern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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



Sehen Sie sich das Profil von Martin_0103 an!   Senden Sie eine Private Message an Martin_0103  Schreiben Sie einen Gästebucheintrag für Martin_0103

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz