Attribuer la valeur de transparence au calque via VBA

[rod316]

J'ai créé un sous-marin qui me permet de créer des couches avec les caractéristiques de nom, bloc, couleur, type de ligne, description mais pas de transparence.
Je n'ai pas trouvé dans la documentation en ligne et d'autres sources pourquoi.

Partie copte du code qui, selon les charges qui rappellent le sous définit les caractéristiques des couches.

sub privé new_layer(name_layer, color_layer, layer_bloqué, epaid_linea, type_linea, print_layer, transparent_layer, gel_layer, description_layer)
...
si ucase(congela_layer) = "oui" alors
layerobj.freeze = true 'congela
♪
layerobj.freeze = false ' ne gèle pas
fin si

si ucase(print_layer) = "si" alors
layerobj.plottable = true ' print
♪
layerobj.plottable = false ' non-print
fin si
...
fin

Layerobj.____?????? _

 

[rpor66]

Je crois que j'ai oublié.

 

[tracciatura.net]

vous n'avez pas réellement été mis en œuvre, vous pouvez changer la transparence de chaque entité dans la conception avec ent.entitytransparency = 50# Mais vous ne pouvez pas changer les couches.
Cependant, nous n'oublions pas que si vous pouvez faire avec les commandes rapides alors. . . .
Nous utilisons sendcommand

cedrawing.sendcommand "-layer" & vbcr & "tr" & vbcr & "50" & vbcr & "layer6" & vbcr

évidemment au lieu de layer6 mettre ce que vous voulez et ces commandes sont pour la version italienne.

 

[rod316]

Bonjour, la méthode fonctionne.
J'ai ajouté seulement à la fin de la ligne chr(27) pour ne pas laisser la ligne de commande ouverte en attendant d'autres entrées.

 

[tracciatura.net]

Bien sûr que ça marche ! Je l'ai testé avant de l'écrire, sinon je ne le posterais pas !
pour l'attente d'une entrée supplémentaire je n'ai pas remarqué (demande d'apologie), juste ajouter un autre retour carrigecedrawing.sendcommand "-layer" & vbcr & "tr" & vbcr & "40" & vbcr & "layer6" & vbcr & vbcr