Der Transparenzwert der Schicht über VBA

[rod316]

Ich habe einen Sub erstellt, der es mir erlaubt, Schichten mit den Merkmalen von Namen, Block, Farbe, Linienart, Beschreibung, aber nicht Transparenz zu erstellen.
Ich fand nicht in Online-Dokumentation und anderen Quellen warum.

Koptischer Teil des Codes, der nach den Ladungen, die das Sub erinnern, die Eigenschaften der Schichten definieren.

private sub new_layer(name_layer, color_layer, layer_blocked, dick_linea, type_linea, print_layer, transparent_layer, freeze_layer, Beschreibung_layer)
...
wenn ucase(congela_layer) = "ja" dann
layerobj.freeze = true 'congela
♪
layerobj.freeze = false 't friert nicht
Ende

wenn ucase(print_layer) = "si" dann
layerobj.plottable = true ' print
♪
layerobj.plottable = falsch
Ende
...
Ende

Schichtobj._____????? - Ja.

 

[rpor66]

Ich glaube, ich habe es vergessen.

 

[tracciatura.net]

Sie wurden tatsächlich nicht implementiert, Sie können die Transparenz jedes Unternehmens im Design ändern Unternehmentransparenz = 50# aber du kannst die Schichten nicht ändern.
Allerdings vergessen wir nicht, dass, wenn Sie mit Eingabeaufforderungen tun können, dann. .
wir benutzen Bitte senden Sie uns

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

offensichtlich statt Layer6 setzen, was Sie wollen und diese Befehle sind für die italienische Version.

 

[rod316]

Hallo, die Methode funktioniert.
Ich fügte nur am Ende der Zeile chr(27) hinzu, um die Befehlszeile nicht auf weitere Eingaben warten zu lassen.

 

[tracciatura.net]

Natürlich funktioniert es! Ich habe es getestet, bevor ich es geschrieben habe, sonst würde ich es nicht posten!
für die Erwartung einer zusätzlichen Eingabe, die ich nicht bemerkte (Anfrage der Entschuldigung), nur noch eine weitere Carrige-Retour hinzufügenthisdraw.sendcommand "-layer" & vbcr & "tr" & vbcr & "40" & vbcr & "layer6" & vbcr & vbcr