AUSFUHR UNFOLD DXF aus IDW mit TEIL NUMBER INSTEAD VON FILE NAME

[John2020]

Hi, Sir.

vor kurzem habe ich eine ilogic aus autodesk forum kopieren, und ich möchte das entfaltete Muster in dxf mit Teilnummer anstelle von Dateinamen in ipt Dateien exportieren. zu schätzen, wenn Sie mir helfen könnten, den Code wie unten zu bearbeiten.


meine Probe erwartet: https://mega.nz/file/xf0qxloa#v5iqzzbitihin-cimbiurdeexakihiyea3b3q1hdt08dim odoc als Dokument = thisapplication. activedocument 'get active document
wenn odoc.documenttype <> documenttypeenum.kdrawingdocumentobject dann Ausstieg sub 'Zeichnungen nur
für jedes Omodel als Dokument in odoc.referenceddocuments' Schleife durch alle referenzierten Dokumente
Nur Blechteile
wenn omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}" dann weiter
dim osmcd als Blechkomponentendefinition = omodel.componentdefinition
wenn nicht osmcd. hasflatpattern dann 'wenn es keinen flachen Teig hat, erstellen Sie einen (entfalten Sie das Modell)
osmcd.unfold ()
osmcd.flatpattern.exitedit ()
Ende
dim fname als string = omodel. fullfilename 'get the path and name des Dokuments
fname = microsoft.visualbasic.left (fname, len (fname) - 4) & ".dxf"
dim sout als string = "flat pattern dxf? acadversion = r12 & rebasegeometry = true & äußereprofilelayer = 0 & äußereprofilecolor = 0; 0; 0; 0 & innere Profilelayer = 0 & innere Profilelayercolor = 0; 0; 0; 0 & unsichtbare Schichten = iv_arc_center; iv_tangent; iv_roll; tool_tangent; iv_altrep_back; iv_ "'Ausfuhreinstellungen
Versuch
osmcd.dataio.writedatatofile (sout, fname) 'export
Fangmenge
Ende Versuch
Nächste

 

[Andrea Scarnecchia]

Lieber Sir,
i modifiziert die ilogische Regel ti erhalten die Teilnummer und zu verwenden, dass anstelle des Dateinamens für den dxf-Namen (i kommentierte eine Zeile und der Teil, den ich hinzugefügt habe, zwischen dem "-----------"):

dim odoc als Dokument = thisapplication. activedocument 'get active document
wenn odoc.documenttype <> documenttypeenum.kdrawingdocumentobject dann Ausstieg sub 'Zeichnungen nur
für jedes Omodel als Dokument in odoc.referenceddocuments' Schleife durch alle referenzierten Dokumente
Nur Blechteile
wenn omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}" dann weiter
dim osmcd als Blechkomponentendefinition = omodel.componentdefinition
wenn nicht osmcd. hasflatpattern dann 'wenn es keinen flachen Teig hat, erstellen Sie einen (entfalten Sie das Modell)
osmcd.unfold ()
osmcd.flatpattern.exitedit ()
Ende
dim fname als string = omodel. fullfilename 'get the path and name des Dokuments
'fname = microsoft.visualbasic.left (fname, len (fname) - 4) & ".dxf"
...---------------------------------------------------------------------------------------------
dim opartnumber as string = omodel.propertysets.item("Erfinder zusammenfassende Informationen").item("Teilnummer"). die Teilnummer des 3d-Dokuments
fname = opartnumber & ".dxf" 'die Teilnummer anstelle des Dateinamens der Namensvariable zuordnen
...---------------------------------------------------------------------------------------------
dim sout als string = "flat pattern dxf? acadversion = r12 & rebasegeometry = true & äußereprofilelayer = 0 & äußereprofilecolor = 0; 0; 0; 0 & innere Profilelayer = 0 & innere Profilelayercolor = 0; 0; 0; 0 & unsichtbare Schichten = iv_arc_center; iv_tangent; iv_roll; tool_tangent; iv_altrep_back; iv_ "'Ausfuhreinstellungen
Versuch
osmcd.dataio.writedatatofile (sout, fname) 'export
Fangmenge
Ende Versuch
Nächste

 

[John2020]

[QUOTE = "Andrea Scarnecchia, post: 460773, member: 89736"]Lieber Sir,
i modifizierte die ilogische Regel ti erhalten die Teilnummer und zu verwenden, dass anstelle des Dateinamens für den dxf-Namen (i kommentierte eine Zeile und der Teil, den ich hinzugefügt habe, zwischen dem "--------- - "):

dim odoc als Dokument = thisapplication. activedocument 'get active document
wenn odoc.documenttype <> documenttypeenum.kdrawingdocumentobject dann Ausstieg sub 'Zeichnungen nur
für jedes Omodel als Dokument in odoc.referenceddocuments' Schleife durch alle referenzierten Dokumente
Nur Blechteile
wenn omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}" dann weiter
dim osmcd als Blechkomponentendefinition = omodel.componentdefinition
wenn nicht osmcd. hasflatpattern dann 'wenn es keinen flachen Teig hat, erstellen Sie einen (entfalten Sie das Modell)
osmcd.unfold ()
osmcd.flatpattern.exitedit ()
Ende
dim fname als string = omodel. fullfilename 'get the path and name des Dokuments
'fname = microsoft.visualbasic.left (fname, len (fname) - 4) & ".dxf"
-------------------------- --------------------- -------------
dim opartnumber as string = omodel.propertysets.item ("Erfinder zusammenfassende Informationen"). Artikel ("Teilnummer"). die Teilnummer des 3d-Dokuments
fname = opartnumber & ".dxf" 'die Teilnummer anstelle des Dateinamens der Namensvariable zuordnen
-------------------------- --------------------- -------------
dim sout als string = "flat pattern dxf? acadversion = r12 & rebasegeometry = true & äußereprofilelayer = 0 & äußereprofilecolor = 0; 0; 0; 0 & innere Profilelayer = 0 & innere Profilelayercolor = 0; 0; 0; 0 & unsichtbar_coll; iv_arenters; iv_arenters; ivarenters; tool_tangent; iv_altrep_back; iv_
Versuch
osmcd.dataio.writedatatofile (sout, fname) 'export
Fangmenge
Ende Versuch
Nächste[/ QUOTE] [/ QUOTE]

 

[John2020]

liebe mr undrea,

Ich habe den Code versucht, wie Sie angegeben, aber immer noch funktioniert nicht und was ich die Fehlermeldung wie unten erhalten: - Ja.

-----------
fehler in der regel: regel76, in dokument: form support Channel_test.idw

nicht spezifizierter Fehler (Ausnahme von hresult: 0x80004005 (e_fail))

 

[John2020]

[QUOTE = "John2020, post: 460781, member: 90568"]liebe mr undrea,

Ich habe den Code versucht, wie Sie angegeben, aber immer noch funktioniert nicht und was ich die Fehlermeldung wie unten erhalten: - Ja.

--------------------- --------------------- --------------------- - Ja.
fehler in der regel: regel76, in dokument: form support Channel_test.idw

nicht spezifizierter Fehler (Ausnahme von hresult: 0x80004005 (e_fail))[/ QUOTE]liebe Andrea,

Vielen Dank, jetzt wurde meine Frage gelöst, nur ein Minderjähriger auf Omodel-Sets geändert.