EXPORT UNFOLD DXF'NUMBER INSTEAD OF CV NAME

[John2020]

Merhaba efendim,

Son zamanlarda otodesk forumundan bir ilogic kopyalarım var ve eylemsel olarak, ipt dosyalarında dosya adı yerine bölüm numarasına açılmak istiyorum. Aşağıdaki kodu düzenlememe yardımcı olabilirseniz takdir edin.


Benim örneğim beklenen: https://mega.nz/file/xf0qxloa #v5iqzzbitihin-cimbiurdeexakihiye3b3q1hdt08dim odoc belge olarak = buapplication. Aktif belge "aktif belge
Eğer odoc.documenttype <> documenttypeenum.kdrawingdocumentobject o zaman sub 'drawings sadece sadece
Her bir omodel için odoc.referenceddocuments' döngüsünde tüm referans belgeleri aracılığıyla
"Use metal parts only only only only only only only only only only
Eğer omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}
dim osmcd as pagemetalcomponentdefinition = omodel.componentdefinition
Eğer osmcd değilse. Sflatpattern sonra ‘Eğer düz bir patter yoksa, bir tane yaratmak (modelin).
Osmcd.unfold ()
Osmcd.flatpattern.exitedit ()
Sonunda, eğer sona erirse
dim fname as string = omodel. Fullfilename " Belgenin yolunu ve adını unutun
fname = microsoft. visualbasic.left (fname, len (fname) - 4) & ".dxf"
dim sout as string = "flat pattern dxf? acadvers = r12 & rebasegeometri = gerçek ve dış profilboğaz = 0 & dış profilboğaz = 0; 0 & iç profiller = 0; 0 & görünmez katmanlar = 0; 0; 0 & görünmez_centers; iv_tan_centers; iv_ver_en; iv_start_tan; iv_alt_alt_alt_do_alt_alt_do_alt_do_alt_do_alt_do_o_pro_alt_do_o_o_o_o_pro_pro_pro_o_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_ "'export ayarları
Deneyin
Osmcd.dataio.writedatatofile (sout, fname) 'export
yakalama yakalama yakalama
Sonunda deneyin
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

 

[Andrea Scarnecchia]

sevgili efendim,
ilogic kuralın bir kısmını alır ve dxf adı için dosya adı yerine bunu kullanmak için kullanılır (bir çizgiyi yorumlanır ve eklediğim kısım “ --------” arasındadır:

dim odoc belge olarak = buapplication. Aktif belge "aktif belge
Eğer odoc.documenttype <> documenttypeenum.kdrawingdocumentobject o zaman sub 'drawings sadece sadece
Her bir omodel için odoc.referenceddocuments' döngüsünde tüm referans belgeleri aracılığıyla
"Use metal parts only only only only only only only only only only
Eğer omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}
dim osmcd as pagemetalcomponentdefinition = omodel.componentdefinition
Eğer osmcd değilse. Sflatpattern sonra ‘Eğer düz bir patter yoksa, bir tane yaratmak (modelin).
Osmcd.unfold ()
Osmcd.flatpattern.exitedit ()
Sonunda, eğer sona erirse
dim fname as string = omodel. Fullfilename " Belgenin yolunu ve adını unutun
"fname = microsoft. visualbasic.left (fname, len (fname) - 4) & ".dxf"
«- ----- --------------- ---------------
dim opart Number as string = omodel.propertysets.item("inventor summary information")item (bölüm numarası). Değer ‘3d belgenin parça sayısını unutun
fname = opart Number & ".dxf" "The part number to the name variable instead of the file name =
«- ----- --------------- ---------------
dim sout as string = "flat pattern dxf? acadvers = r12 & rebasegeometri = gerçek ve dış profilboğaz = 0 & dış profilboğaz = 0; 0 & iç profiller = 0; 0 & görünmez katmanlar = 0; 0; 0 & görünmez_centers; iv_tan_centers; iv_ver_en; iv_start_tan; iv_alt_alt_alt_do_alt_alt_do_alt_do_alt_do_alt_do_o_pro_alt_do_o_o_o_o_pro_pro_pro_o_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_o_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_ "'export ayarları
Deneyin
Osmcd.dataio.writedatatofile (sout, fname) 'export
yakalama yakalama yakalama
Sonunda deneyin
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki

 

[John2020]

[QUOTE = "Andrea Scarnecchia, post: 460773, member: 89736"]sevgili efendim,
ilogic kuralın bir kısmını alır ve dxf adı için dosya adı yerine bunu kullanmak için kullanılır (bir çizgiyi yorumlanır ve eklediğim kısım “----- ----- – “):

dim odoc belge olarak = buapplication. Aktif belge "aktif belge
Eğer odoc.documenttype <> documenttypeenum.kdrawingdocumentobject o zaman sub 'drawings sadece sadece
Her bir omodel için odoc.referenceddocuments' döngüsünde tüm referans belgeleri aracılığıyla
"Use metal parts only only only only only only only only only only
Eğer omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}
dim osmcd as pagemetalcomponentdefinition = omodel.componentdefinition
Eğer osmcd değilse. Sflatpattern sonra ‘Eğer düz bir patter yoksa, bir tane yaratmak (modelin).
Osmcd.unfold ()
Osmcd.flatpattern.exitedit ()
Sonunda, eğer sona erirse
dim fname as string = omodel. Fullfilename " Belgenin yolunu ve adını unutun
"fname = microsoft. visualbasic.left (fname, len (fname) - 4) & ".dxf"
"---- !!! ► - --
dim opart Number as string = omodel.propertysets.item ("inventor summary information") item ("part number") Değer ‘3d belgenin parça sayısını unutun
fname = opart Number & ".dxf" "The part number to the name variable instead of the file name =
"---- !!! ► - --
dim sout as string = "flat pattern dxf? acadversion = r12 & rebasegeometri = gerçek ve dış profil Dili = 0 ve dış profilli renkli = 0; 0 & iç profiller Resim = 0; 0; 0 & görünmez_coll; iv_arenters; ivarenters; iv_arenters; ivarenters; iv_alt_alt_tur_back; iv_alt_alt_alt_alt_do_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_con_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro_pro
Deneyin
Osmcd.dataio.writedatatofile (sout, fname) 'export
yakalama yakalama yakalama
Sonunda deneyin
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki[/ QUOTE] [/ QUOTE]

 

[John2020]

Sevgili mr andrea,

Verdiğin gibi kodu denedim, ancak hala işe yaramıyor ve aşağıdaki gibi hata mesajı alıyorum: -

- --------------- --------------- ---------------
Kuralda hata: kural76, belgede: form desteği kanal_test.idw

Tanımlanmamış hata (gresult: 0x80004005 (e_fail)

 

[John2020]

[QUOTE = "John2020, post: 460781, member: 90568"]Sevgili mr andrea,

Verdiğin gibi kodu denedim, ancak hala işe yaramıyor ve aşağıdaki gibi hata mesajı alıyorum: -

► ► ► -
Kuralda hata: kural76, belgede: form desteği kanal_test.idw

Tanımlanmamış hata (gresult: 0x80004005 (e_fail)[/ QUOTE]Sevgili verea,

Size çok teşekkür ederim, şimdi benim sorunum çözüldü, sadece omodel setlerinde küçük bir değişiklik oldu.