Hey, batleo, sizi rahatsız etmekten dolayı üzgünüm çünkü tartışma oldukça yakın.
Bu arada bu arada Kodunuzu paylaşmanız için size teşekkür ederim ve size mümkün olup olmadığını bir yükseltme rica ediyorum.
Aynı idw içinde birkaç masaya sahip olabilirim (bu otuzdan fazla)... Tüm masaların alt kısmını aynı anda planlamak ve sadece aktif bir şekilde değil mi?
Teşekkür ederim.
samuele
ciao e dovrebbe eğlencelizionare yalnız sostituire di percorso del file şablonu e di nome del cartiglio
Public sub main()
" controllace titolo nel documento attivo
Deneyin
dim odrawdoc as çizimdocument
Odrawdoc = buapplication.activedocument
" verifica se lo stato di deferimento degli aggiornamenti ègeliteato
Eğer odrawdoc.drawings.deferupdates sonra
msgbox("non è possibile modificare il cartiglio perché il file di disegno è in modaliteà di aggiornamento differentito.")
çıkış alt alt alt
Sonunda, eğer sona erirse
" rimuove i simboli: disegno
Deneyin
deletesymbols()
Ekstraları istisna olarak yakalamak
msgbox ("errorekedte la Cancellazione dei simboli: " & ex.message)
Sonunda deneyin
" titolo desiderato
dim title as string = "nome cartiglio"
İsim (İngilizce)
Ekstraları istisna olarak yakalamak
msgbox ("errorekedte la sostituzione del cartiglio: " & ex.message)
Sonunda deneyin
Sonunda alt alt
sub replacetitle(byref ünvanı as string)
dim odrawdoc as çizimdocument
Odrawdoc = buapplication.activedocument
dim template as string = "n:\settaggi mucit\inventor 2022\tembergers\tuo file.idw"
dim otemplate as çizimdocument
dim osourcetitleblockdef as titleblockdefinition
dim onewtitleblockdef as titleblockdefinition
Deneyin
'Apre'
Otemplate = buapplication.documents.open(template, false)
" verifica se il cartiglio esiste nel şablon
Eğer otemplate.titleblockdefinitions.item (title) o zaman hiçbir şey değildir.
Osourcetitleblockdef = otemplate.titleblockdefinitions.item(title)
"Polis La, sana bir del cartiglio nel disegno
Onewtitleblockdef = osourcetitleblockdef.copyto(odrawdoc, true)
" chiude
Otemplate.close
" scorre holdti i fogli nel documento di disegno e applica di nuovo cartiglio
Odrawdoc'daki her oform için. çarşaflar
"Emekna il cartiglio korrente e inserisce quello nuovo
Eğer osheet. Başlıkblock o zaman hiçbir şey değildir
Sayfa.titleblock.delete()
Sonunda, eğer sona erirse
Nottitleblock(onewtitleblockdef)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
msgbox ("cartiglio aggiornato a: " & Title & " su tutti i fogli.")
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
msgbox ("cartiglio non trovato nel şablon.")
Otemplate.close
Sonunda, eğer sona erirse
Ekstraları istisna olarak yakalamak
msgbox("errorekedte l'aggiornamento del cartiglio: " & ex.message)
Sonunda deneyin
Sonunda alt alt
Sub deletesymbols()
dim odoc as çizimdocument = thisdoc.document
dim osksymdefs asdrewedsymboldefinitions = odoc.sketchedsymboldefinitions
Her osksymdef için çizildiği gibi, osksymdefs
Eğer osksymdef değilse. Daha sonra ortaya çıktı.
Osksymdef.delete()
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
Sonunda alt alt
alt kopyalarymbols()
dim string olarak seçildi = "result2"
dim strstamplist yeni dizilist olarak
strstamplist.add("nome cartiglio")
strs selectedstamp = girdilistbox ("Lütfen bir pul seçin.", strstamplist, strseçmişamp, "stamp seçimi", "kanım pulları")
dim strdrawdoc as çizimdocument = buapplication.activedocument
dim sourcefile as string = "n:\settaggi mucit\inventor 2022\templates\tuo file.idw"
Deneyin
'Apreanca file devilgente dei simboli
dim stranaidw as çizimdocument = buapplication.documents.open(source, false)
"Polis i simboli nel documento korrente
Her sembolün çizildiği gibi, stranaidw.sketchedsymboldefinitionsymboldefinitions
Semboldef.copyto (strawdoc, true)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
stranaidw.close()
Ekstraları istisna olarak yakalamak
msgbox ("errorekedte la polisia dei simboli: " & ex.message)
Sonunda deneyin
Sonunda alt alt[/ICODE]
