public sub testlerielectadham()
"Asla riferimento al documento attivo.
‘Posto preeone cheanca documento attivo sia un assieme
dim odoc mucit olarak.assemblydocument
set odoc = buapplication.activedocument
" ottiene la def youone del componente d'assieme
dim ocompdef mucit.componentdefinition
set ocompdef = odoc.componentdefinition
dim oselectset as selectset
Set oselectset = odoc.selectset
dim smsg as string
dim toafnodes as long
dim isubassemblies as long
" definisci il nome della iproperty e il valore da cercare
dim ipropertyname as string
ipropertyname = "foratura"
dim ipropertyvalue as string
ipropertyvalue = "sovo" "colorare"
" ottiene, la occorrenze dalla def youone del componente peranca documento di tipo assembly
dim ocompocc as componentoccurrence
Ocompdef.occurrences
" controlla se è un'occorrenza figlia (nodo foglia)
Eğer ocompocc.suboccurrences.count = 0 O zaman
msgbox ("padre:" & ocompocc.name)
Açıklama(ocompdef, ocompocc, ipropertyname, ipropertyvalue, oselectset)
Badnodes = toafnodes + 1
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka 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 (ocompocc.name)
Isubassemblies = isubassemblies + 1
Call processallsubocc_adahm (ocompocc, _
smsg, _
Badnodes, _
Theubassemblies, _
ipropertyname, _
ipropertyvalue, _
Oselectset)
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
msgbox ("n. di nodi foglia: " + cstr(ilafnodes)
msgbox ("numero di sottogruppi: " + cstr(isubassemblies))
Sonunda alt alt
" searcha funzione viene chiamata in modo ricorsivo per l'elaborazione dei sottoassiemi
" per iterare l'intero albero degli assiemi.
Özel alt süreçallsubocc_adahm (byval ocompocc as componentoccurrence, _
Byref smsg as string, _
Byref ileafnodes as long, _
Byref isubassemblies as long, _
Byref ipropname as string, _
Byref ipropval as string, _
Byref oselectset as selectset)
dim osubcompocc as componentoccurrence
Her bir osubcompocc için.suboccurrences
" controlla se è un'occorrenza figlia (nodo foglia)
Eğer osubcompocc.suboccurrences.count = 0 O zaman
msgbox ("figlio: " & osubcompocc.name)
Açıklama(ocompocc.definition, osubcompocc, ipropname, ipropvalval, oselectset)
Badnodes = toafnodes + 1
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
smsg = smsg + osubcompocc.name + vscr
Isubassemblies = isubassemblies + 1
Call processallsubocc_adahm (osubcompocc, _
smsg, _
Badnodes, _
Theubassemblies, _
ipropname, _
ipropval, _
Oselectset)
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 bölümler (odef, oocc, ipropname, ipropvalval, oselectset as selectset)
dim odocdef belge olarak
set odocdef = odef.document
dim odococc belge olarak
Set odococc = oocc.definition.document
msgbox (odocdef.displayname & " - " & odococc.displayname & " - (partselection)"
'Ovuzan'ı seçin
'dim oselectset as selectset
'set oselectset = odocdef.selectset
msgbox ("select set: " & oselectset.count)
dim opropset as propertyset
Set opropset = odococc.propertysets.item ("inventor kullanıcı tanımlanmış özellikleri")
dim oprop as property
'on hatası bir sonraki sefere devam ediyor
Set oprop = opropset.item(ipropname)
"Katılım kutusu.show(">" & oprop.name & ": " & oprop.value & "<")
Eğer oprop.value = ipropval o zaman
msgbox (İngilizce) ve oprop.name & ": " & oprop.value & "<" & vcrlf & "dovrebbe selezionare:" & odococc.displayname)
"sagebox.show("sono passato di qui, quindi significa che oprop.vaule = ipropval e adesso devo selezionare la parte")
Oselectset.select (oocc)
Sonunda, eğer sona erirse
Sonunda alt alt
