İthalat DWG, iLogic ile birlikte düzenlemeden düz model

[CaesarXXI]

Her şeye yemin ederim,

Biyolojik bir kuralla yardıma ihtiyacım var, uzman değilim ve bu kod net kopyalar yaparak yapılır ve küçük bir sezgiye gidiyorum.

Son sonuç istiyorum, tasarruf ettiğimde, otomatik olarak, belirli bir klasörün içinde düz modeli taşırım (ki bu kuralla oluşturulur) hem de “environment” sayfasındaki dosyayı tasarruf ettiğinde, hem de “environment” kısmındaki komut ile birlikte çalışırım. modifca ( Dosyayı yeniden açmadan).

Sayfa dosyasının içinde 3 kural yarattım, ilk "master" aktive ettikten sonra dosyayı olay tetikledi; bu kural "environment" sayfasında veya birlikte "environment" kısmında olup, sonra dwg ihraç etmek için birleşik kuralı yüklemeli. Muhtemelen her şeyi tek bir kuralla yapabilirsiniz, ancak girişimlerim sırasında bu benim beklentilerime en yakın yoldur.

Her şey iyi çalışır ve ben de bunu çarşafla seveceğim, ama eğer axieme ile değiştirmeye çalışırsam, yeni geometrileri kurtarmaz.

Hata mesajı şu:

master kuralı:

