werkbalk knop kleur tekenveld (opgelost)

[woody]

Hallo,
Ik moet regelmatig de achtergrond van mijn tekenvlak van kleur veranderen.
Normaal gaat dat via options-display- ....  wat telkens een aantal kliks vraagt. Dus dacht ik,  ik maak een knop in een werkbalk waarmee ik in één klik de kleur van mijn scherm verander. Ik dacht dit te kunnen doen via setvar en zo de juist systeemvariabele te kunnen ingeven , maar ik weet niet welke systeemvariabele ik hiervoor zo moeten gebruiken.
Eigenlijk zoek ik dus een macro die ik aan deze knop zou moeten hangen om het scherm in een bepaalde kleur te zetten.
Ik werk in acad2006
Alvast bedankt voor de moeite
Groeten
Woodyken

[HofCAD]

Hallo,
Ik moet regelmatig de achtergrond van mijn tekenvlak van kleur veranderen.
Normaal gaat dat via options-display- ....  wat telkens een aantal kliks vraagt. Dus dacht ik,  ik maak een knop in een werkbalk waarmee ik in één klik de kleur van mijn scherm verander. Ik dacht dit te kunnen doen via setvar en zo de juist systeemvariabele te kunnen ingeven , maar ik weet niet welke systeemvariabele ik hiervoor zo moeten gebruiken.
Eigenlijk zoek ik dus een macro die ik aan deze knop zou moeten hangen om het scherm in een bepaalde kleur te zetten.
Ik werk in acad2006
Alvast bedankt voor de moeite
Groeten
Woodyken

Beste Woody,

Met het onderstaande kun je de achtergrondkleur in stellen:

Code Selecteer Uitklappen

(vl-load-com)
(setq AutoCAD (vlax-get-acad-object))
(setq Optie (vla-get-Preferences AutoCAD))
(setq Scherm (vla-get-Display Optie))
(vla-put-GraphicsWinModelBackgrndColor Scherm (vlax-make-variant 0 19))

Dus de macro wordt:

Code Selecteer Uitklappen

^C^C_(vl-load-com)
(setq AutoCAD (vlax-get-acad-object))
(setq Optie (vla-get-Preferences AutoCAD))
(setq Scherm (vla-get-Display Optie))
(vla-put-GraphicsWinModelBackgrndColor Scherm (vlax-make-variant 0 19))


Voor witte kruisdraden moet U ook de volgende regel toevoegen:

Code Selecteer Uitklappen

(vlax-put-property Scherm 'ModelCrosshairColor 16777215)


Met vriendelijke groet, HofCAD CSI

PS Zie evt. http://ww3.cad.de/foren/ubb/Forum145/HTML/001347.shtml
http://discussion.autodesk.com/forums/message.jspa?messageID=6062061
http://www.cadtutor.net/forum/showthread.php?p=159724
http://www.cadtutor.net/forum/showthread.php?t=863

[woody]

Hofcad,

Ik heb de gegeven marco aan een werkbalkknop gekoppeld.
Als ik deze macro gebruik, wordt de schermachtergrond zwart.
Kan je me eens zeggen waar ik in de macro de kleur van de achtergrond kan wijzigen. Ik wil namelijk een knop maken die een witte achtergrond geeft, en een andere die grijs (kleur nr 9) geeft.
Bij het gebruik van de macro zie ik in de commandobalk achter de macro " nil "staan, ik weet niet of dat wat betekent.

Groetjes

Woody

[HofCAD]

Hofcad,

Ik heb de gegeven marco aan een werkbalkknop gekoppeld.
Als ik deze macro gebruik, wordt de schermachtergrond zwart.
Kan je me eens zeggen waar ik in de macro de kleur van de achtergrond kan wijzigen. Ik wil namelijk een knop maken die een witte achtergrond geeft, en een andere die grijs (kleur nr 9) geeft.
Bij het gebruik van de macro zie ik in de commandobalk achter de macro " nil "staan, ik weet niet of dat wat betekent.

Groetjes

Woody

Beste Woody,

Uit http://ww3.cad.de/foren/ubb/Forum145/HTML/001347.shtml
;;; Schwarz: 0
;;; Weiß: 16777215
;;; Grau (Farbe 9): 12632256

Dus voor wit:

Code Selecteer Uitklappen

(vl-load-com)
(setq AutoCAD (vlax-get-acad-object))
(setq Optie (vla-get-Preferences AutoCAD))
(setq Scherm (vla-get-Display Optie))
(vla-put-GraphicsWinModelBackgrndColor Scherm (vlax-make-variant 16777215 19))

Dus voor grijs:

Code Selecteer Uitklappen

(vl-load-com)
(setq AutoCAD (vlax-get-acad-object))
(setq Optie (vla-get-Preferences AutoCAD))
(setq Scherm (vla-get-Display Optie))
(vla-put-GraphicsWinModelBackgrndColor Scherm (vlax-make-variant 12632256 19))

Met vriendelijke groet, HofCAD CSI

[woody]

Hofcad,

Hartelijk bedankt voor deze gegevens, alles werkt zoals ik het bedoeld had.
Mijn probleem is opgelost, maar misschien nog een bijvraagje; weet er iemand waar ik een lijst vind met de getalwaarden (zoals in bovenstaande oplossingen) van de ander kleuren.

Groetjes

Woody

[woody]

Ik ben zelf wat gaan zoeken en dit is het beste dat ik tot nu toe gevonden heb.

http://cloford.com/resources/colours/500col.htm

Groetjes
Woody

[HofCAD]

Ik ben zelf wat gaan zoeken en dit is het beste dat ik tot nu toe gevonden heb.

http://cloford.com/resources/colours/500col.htm

Groetjes
Woody

Beste Woody,

Indirect kan het bijvoorbeeld als volgt:
Als je een object (bijv. een cirkel) een true color heb gegeven,
dan kun je met het programma GETTRUECOLOR het kleurnummer
bepalen.
GetTrueColor.lsp kun je downloaden op:
http://www.menziengineering.ch/Downloads/Download.htm#101

Met vriendelijke groet, HofCAD CSI