public sous changementviewedgecolortofacecolor()
dim feuilles d'invall comme feuilles
dim invsheet comme feuille
dim invdrawdoc comme document de dessin
réponse faible
définir invdrawdoc = cette application.activedocument
'sur erreur reprendre suivant
'debug.print "démarrer"
définir les feuilles d'invall = invdrawdoc. Feuilles
si invall sheets.count > 1 puis
réponse = msgbox("ci sono " & invall sheets. count & « brumli: processo tutto? », vbyesno, « changer les couleurs »)
si réponse = vbyes alors
pour chaque invsheet dans les invallsheets
debug.print "appelant >1"
call changesheetcolors(invsheet)
suivant invsheet
Autre
'debug.print "appelant 1"
call changesheetcolors(invdrawdoc.activesheet)
fin si
Autre
call changesheetcolors(invdrawdoc.activesheet)
fin si
fin sous
couleurs de sous-changes privées (invsheet comme feuille)
dim invallviews comme dessins
dim invcurrview comme vue de dessin
dim incallcurves comme dessinateur
dim incurve comme courbe de dessin
dim invallsegs comme courbes de dessin
dim invseg comme dessin
dim objgen comme objet
dim invrenderst comme style de rendu
dim invface comme visage
dim bytred comme octet
dim bytgreen comme octet
dim bytblue comme octet
dim invcolor comme couleur
dim invto en tant qu'objets transitoires
dim invedgeprx comme edgeproxy
dim invallfaces comme faces
suite de l'erreur
définir invto = cette application.transientobjets
set invcolor = invto.createcolor(255, 0, 0)
set invallviews = invsheet.drawingviews
pour chaque invcurrview en invallviews
jeu invallcurves = invcurrview.drawingcurves
'debug.print "n° courbe:" & invallcurves.count
pour chaque incurve dans les incurves
définir invallsegs = invcurve.segments
'debug.print "n° segmenti" & invallsegs.count
pour chaque invseg invallsegs
ensemble objgen = invseg.parent.modelgéométrie
si (type d'objgen est edgeproxy) et (invseg.visible = true) alors
Debug.print "trovata edgeproxy"
définir invedgeprx = objgen
définir les invallfaces = invedgeprx.faces
'debug.print "edge proxy"
'debug.print "n°" & invallfaces. nombre & « facce »
pour chaque invface dans les invallfaces
set invrenderst = invface.getrenderstyle(koverriderenderstyle)
si pas invrenderst n'est rien alors
invrenderst.getambientcolor bytred, bytgreen, bytblue
'debug.print "rouge: " & bytred
'debug.print "vert: " & bytgreen
'debug.print "bleu: " & bytblue
invcolor.setcolor bytred, bytgreen, bytblue
invcurve.overridecolor = invcolor
poids invcurve.line = 0,05
fin si
Suivant
Autre
si (type d'objgen est faceproxy) et (invseg.visible = true) alors
jeu invface = objgen
set invrenderst = invface.getrenderstyle(koverriderenderstyle)
debug.print "rouge: " & bytred
debug.print "vert: " & bytgreen
Debug.print "bleu: " & bytblue
invcolor.setcolor bytred, bytgreen, bytblue
invcurve.overridecolor = invcolor
poids invcurve.line = 0,05
fin si
fin si
«si (le type d'objgen est ) alors
Debug.print "trovati !"
'finir si
suivant invseg
suivant invcurve
prochaine invcurrview
fin sous
