Public sub changeviewedgecolortofacecolor()
dim invallsheets als Blätter
dim invsheet als Blatt
dim invdrawdoc als Zeichnungsdokument
Dim Antwort
set invdrawdoc = thisapplication.activedocument
'on Error Lebenslauf
'debug.print "start"
Invallsheets setzen = invdrawdoc. Bogen
wenn Invallsheets.count > dann
Antwort = msgbox("ci sono " & invallsheets. Graf & " nebli: processo tutto?", vbyesno, "Wechselfarben")
wenn Antwort = vbyes dann
für jedes Invsheet in Invallsheets
debug.print "calling >1"
Call Changesheetcolors(invsheet)
Weitere Informationen
andere
'debug.print "calling 1"
Call changesheetcolors(invdrawdoc.activesheet)
Ende
andere
Call changesheetcolors(invdrawdoc.activesheet)
Ende
Endteil
Private Sub Changesheetcolors(invsheet als Blatt)
dim invallviews als Zeichnungsbilder
dim invcurrview als Zeichnung
dim invallcurves als Zeichner
dim invcurve als Zeichenkurve
dim invallsegs als Zeichenkurvensegmente
dim invseg als Zeichnungsbogensegment
dim objgen als Objekt
dim invrenderst als Renderstyle
dim invface als Gesicht
dim bytred as byte
dim bytgreen als Byte
dim bytblue als Byte
dim invcolor als Farbe
dim invto als transientobjects
dim invedgeprx als edgeproxy
dim invallfaces als Gesichter
auf Fehlerwiederaufnahme
set invto = thisapplication.transientobjects
invcolor = invto.createcolor(255, 0, 0)
set invallviews = invsheet.drawingviews
für jede invcurrview in invallviews
set invallcurves = invcurrview.drawingcurves
'debug.print "n° Kurve: " & invallcurves.count
für jeden Invallcurves
set invallsegs = invcurve.segmente
'debug.print "n° segmenti " & invallsegs.count
für jeden Invseg invallsegs
set objgen = invseg.parent.modelgeometry
wenn (Typ von objgen ist edgeproxy) und (invseg.visible = true) dann
'debug.print "trovata edgeproxy"
invedgeprx = objgen
Invallfaces setzen = invedgeprx.faces
'debug.print "edge proxy"
'debug.print "n° " & invallfaces. Anzahl & " facce"
für jedes Invface in Invallfaces
set invrenderst = invface.getrenderstyle(koverriderenderstyle)
wenn nicht invrenderst ist nichts
invrenderst.getambientcolor bytred, bytgreen, bytblue
'debug.print "red: " & bytred
'debug.print "grün: " & bytgreen
'debug.print "blau: " & bytblue
invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
invcurve.lineweight = 0,05
Ende
invface
andere
wenn (Typ von objgen ist faceproxy) und (invseg.visible = true) dann
invface = objgen
set invrenderst = invface.getrenderstyle(koverriderenderstyle)
debug.print "red: " & bytred
debug.print "grün: " & bytgreen
debug.print "blau: " & bytblue
invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
invcurve.lineweight = 0,05
Ende
Ende
„Wenn (Art des objgens) dann
' debug.print "trovati!"
Wenn
invseg
invcurve
invcurrview
Endteil
