Birlikte ihracat adım parçaları - ilogic değiştirmek

[matteostasim]

Buongiorno,
Sono dürtünza, çekicii strettissimi (vorrei mandare i dosyaları oggi), quindi vazo Sharetto.
Devo mandare a lazertubo una marea di tubi holdti simili ma diversi relativi a 10 assiemi.
al lazerista van bene i file step per fortuna.
quindi devo esportare dagli assieme i singoli step delle singole katılımcısı.
Zoo una bella regola ilogic che me lo favato.
Yalnız 1 problema: salva aks adım con il nome del file della parte Originaria (veyarenda essendo telai).
Kulcuno sa cosa devo cambiare per salvarli col numero parte al posto del nome file (in cui duà cambiato i nomi in caso di akciğerhezze uguali)?

di seguito la regola e un paio di immagini per far capire cosa vorrei.
grazie sonsuz

Sözcük kod parçaları, bir montaj dosyası olarak aktif belgeyi tanımlar
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = budoc.filename(false) ' uzatmadan

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, tüm bileşenler için bir adım dosyası oluşturacak.” _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için adım çizimleri oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıkış adımları ",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
"- - - - - - - - - - kurulum - - - - - - - - - - - - - - - -
Opath = budoc.path
" adım hedef klasör yolu
ofolder = opath & "\" & oasmname & " adım dosyaları"
Adım 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


"- - - - - - - - - - - - - - - - - - - - - - - - - - -
Budoc.document.saveas(ofolder & "\" & oasmname & ("stp) , true)

"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referans modelleri
Her orefdoc için orefdocs
dim ocurfile belge olarak
Ocurfile = buapplication.documents.open (veyaefdoc.fullfilename, true)
Ocurfilename = ocurfile.fullfilename

'Dönetici separatör separatör olarak geri dönüyor
dim strcharsep as string = sistem.io.path.directoryseparatorcharsep

Yoldaki son sırtın postasını bul
fnamepos = instrrev(ocurfilename, "\", -1)
Dosya adını dosya uzatma ile alın
Adı = right(ocurfilename, len(ocurfilename) - fnamepos)
Dosya adı (uygulama olmadan)
kısa adı = sol (isim, len(name) - 4)

Deneyin
Ocurfile.saveas(ofolder & "\" & shortname & (".stp") , true)
yakalama yakalama yakalama
Mesajbox.show(" Terör işleme " & ocurfilename, "ilogic"
Sonunda deneyin
Ocurfile. yakın yakın yakın yakın
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
"- - - - - - - - - - - -
Mesajbox.show ("Yeni dosyaları oluşturuldu: " & etclf & ofolder, "ilogic")
Yeni dosyaların kurtarıldığı klasörü açın
Kabuk(" patrer.exe " & ofolder,vbnormalfocus)

 

[Catafratto]

İyi sabahlar.
Dikkatli, çok sıkı zamanlarda (Bugün dosyaları göndermek istiyorum)

Elbette bugün için, yarın için ise, yarın.

İlk önce küçük bir sette, sadece hızlı bir test yaptım, sadece blah blah blah blah blah blah blah blah'ı yaptım...

Bunu deneyin, bunun işe yaradığını düşünüyorum.

“Özel belgeyi bir montaj dosyası olarak tanımlayın
dim oasmdoc as assemblydocument
Oasmdoc = buapplication.activedocument
Oasmname = budoc.filename(false) ' uzatmadan

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, tüm bileşenler için bir adım dosyası oluşturacak.” _
And etclf & " _
Ve vlf & "tüm montaj bileşenleri için adım çizimleri oluşturmak istediğinizden emin misiniz?" _
Ve vslf & "bu bir süre alabilir.", "ilogic - toplu çıkış adımları ",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
"- - - - - - - - - - kurulum - - - - - - - - - - - - - - - -
Opath = budoc.path
" adım hedef klasör yolu
ofolder = opath & "\" & oasmname & " adım dosyaları"
Adım 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


"- - - - - - - - - - - - - - - - - - - - - - - - - - -
Budoc.document.saveas(ofolder & "\" & oasmname & ("stp) , true)

"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
“Evre tarafından referanslanan dosyalara bakın
dim orefdocs as documentsenumerator
orefdocs = oasmdoc.allreferenceddocuments
dim veyaefdoc belge olarak
Referans modelleri
Her orefdoc için orefdocs
dim ocurfile belge olarak
Ocurfile = buapplication.documents.open (veyaefdoc.fullfilename, true)
Ocurfilename = ocurfile.fullfilename

'Dönetici separatör separatör olarak geri dönüyor
dim strcharsep as string = sistem.io.path.directoryseparatorcharsep

Yoldaki son sırtın postasını bul
fnamepos = instrrev(ocurfilename, "\", -1)
Dosya adını dosya uzatma ile alın
Adı = right(ocurfilename, len(ocurfilename) - fnamepos)
Dosya adı (uygulama olmadan)
“kıtname = sol (isim, len (isim) - 4)


" ---!" ---- !!!
kısa adı = ocurfile.propertysets ("{32853f0f-3444-11d1-9e93-0060b03c1ca6}")item (bölüm numarası). değer değeri değer değeri


Deneyin
Ocurfile.saveas(ofolder & "\" & shortname & (".stp") , true)
yakalama yakalama yakalama
Mesajbox.show(" Terör işleme " & ocurfilename, "ilogic"
Sonunda deneyin
Ocurfile.close
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
"- - - - - - - - - - - -
Mesajbox.show ("Yeni dosyaları oluşturuldu: " & etclf & ofolder, "ilogic")
Yeni dosyaların kurtarıldığı klasörü açın
Kabuk(" patrer.exe " & ofolder,vbnormalfocus)

 

[dsw]

qui Senaryonun bir kopyası var (belki mi?) Biraz daha....pulita...

 

[matteostasim]

Kutsal bok şu anda! Başka herhangi bir doğru cevabı düşünmüyorum.
Gerçekten de, evet, Veneto'nun ne alanını anlamak zorundayım (I friuli) size en az pizza ve bira sunayım.
Mükemmel !!!