"master"
dim odoc belge olarak = budoc.document
Eğer odoc.documenttype = mucit.documenttypeenum.kpartdocumentobject ve odoc.subtype = "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}
Eğer buapplication türü. Aktifeditobject daha sonra çizilir
Mesajbox.show ("Bir bölüm dosyasında profesyonel bir çizersiniz.", "Kayıt dur".
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
ilogicvb.runrule ("salva_modellopiatto")
Sonunda, eğer sona erirse
“Anarşik dosya
Eğer odoc.documenttype = mucit.documenttypeenum.kassemblydocumentobject O zaman sonra
Eğer odoc.componentdefinition.isiassemblyfactory sonra
Mesajbox.show ("Bu bir iassemblyfactory", "i durduracaktır")
geri dönüş geri dönüş
Odoc.componentdefinition.isiassemblymember sonra
Mesajbox.show ("Bu bir topluluktur", "i will stop")
geri dönüş geri dönüş
Sonunda, eğer sona erirse
Eğer buapplication türü. Aktifeditobject daha sonra çizilir
Mesajbox.show ("Bir montaj dosyasında profesyonel bir çizersiniz.", "Kabloyu durdur"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
ilogicvb.runrule ("salva_modellopiatto_01")
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse

lamiera başına regola:

‘salva_modellopiatto
Rusure = messagebox.show( _
"salva dwg dal modelilo piatto." _
Ve vlf & "premere evet per Continuare." _
Ve vlf & "premere no per abortire." _
And etclf & "attenzione cambio di spesore deve essere gestito a mano", "ilogic - elabora dwg file ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Sonunda, eğer sona erirse
Opath = budoc.path
akım tarzı = sacmetal.getactivestyle()
codice_regola = right(currentstyle, 10)
num_part=iproperties.value(" project", "part number")
codice youo = left(num_part, 3)
"Özel bir la carella di kaderazione per dwggg
ofolder = thisdoc.path & "\" & "laserdwg" & "\" & codice youo & "_" & codice_regolaola
"kontrollü se la carella esiste, oppure la crea
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse

" -youo--- arayışı, la parte lamiera e non in modifica da assieme
dim odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition = hiçbir şey
Eğer odoc.documenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
dim assemdoc as assemblydocument = odoc
'dim odoc = buapplication.documents.open(iptpathname, false)
Ocompdef = assemdoc.componentdefinition.sheetmetalcomponentdefinition.
Diğeri odoc.documenttype = documenttypeenum.kpartdocumentobject O zaman sonra
dim partdoc as partdocument = odoc
Ocompdef = partdoc.componentdefinition.”
Sonunda, eğer sona erirse
‘Denetle piatto olmayan bir model; sunrimenti lo crea
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
" -fine--searcha parte funziona solo per la parte lamiera e non in modifica da assieme

" -youo- solo per lamiera
‘Denetle piatto olmayan bir model; sunrimenti lo crea
'dim odoc as partdocument
"odoc = buapplication.activedocument
'dim ocompdef as pagemetalcomponentdefinition
"ocompdef = odoc.componentdefinition
“Eğer ocompdef.hasflatpattern = false o zaman
"ocompdef.unfold
"else
"ocompdef.flatpattern.edit
"Eğer
" - lamiera başına yalnız

'settaggio dwggg
dim seçenek listesi olarak liste (seçme) = yeni liste (of string)()

seçenek listesi.add("acadvers=2004")
seçenek listesi.add("outer Profiln=0")
seçenek listesi.add("interior profilslayer=0")

dim sout as string
dim spath as string
sout = "flat pattern dwg?acadvers=2004&outer Profilça=iv_interior_ Profiller" _
+ "&invisiblelayers=iv_tangent;iv_feature_ profils_down;iv_arc_centers;iv_bend;iv_bend_down;iv_tool_center_downiv_theure_ Profiller;

Her opt için seçenek listesi
sout = sout & "&" & opt
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

dim sfname as string
sfname = ofolder & "\" & thisdoc.filename(false) & ".dwg"

'esporta di file dwggg
Ocompdef.dataio.writedatatofile ( sout, sfname)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit
Mesajbox.show("dwg salvato in: " & sfname, " lamiera - esportazione completata!",messageboxbuttons.ok)

Birlikte kural:

'salva_modellopiatto_01
Eğer buapplication.activedocument.documenttype <> documenttypeenum.kassemblydocumentobject o zaman sonra
Mesajbox.show("e' un'assieme. (Fa niente, ma la regola viene eseguita; karışıklıkaggio da149nare)", "kontrollo")
çıkış alt alt alt
Sonunda, eğer sona erirse
Opath = budoc.path
akım tarzı = sacmetal.getactivestyle()
codice_regola = right(currentstyle, 10)
num_part=iproperties.value(" project", "part number")
codice youo = left(num_part, 3)
"Özel bir la carella di kaderazione per dwggg
ofolder = thisdoc.path & "\" & "laserdwg" & "\" & codice youo & "_" & codice_regolaola
"kontrollü se la carella esiste, oppure la crea
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse

" -youo--- arayışı, la parte lamiera e non in modifica da assieme
dim odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition = hiçbir şey
Eğer odoc.documenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
dim assemdoc as assemblydocument = odoc
'dim odoc = buapplication.documents.open(iptpathname, false)
Ocompdef = assemdoc.componentdefinition.sheetmetalcomponentdefinition.
Diğeri odoc.documenttype = documenttypeenum.kpartdocumentobject O zaman sonra
dim partdoc as partdocument = odoc
Ocompdef = partdoc.componentdefinition.”
Sonunda, eğer sona erirse
‘Denetle piatto olmayan bir model; sunrimenti lo crea
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
" -fine--searcha parte funziona solo per la parte lamiera e non in modifica da assieme

" -youo- solo per lamiera
‘Denetle piatto olmayan bir model; sunrimenti lo crea
'dim odoc as partdocument
"odoc = buapplication.activedocument
'dim ocompdef as pagemetalcomponentdefinition
"ocompdef = odoc.componentdefinition
“Eğer ocompdef.hasflatpattern = false o zaman
"ocompdef.unfold
"else
"ocompdef.flatpattern.edit
"Eğer
" - lamiera başına yalnız

'settaggio dwggg
dim seçenek listesi olarak liste (seçme) = yeni liste (of string)()

seçenek listesi.add("acadvers=2004")
seçenek listesi.add("outer Profiln=0")
seçenek listesi.add("interior profilslayer=0")

dim sout as string
dim spath as string
sout = "flat pattern dwg?acadvers=2004&outer Profilça=iv_interior_ Profiller" _
+ "&invisiblelayers=iv_tangent;iv_feature_ profils_down;iv_arc_centers;iv_bend;iv_bend_down;iv_tool_center_downiv_theure_ Profiller;

Her opt için seçenek listesi
sout = sout & "&" & opt
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

dim sfname as string
sfname = ofolder & "\" & thisdoc.filename(false) & ".dwg"

'esporta di file dwggg
Ocompdef.dataio.writedatatofile ( sout, sfname)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit
Mesajbox.show("dwg salvato in: " & sfname, " assieme - esportazione completata!",messageboxbuttons.ok)

Birisi bana bir çözüm söyleyebilir mi? Teşekkür ederim.

 

[Catafratto]

Merhaba.
Birkaç gün boyunca gerçekten iyi görünmek için zamanım yok ama karmaşık oluyorsunuz. Ne yapacağım, ihracat kuralınızı olay tetikleyici parçalara bağlar> Belgeyi tasarruf etmeden önce, bölümün bir sayfa olduğunu ve sonra muhtemelen ihracatla devam ettiğini kontrolle başlayın: Bir kısım kuralı kurtarılır ve “budoc”, bir sette olup olmadığınız belgeye işaret eder. Dış bir kural kullanmak için ideal.

 

[CaesarXXI]

Merhaba, kediafract,
İlginiz için teşekkür ederiz, mevcut kuralı tavsiyenizden olarak değiştirdim.
Ne yazık ki sonuç değişmiyor, tek bir bölümde ihracat yapabiliyorsunuz, ancak axieme editin sırasında değil. (Belgeyi kurtarmadan önce kısmen tetikledim) Kuralı ekledim, çünkü pratik olarak yanlış anlamış olabilirim.

Gazetecilik kod parçaları 'salva_modellopiatto_03
'kontrollü seanca file è una parte
dim partdoc as partdocument
Buapplication.activedocument.documenttype <> kpartdocumentobject sonra
Mesajbox.show ("si prega di aprire un documento part", "ilogic")
Sonunda, eğer sona erirse
'messaggio di testo si/no
Rusure = messagebox.show( _
"salva dwg dal modelilo piatto." _
Ve vlf & "premere evet per Continuare." _
Ve vlf & "premere no per abortire." _
And etclf & "attenzione cambio di spesore deve essere gestito a mano", "ilogic - elabora dwg file ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Sonunda, eğer sona erirse

Opath = budoc.path
akım tarzı = sacmetal.getactivestyle()
codice_regola = right(currentstyle, 10)
num_part=iproperties.value(" project", "part number")
codice youo = left(num_part, 3)
"Özel bir la carella di kaderazione per dwggg
ofolder = thisdoc.path & "\" & "laserdwg" & "\" & codice youo & "_" & codice_regolaola
"kontrollü se la carella esiste, oppure la crea
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse

" -youo- solo per lamiera
‘Denetle piatto olmayan bir model; sunrimenti lo crea
dim odoc as partdocument
Odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odoc.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
" - lamiera başına yalnız

'settaggio dwggg
dim seçenek listesi olarak liste (seçme) = yeni liste (of string)()

seçenek listesi.add("acadvers=2004")
seçenek listesi.add("outer Profiln=0")
seçenek listesi.add("interior profilslayer=0")

dim sout as string
dim spath as string
sout = "flat pattern dwg?acadvers=2004&outer Profilça=iv_interior_ Profiller" _
+ "&invisiblelayers=iv_tangent;iv_feature_ profils_down;iv_arc_centers;iv_bend;iv_bend_down;iv_tool_center_downiv_theure_ Profiller;

Her opt için seçenek listesi
sout = sout & "&" & opt
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

dim sfname as string
sfname = ofolder & "\" & thisdoc.filename(false) & ".dwg"

'esporta di file dwggg
Ocompdef.dataio.writedatatofile ( sout, sfname)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit
'messaggio di testo tamam
Mesajbox.show("dwg salvato in: " & sfname, " lamiera - esportazione completata!",messageboxbuttons.ok)

Birlikte düzenleme sırasında, kurtarıldığında, kontrol mesajının "kendi belgesini açın", "yolojik"
ve poi Questo hatası...



Zamanınız için size teşekkür ederim ve hemen cevaplar verebilirim, bu arada başka testleri yapıyorum.
Bir selam

 

[Catafratto]

Uçarda, ilogic vien'in otomatizmi "enter" önermesini kullanmak için kullanmak için
Odoc = budoc.document

(Ilogic thisdoc, kuralın tetikleyicisini tetikleyen belgedir)

Bu uygulama.activedocument.documenttype, ana pencerede açılan belgedir, bu yüzden her zaman axieme takacaktır.

 

[CaesarXXI]

Uçarda, ilogic vien'in otomatizmi "enter" önermesini kullanmak için kullanmak için
Odoc = budoc.document

(Ilogic thisdoc, kuralın tetikleyicisini tetikleyen belgedir)

Bu uygulama.activedocument.documenttype, ana pencerede açılan belgedir, bu yüzden her zaman axieme takacaktır.

işe yarıyor, çok teşekkür ederim

 

[AlbFallo84]

İyi sabahlar.
Bu tartışmayı destekliyorum çünkü böyle bir problemim var.
Açık olan tüm ipt dosyaları için yaratılan düz modeli ihraç etmem gerekiyor.

Bu ilogic kuralı kullanın:

“Buradaki dosyapath'nızı girin:
Setfilepath = "Losrvfs\ufftecnico\anno2022\f\07625 - parapetto copertura\programmazione\3d"

dim partdoc as partdocument
Buapplication.activedocument.documenttype <> kpartdocumentobject sonra
Mesajbox.show ("Lütfen bir bölüm belgesi açın", "ilogic")
Sonunda, eğer sona erirse

düz desen için kontrol >> Gerekirse bir tane oluşturun
dim odoc as partdocument
Odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition
Ocompdef = odoc.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

'dxf ayarları
dim sout as string
dim spath as string
sout = "flat pattern dxf?acadvers=2000" _
+ "&outer Profilça =0" _
+ "&outer profilçacolor=0;0;0" _
+ "&interior profilslayer=0" _
+ "&interior profilslayercolor=0;0;0" _
+ "&benduplayercolor=255;0;0" _
+ "&benddownlayercolor=255;0;0" _
+ "&feature profilsuplayercolor=255;0" _
+ "&unconsumedsketcheslayer=255;255;0" _
+ "&invisiblelayers=iv_arc_centers;iv_tangent;iv_marker_tool_tagent;iv_altrep_back;iv_altrep_pro_down;iv_tool_center_down;

Odoc = budoc.document

dim ofiledlg as mucit. filedialog = Hiçbir şey
mucitvb.application.createfiledialog(ofiledlg)

Ofiledlg.initialdirectory = thisdoc.workspacepath()
Ofiledlg.filename = thisdoc.filename & ".dxf" nın ihtiyacı olan mülkünü "
Müthiş Terör = gerçek
Hatada bir sonraki sefere devam ediyor
Ofiledlg.showsave()
Eğer err. sayı <> 0 Sonra 0
Mesajbox.show("no dosyası kurtarıldı", "ilogic: dialog iptal")
Başka bir isim <> "
myfile = ofiledlg.filename
Odoc.saveas(myfile, true) ‘gerçek = kopya ve false olarak tasarruf = kurtarmak = kurtarmak
Sonunda, eğer sona erirse

"Dxf'i genişletin ve modeli tekrar katlayın
Ocompdef.dataio.writedatatofile ( sout, ofiledlg.filename)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit

“Buapplication. Durumbartext = "@clintbrown3d: dxf kurtardı: " & sfname
"Sesagebox.show("dxf kurtardı: " & ofiledlg.filename, "@clintbrown3d: başarı!"

Eğer tek bir dosya üzerinde çalışırsam sorun yok, ama eğer tüm açık dosyaları kurtarmak için bir tetikleyici ile kullanırsam, tüm aynı dxf yaratır. açık dosya isimleri ile, ancak aktif dosya dosyası ile.
Umarım açık oldum

Kuralı değiştirmek için herhangi bir öneri?

Teşekkür ederim çok teşekkür ederim

 

[lucar95]

Her şeye yemin ederim,

Biyolojik bir kuralla yardıma ihtiyacım var, uzman değilim ve bu kod net kopyalar yaparak yapılır ve küçük bir sezgiye gidiyorum.

Son sonuç istiyorum, tasarruf ettiğimde, otomatik olarak, belirli bir klasörün içinde düz modeli taşırım (ki bu kuralla oluşturulur) hem de “environment” sayfasındaki dosyayı tasarruf ettiğinde, hem de “environment” kısmındaki komut ile birlikte çalışırım. modifca ( Dosyayı yeniden açmadan).

Sayfa dosyasının içinde 3 kural yarattım, ilk "master" aktive ettikten sonra dosyayı olay tetikledi; bu kural "environment" sayfasında veya birlikte "environment" kısmında olup, sonra dwg ihraç etmek için birleşik kuralı yüklemeli. Muhtemelen her şeyi tek bir kuralla yapabilirsiniz, ancak girişimlerim sırasında bu benim beklentilerime en yakın yoldur.

Her şey iyi çalışır ve ben de bunu çarşafla seveceğim, ama eğer axieme ile değiştirmeye çalışırsam, yeni geometrileri kurtarmaz.

Hata mesajı şu:
Ekli dosyayı görüntüle 66047
Ekli dosyayı görüntüle 66048master kuralı:

"master"
dim odoc belge olarak = budoc.document
Eğer odoc.documenttype = mucit.documenttypeenum.kpartdocumentobject ve odoc.subtype = "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}
Eğer buapplication türü. Aktifeditobject daha sonra çizilir
Mesajbox.show ("Bir bölüm dosyasında profesyonel bir çizersiniz.", "Kayıt dur".
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
ilogicvb.runrule ("salva_modellopiatto")
Sonunda, eğer sona erirse
“Anarşik dosya
Eğer odoc.documenttype = mucit.documenttypeenum.kassemblydocumentobject O zaman sonra
Eğer odoc.componentdefinition.isiassemblyfactory sonra
Mesajbox.show ("Bu bir iassemblyfactory", "i durduracaktır")
geri dönüş geri dönüş
Odoc.componentdefinition.isiassemblymember sonra
Mesajbox.show ("Bu bir topluluktur", "i will stop")
geri dönüş geri dönüş
Sonunda, eğer sona erirse
Eğer buapplication türü. Aktifeditobject daha sonra çizilir
Mesajbox.show ("Bir montaj dosyasında profesyonel bir çizersiniz.", "Kabloyu durdur"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
ilogicvb.runrule ("salva_modellopiatto_01")
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse

lamiera başına regola:

‘salva_modellopiatto
Rusure = messagebox.show( _
"salva dwg dal modelilo piatto." _
Ve vlf & "premere evet per Continuare." _
Ve vlf & "premere no per abortire." _
And etclf & "attenzione cambio di spesore deve essere gestito a mano", "ilogic - elabora dwg file ",messageboxbuttons.yesno)
Eğer Rusya’ya karşı
geri dönüş geri dönüş
Sonunda, eğer sona erirse
Opath = budoc.path
akım tarzı = sacmetal.getactivestyle()
codice_regola = right(currentstyle, 10)
num_part=iproperties.value(" project", "part number")
codice youo = left(num_part, 3)
"Özel bir la carella di kaderazione per dwggg
ofolder = thisdoc.path & "\" & "laserdwg" & "\" & codice youo & "_" & codice_regolaola
"kontrollü se la carella esiste, oppure la crea
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse

" -youo--- arayışı, la parte lamiera e non in modifica da assieme
dim odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition = hiçbir şey
Eğer odoc.documenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
dim assemdoc as assemblydocument = odoc
'dim odoc = buapplication.documents.open(iptpathname, false)
Ocompdef = assemdoc.componentdefinition.sheetmetalcomponentdefinition.
Diğeri odoc.documenttype = documenttypeenum.kpartdocumentobject O zaman sonra
dim partdoc as partdocument = odoc
Ocompdef = partdoc.componentdefinition.”
Sonunda, eğer sona erirse
‘Denetle piatto olmayan bir model; sunrimenti lo crea
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
" -fine--searcha parte funziona solo per la parte lamiera e non in modifica da assieme

" -youo- solo per lamiera
‘Denetle piatto olmayan bir model; sunrimenti lo crea
'dim odoc as partdocument
"odoc = buapplication.activedocument
'dim ocompdef as pagemetalcomponentdefinition
"ocompdef = odoc.componentdefinition
“Eğer ocompdef.hasflatpattern = false o zaman
"ocompdef.unfold
"else
"ocompdef.flatpattern.edit
"Eğer
" - lamiera başına yalnız

'settaggio dwggg
dim seçenek listesi olarak liste (seçme) = yeni liste (of string)()

seçenek listesi.add("acadvers=2004")
seçenek listesi.add("outer Profiln=0")
seçenek listesi.add("interior profilslayer=0")

dim sout as string
dim spath as string
sout = "flat pattern dwg?acadvers=2004&outer Profilça=iv_interior_ Profiller" _
+ "&invisiblelayers=iv_tangent;iv_feature_ profils_down;iv_arc_centers;iv_bend;iv_bend_down;iv_tool_center_downiv_theure_ Profiller;

Her opt için seçenek listesi
sout = sout & "&" & opt
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

dim sfname as string
sfname = ofolder & "\" & thisdoc.filename(false) & ".dwg"

'esporta di file dwggg
Ocompdef.dataio.writedatatofile ( sout, sfname)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit
Mesajbox.show("dwg salvato in: " & sfname, " lamiera - esportazione completata!",messageboxbuttons.ok)

Birlikte kural:

'salva_modellopiatto_01
Eğer buapplication.activedocument.documenttype <> documenttypeenum.kassemblydocumentobject o zaman sonra
Mesajbox.show("e' un'assieme. (Fa niente, ma la regola viene eseguita; karışıklıkaggio da149nare)", "kontrollo")
çıkış alt alt alt
Sonunda, eğer sona erirse
Opath = budoc.path
akım tarzı = sacmetal.getactivestyle()
codice_regola = right(currentstyle, 10)
num_part=iproperties.value(" project", "part number")
codice youo = left(num_part, 3)
"Özel bir la carella di kaderazione per dwggg
ofolder = thisdoc.path & "\" & "laserdwg" & "\" & codice youo & "_" & codice_regolaola
"kontrollü se la carella esiste, oppure la crea
Eğer sistem değilse.io.directory.exists(ofolder) o zaman
Sistem.io.directory.createdirectory (ofolder)
Sonunda, eğer sona erirse

" -youo--- arayışı, la parte lamiera e non in modifica da assieme
dim odoc = buapplication.activedocument
dim ocompdef as pagemetalcomponentdefinition = hiçbir şey
Eğer odoc.documenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
dim assemdoc as assemblydocument = odoc
'dim odoc = buapplication.documents.open(iptpathname, false)
Ocompdef = assemdoc.componentdefinition.sheetmetalcomponentdefinition.
Diğeri odoc.documenttype = documenttypeenum.kpartdocumentobject O zaman sonra
dim partdoc as partdocument = odoc
Ocompdef = partdoc.componentdefinition.”
Sonunda, eğer sona erirse
‘Denetle piatto olmayan bir model; sunrimenti lo crea
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
" -fine--searcha parte funziona solo per la parte lamiera e non in modifica da assieme

" -youo- solo per lamiera
‘Denetle piatto olmayan bir model; sunrimenti lo crea
'dim odoc as partdocument
"odoc = buapplication.activedocument
'dim ocompdef as pagemetalcomponentdefinition
"ocompdef = odoc.componentdefinition
“Eğer ocompdef.hasflatpattern = false o zaman
"ocompdef.unfold
"else
"ocompdef.flatpattern.edit
"Eğer
" - lamiera başına yalnız

'settaggio dwggg
dim seçenek listesi olarak liste (seçme) = yeni liste (of string)()

seçenek listesi.add("acadvers=2004")
seçenek listesi.add("outer Profiln=0")
seçenek listesi.add("interior profilslayer=0")

dim sout as string
dim spath as string
sout = "flat pattern dwg?acadvers=2004&outer Profilça=iv_interior_ Profiller" _
+ "&invisiblelayers=iv_tangent;iv_feature_ profils_down;iv_arc_centers;iv_bend;iv_bend_down;iv_tool_center_downiv_theure_ Profiller;

Her opt için seçenek listesi
sout = sout & "&" & opt
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

dim sfname as string
sfname = ofolder & "\" & thisdoc.filename(false) & ".dwg"

'esporta di file dwggg
Ocompdef.dataio.writedatatofile ( sout, sfname)
dim osmdef as pagemetalcomponentdefinition
Osmdef = odoc.componentdefinition
Osmdef.flatpattern.exitedit
Mesajbox.show("dwg salvato in: " & sfname, " assieme - esportazione completata!",messageboxbuttons.ok)

Birisi bana bir çözüm söyleyebilir mi? Teşekkür ederim.

Her şeye iyi sabah, bu kuralı kullanıyorum ve mükemmel çalışır.
Bir sette mevcut tüm plakaların dxf'te düz modeller oluşturmak için izin veren bir kod var mı?
Teşekkür ederim.

 

[dsw]

si, ön adam.

 

[lucar95]

si, ön adam.

Bana bir el verebilir misin?

 

[dsw]

Size söz verebilirim, ama bir an bulursa, memnuniyetle olurum. .

 

[lucar95]

Size söz verebilirim, ama bir an bulursa, memnuniyetle olurum. .

Teşekkür ederim çok teşekkür ederim

 

[dsw]

Autodesk App mağazasına bir göz atmaya çalıştınız, bu işte bu Uygulama uygulaması dxf'deki düz modeller ihracat için ücretsiz değil, fiyat uygun

 

[lucar95]

Evet, onu gördüm ama bir tane yapmak istedim.

 

[dsw]

Tamam, mükemmel.

Bu kuralı kullanın ve mükemmel şekilde çalışır

Anlamak için, yerleştirilen kurallar üç (master, sayfa, birlikte), üç kuralın hangilerini ifade ettiğini?

Sadece başlamak için ilk referansa sahip olmak.

 

[lucar95]

Tamam, mükemmel.

Anlamak için, yerleştirilen kurallar üç (master, sayfa, birlikte), üç kuralın hangilerini ifade ettiğini?

Sadece başlamak için ilk referansa sahip olmak.

I use the rule related to bag metal