DXF çarşaflarını çıkarmak için bilimsel kural (parametre Kalınlık)

[alde67]

Buongiorno bir tutti, uso mucit 2024 pro.
estrarre i dxf delle lamiere için Nikola kullanıyor. Funziona bene ma mi piacerebbe che nel nome del file ci sia lo spesore della lamiera.
qualcuno che riesca ad implementarla?
grazie!


“Özel belgeyi bir montaj dosyası olarak tanımlayın
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = sol (oasmdoc.displayname, len(oasmdoc.displayname) -4)
Aktif belgenin bir montaj dosyası olduğunu kontrol edin
Eğer buapplication.activedocument.documenttype <> kassemblydocumentobject o zaman sonra
Mesajbox.show ("Lütfen bu kuralı toplantı dosyasından çalıştırın.", "ilogic")
çıkış alt alt alt
Sonunda, eğer sona erirse
"Kullanıcı girişi
Rusure = messagebox.show ( _
“Bu, levha metali olan tüm asembly bileşenleri için bir dxf dosyası oluşturacak.” _
Ve vlf & "Bu kural, bölüm dosyasının kurtarıldığını bekliyor." _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için dxf oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıktı dxfs ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Opath = budoc.path
Odatamedium = buapplication.transientobjects.createdatamedium
Ocontext = buapplication.transientobjects.createtranslationcontext
Ocontext.type = iomechanismenum.kfilebrowseiomechanism
Ooptions = buapplication.transientobjects.createnamevaluemapp
"get dxf hedef klasör yolu
ofolder = opath & "\" & oasmname & " dxf dosyaları"
“Dxf klasörü için kontrol edin ve mevcut değilse onu yaratın
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse
"- - - - - - - - - - - -
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referanslı modeller için çizim dosyaları çalıştırın
“Bu, modelin kurtarıldığını bekliyor
Her orefdoc için orefdocs
iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
‘Bu modelin kurtarıldığını kontrol edin’
Eğer (system.io.file.exists (iptpathname) sonra
dim odrawdoc as partdocument
Odrawdoc = buapplication.documents.open(iptpathname, true)
ofilename = left(orefdoc.displayname, len (veyaefdoc.displayname)
Deneyin
"Dxf hedef dosya adı

Deneyin
Özel Adı =iproperties.value(ofilename, "custom", "pf_prt_znr")
yakalama yakalama yakalama
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht variert_znr nicht variert_znr
Sonunda deneyin

Odatamedium.filename = ofolder & "\" & customname & " & ofilename & ".dxf"

dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odrawdoc.componentdefinition
Eğer ocompdef.hasflatpattern = false o zaman
Ocompdef.unfold
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Ocompdef.flatpattern.edit
Sonunda, eğer sona erirse
dim sout as string
sout = "flat pattern dxf?acadvers=2004&outer Profilça=iv_outer_ Profil"
Ocompdef.dataio.writedatatofile ( sout, odatamedium.filename)
"Sadece işlerini kontrol etmek için
'i=messagebox.show(odatamedium.filename, "title",messageboxbuttons.okcancel)
“Katılım kutusu.show(i,”title”,messageboxbuttons.ok)
"If i=2 sonra
‘exit sub
"Eğer
Ocompdef.flatpattern.exitedit
yakalama yakalama yakalama
Sonunda deneyin
Odrawdoc.close
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

 

[Peppe]

https://www.cad3d.it/forum1/discuss...idw-to-pdf-dxf.42618/sayfa-5 #post-4905949494

 

[Cast16]

Buongiorno bir tutti, uso mucit 2024 pro.
estrarre i dxf delle lamiere için Nikola kullanıyor. Funziona bene ma mi piacerebbe che nel nome del file ci sia lo spesore della lamiera.
qualcuno che riesca ad implementarla?
grazie!


“Özel belgeyi bir montaj dosyası olarak tanımlayın
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = sol (oasmdoc.displayname, len(oasmdoc.displayname) -4)
Aktif belgenin bir montaj dosyası olduğunu kontrol edin
Eğer buapplication.activedocument.documenttype <> kassemblydocumentobject o zaman sonra
Mesajbox.show ("Lütfen bu kuralı toplantı dosyasından çalıştırın.", "ilogic")
çıkış alt alt alt
Sonunda, eğer sona erirse
"Kullanıcı girişi
Rusure = messagebox.show ( _
“Bu, levha metali olan tüm asembly bileşenleri için bir dxf dosyası oluşturacak.” _
Ve vlf & "Bu kural, bölüm dosyasının kurtarıldığını bekliyor." _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için dxf oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıktı dxfs ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Opath = budoc.path
Odatamedium = buapplication.transientobjects.createdatamedium
Ocontext = buapplication.transientobjects.createtranslationcontext
Ocontext.type = iomechanismenum.kfilebrowseiomechanism
Ooptions = buapplication.transientobjects.createnamevaluemapp
"get dxf hedef klasör yolu
ofolder = opath & "\" & oasmname & " dxf dosyaları"
“Dxf klasörü için kontrol edin ve mevcut değilse onu yaratın
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse
"- - - - - - - - - - - -
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referanslı modeller için çizim dosyaları çalıştırın
“Bu, modelin kurtarıldığını bekliyor
Her orefdoc için orefdocs
iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
‘Bu modelin kurtarıldığını kontrol edin’
Eğer (system.io.file.exists (iptpathname) sonra
dim odrawdoc as partdocument
Odrawdoc = buapplication.documents.open(iptpathname, true)
ofilename = left(orefdoc.displayname, len (veyaefdoc.displayname)
Deneyin
"Dxf hedef dosya adı

Deneyin
Özel Adı =iproperties.value(ofilename, "custom", "pf_prt_znr")
yakalama yakalama yakalama
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht variert_znr nicht variert_znr
Sonunda deneyin

Odatamedium.filename = ofolder & "\" & customname & " & ofilename & ".dxf"

dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odrawdoc.componentdefinition
Eğer ocompdef.hasflatpattern = false o zaman
Ocompdef.unfold
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Ocompdef.flatpattern.edit
Sonunda, eğer sona erirse
dim sout as string
sout = "flat pattern dxf?acadvers=2004&outer Profilça=iv_outer_ Profil"
Ocompdef.dataio.writedatatofile ( sout, odatamedium.filename)
"Sadece işlerini kontrol etmek için
'i=messagebox.show(odatamedium.filename, "title",messageboxbuttons.okcancel)
“Katılım kutusu.show(i,”title”,messageboxbuttons.ok)
"If i=2 sonra
‘exit sub
"Eğer
Ocompdef.flatpattern.exitedit
yakalama yakalama yakalama
Sonunda deneyin
Odrawdoc.close
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

“Özel belgeyi bir montaj dosyası olarak tanımlayın
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = sol (oasmdoc.displayname, len(oasmdoc.displayname) -4)
Aktif belgenin bir montaj dosyası olduğunu kontrol edin
Eğer buapplication.activedocument.documenttype <> kassemblydocumentobject o zaman sonra
Mesajbox.show ("Lütfen bu kuralı toplantı dosyasından çalıştırın.", "ilogic")
çıkış alt alt alt
Sonunda, eğer sona erirse
"Kullanıcı girişi
Rusure = messagebox.show ( _
“Bu, levha metali olan tüm asembly bileşenleri için bir dxf dosyası oluşturacak.” _
Ve vlf & "Bu kural, bölüm dosyasının kurtarıldığını bekliyor." _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için dxf oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıktı dxfs ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Opath = budoc.path
Odatamedium = buapplication.transientobjects.createdatamedium
Ocontext = buapplication.transientobjects.createtranslationcontext
Ocontext.type = iomechanismenum.kfilebrowseiomechanism
Ooptions = buapplication.transientobjects.createnamevaluemapp
"get dxf hedef klasör yolu
ofolder = opath & "\" & oasmname & " dxf dosyaları"
“Dxf klasörü için kontrol edin ve mevcut değilse onu yaratın
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse
"- - - - - - - - - - - -
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referanslı modeller için çizim dosyaları çalıştırın
“Bu, modelin kurtarıldığını bekliyor
Her orefdoc için orefdocs
Eğer orefdoc.subtype = "{9c464203-9bae-11d3-8bad60b0ce6bb4}

iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
‘Bu modelin kurtarıldığını kontrol edin’
Eğer (system.io.file.exists (iptpathname) sonra
dim odrawdoc as partdocument
Odrawdoc = buapplication.documents.open(iptpathname, true)
dim othickness as object = orefdoc.componentdefinition.thickness.value*1010
ofilename = left(orefdoc.displayname, len (veyaefdoc.displayname)
Deneyin
"Dxf hedef dosya adı

Deneyin
Özel Adı =iproperties.value(ofilename, "custom", "pf_prt_znr")
yakalama yakalama yakalama
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht variert_znr nicht variert_znr
Sonunda deneyin

Odatamedium.filename = ofolder & "\" & customname & " & ofilename & " - "& othickness &"mm"&"dxf"

dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odrawdoc.componentdefinition
Eğer ocompdef.hasflatpattern = false o zaman
Ocompdef.unfold
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Ocompdef.flatpattern.edit
Sonunda, eğer sona erirse
dim sout as string
sout = "flat pattern dxf?acadvers=2004&outer Profilça=iv_outer_ Profil"
Ocompdef.dataio.writedatatofile ( sout, odatamedium.filename)
"Sadece işlerini kontrol etmek için
'i=messagebox.show(odatamedium.filename, "title",messageboxbuttons.okcancel)
“Katılım kutusu.show(i,”title”,messageboxbuttons.ok)
"If i=2 sonra
‘exit sub
"Eğer
Ocompdef.flatpattern.exitedit
yakalama yakalama yakalama
Sonunda deneyin
Odrawdoc.close
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse


Sonunda, eğer sona erirse

Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

 

[alde67]

“Özel belgeyi bir montaj dosyası olarak tanımlayın
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = sol (oasmdoc.displayname, len(oasmdoc.displayname) -4)
Aktif belgenin bir montaj dosyası olduğunu kontrol edin
Eğer buapplication.activedocument.documenttype <> kassemblydocumentobject o zaman sonra
Mesajbox.show ("Lütfen bu kuralı toplantı dosyasından çalıştırın.", "ilogic")
çıkış alt alt alt
Sonunda, eğer sona erirse
"Kullanıcı girişi
Rusure = messagebox.show ( _
“Bu, levha metali olan tüm asembly bileşenleri için bir dxf dosyası oluşturacak.” _
Ve vlf & "Bu kural, bölüm dosyasının kurtarıldığını bekliyor." _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için dxf oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıktı dxfs ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse
Opath = budoc.path
Odatamedium = buapplication.transientobjects.createdatamedium
Ocontext = buapplication.transientobjects.createtranslationcontext
Ocontext.type = iomechanismenum.kfilebrowseiomechanism
Ooptions = buapplication.transientobjects.createnamevaluemapp
"get dxf hedef klasör yolu
ofolder = opath & "\" & oasmname & " dxf dosyaları"
“Dxf klasörü için kontrol edin ve mevcut değilse onu yaratın
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse
"- - - - - - - - - - - -
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referanslı modeller için çizim dosyaları çalıştırın
“Bu, modelin kurtarıldığını bekliyor
Her orefdoc için orefdocs
Eğer orefdoc.subtype = "{9c464203-9bae-11d3-8bad60b0ce6bb4}

iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
‘Bu modelin kurtarıldığını kontrol edin’
Eğer (system.io.file.exists (iptpathname) sonra
dim odrawdoc as partdocument
Odrawdoc = buapplication.documents.open(iptpathname, true)
dim othickness as object = orefdoc.componentdefinition.thickness.value*1010
ofilename = left(orefdoc.displayname, len (veyaefdoc.displayname)
Deneyin
"Dxf hedef dosya adı

Deneyin
Özel Adı =iproperties.value(ofilename, "custom", "pf_prt_znr")
yakalama yakalama yakalama
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht variert_znr nicht variert_znr
Sonunda deneyin

Odatamedium.filename = ofolder & "\" & customname & " & ofilename & " - "& othickness &"mm"&"dxf"

dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odrawdoc.componentdefinition
Eğer ocompdef.hasflatpattern = false o zaman
Ocompdef.unfold
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Ocompdef.flatpattern.edit
Sonunda, eğer sona erirse
dim sout as string
sout = "flat pattern dxf?acadvers=2004&outer Profilça=iv_outer_ Profil"
Ocompdef.dataio.writedatatofile ( sout, odatamedium.filename)
"Sadece işlerini kontrol etmek için
'i=messagebox.show(odatamedium.filename, "title",messageboxbuttons.okcancel)
“Katılım kutusu.show(i,”title”,messageboxbuttons.ok)
"If i=2 sonra
‘exit sub
"Eğer
Ocompdef.flatpattern.exitedit
yakalama yakalama yakalama
Sonunda deneyin
Odrawdoc.close
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Sonunda, eğer sona erirse


Sonunda, eğer sona erirse

Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

Grazie !!!

 

[alde67]

https://www.cad3d.it/forum1/discuss...idw-to-pdf-dxf.42618/sayfa-5 #post-4905949494

Hey, sac metal dxf ihracatçısı anlamına mı geliyorsunuz?
Güzel, ama 15 günlük bir versiyon.