Public sub addipartoccurrence()
“Geçmiş fabrika belgesini açın.
dim omingdoc as partdocument
Set omingdoc = thisapplication.documents.open("w:\commesse\aia\15030_modifica zona lavatrici\assieme2.c02.ipt", false)
“Demokrat tanımına bir referans ayarlayın.
dim ocompdef as partcomponentdefinition
set ocompdef = omingdoc.componentdefinition
“Bir ipart fabrikası olduğundan emin olun.
Eğer ocompdef.isiparttors = false o zaman
msgbox "chosen belgesi bir fabrika değildir.", vbexclamation
çıkış alt alt alt
Sonunda, eğer sona erirse
" fabrikaya bir referans koydu.
dim oipartling as iparttors
Oipartatif = ocompdef.ipartming
Fabrikadaki sıra sayısını elde edin.
dim inumrows as Full
Inumrows = oiparttors.tablerows.count
“Yeni bir montaj belgesi oluşturmak
dim odoc as assemblydocument
Set odoc = buapplication.documents.add(kassemblydocumentobject, , true)
dim ooccs as componentoccurrences
set ooccs = odoc.componentdefinition.occurrences
dim opos as matrix
set opos = buapplication.transientgeometry.creatematrix
dim ostep as double
Cevap = 0#
dim irow as long
Fabrikadaki her üye için bir olay ekleyin.
irow = 1 to inumrows
Ostep = ostep + 10
x eksen boyunca bir çeviri ekleyin
Opos.settranslation thisapplication.transientgeometry.createvector(ostep, ostep, 0)
dim oocc as componentoccurrence
Set oocc = ooccs.addipartmember("w:\commesse\aia\15030_modifica zona lavatrici\assieme2.c02.ipt", opos, irow)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Odoc.save
dim veyaefdoc belge olarak
Her orefdoc için odoc.referenceddocuments
(veyaefdoc)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki 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
public sub exporttostep(odoc as document)
dim exportpath as string
Exportpath = "c:\stp\"
" adım tercüman ekle.
dim osteptranslator as çevirmenaddin
Set osteptranslator = thisapplication.applicationaddins.itembyid("{90af7f40-0c01-11d5-8e83-0010b541cd80})
Eğer osteptranslator hiçbir şey değilse o zaman
msgbox "hauld not access step çevirmen."
çıkış alt alt alt
Sonunda, eğer sona erirse
dim ocontext as çeviricontext
Set ocontext = thisapplication.transientobjects.createtranslationcontext
dim ooptions as namevaluemap
Set ooptions = buapplication.transientobjects.createnamevaluemappp
Eğer osteptranslator.hassavecopyasoptions (buapplication.activedocument, ocontext, ooptions) sonra
"Uygulama protokolü.
2 = ap 203 - kontrol edilen tasarım
3 = ap 214 - otomotiv tasarımı
Ooptions.value("applicationprotocoltype") = 3
“Diğer seçenekler...
"Mükemmeller" = ""
"Mükemmellik" = ""
"Tek yazı" = ""
"Teklifler" = ""
Ocontext.type = kfilebrowseiomechanism
dim roomta as datamedium
set roomta = buapplication.transientobjects.createdatamedium
'format file name
dim fnamepos as long
"Son sırtın darbesi
fnamepos = instrrev(odoc.fullfilename, "\", -1)
dim docfname as string
‘Geçmişle dosya adı
Docfname = stringler.right(odoc.fullfilename, len(odoc.fullfilename) - fname)
'Doğal adı uzatmadan
dim shortname as string
kısa adı = stringler.left(docfname, len(docfname) - 4)
roomta.filename = exportpath & shortname & ".stp"
Osteptranslator.savecopyas (odoc, ocontext, ooptions, odata)
Sonunda, eğer sona erirse
Sonunda alt alt
