Bonjour.
Je voudrais changer toutes les couleurs des niveaux d'une table en un seul coup, par exemple:
J'ai des tables où le niveau a est en vert, b est en jaune et c est en rouge, je voudrais pouvoir définir tous les niveaux en couleur noire avec une seule étape.
Je vous remercie.
prova e fammi sapere
dim échange comme sldworks. Soldworks
Dim swdoc comme sldworks.modeldoc2
dim swdwg comme sldworks.drawingdoc
dim swlayermgr comme sldworks.layermgr
Dim swlayer comme sldworks. couche
dim vlayerarr comme variante
dim vlayer comme variante
Sous-main()
définir swapp = application. Soldworks
jeu swdoc = swapp.activedoc
en cas de swdocdrawing <> swdoc.gettype alors
msgbox "il fichier non è una tavola! impossibilité continue"
sortie sous
fin si
jeu swdwg = swdoc
jeu swlayermgr = swdoc.getlayermanager
vlayerarr = swlayermgr.getlayerlist
pour chaque vlayer dans vlayerarr
set swlayer = swlayermgr.getlayer(vlayer)
swlayer.color = 0 'nero
suivant
fin sous