Özel sub riferiNDmodello(lw as object)
'set exchangep = createobject("sldworks.application")
'set part = exchangep.activedoc
“Eğer bir parça daha sonra hiçbir şey değilse
‘exit sub
"Eğer
"If part.gettype() = 3 sonra
'set çekme = part
'set page = çiz.getcurrentsheet
'set view = çiz.get firstview
'set view = view.get nextview
'msgbox "il documeto attivo e' un disegno"
'tipo_documento = part.gettitle()
"Görmüyorken hiçbir şey değildir
"model name = view.referenced settinguration()
'modelname = view.name()
'modelname = view.getreferencedmodelname()
'msgbox "il file di rifemento è " & modelname
'set view = view.get nextview
"loop
"Eğer
dim sdefaultname as string
dim testo as string
dim li mscomctllib.listitem
dim ls as mscomctllib.listsubitem
dim filtro as string
filtro = "solidworks (*.sld*)|*.sld*|"
lw.listitems.clear
txtevidenziafile.face = true
dim, işleri mahvediyor. sldworks
‘Judworks olarak çok kötü domuz modelleri.modeldoc2
dim sdocname as string
dim v varyant olarak
dim bret as boolean
dim i as long
Ayarlama = createobject ("sldworks.application")
‘set swmodel = exchangep.activedoc
“Eğer domuzmodeli değilse o zaman hiçbir şey değildir
' sdocname = swmodel.getpathname
"else
txtevidenziafile = "" veya isnull (txtevidenziafile) sonra
dialogo me.commondialog1, filtrotro
sdocname = filenamedialog
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
sdocname = txtevidenziafile 'qui inserisci il percorso del file di assieme
Sonunda, eğer sona erirse
"se disegno senza dipendenze
‘ ‘ ‘
v bağımsız = değiştiriciler2(sdocname, me.chkrefall, me.chkrefdip, false)
'debug.print sdocname
Eğer (vüphesiz) ise
'debug.print "görünmezlik yok."
çıkış alt alt alt
Sonunda, eğer sona erirse
i = 0 to (ubound(v bağımsız) 1)
testo = v depend(i)
Bir sonraki i
i = 0 to (ubound(v bağımsız) 1) / 2
"+ v depend(2* i) + " --> " + v depend(2* i + 1)
Depsplit = bölünmüş(vsp(2 * i + 1), ":")
Set li = lw.listitems.add(, , "z:" & depsplit(1)) 'aggiungo l'unità disko nel percorso
ls = li.listsubitems.add(, v depend(2 * i))
Bir sonraki i
Sonunda alt alt
io uso görselizzare i riferimenti dei dosyaları için rutin.
per avere maggiori Infoazioni uso la libreria swdocumentmgr.exe (quella usata da solidworkspatrer) che ti permette di recuperare holdte le bilişimazioni senza solidworkspatrer e sağlam işler
