---

Hi

Ich brauche bitte Hilfe.
Und zwar möchte ich die Layerfarbe (RGB) von "Hintergrund"
beim Wechsel Layout-Model verändern.
Der Rector kann aber mit commad nix anfangen.

Wie kann ich das mit ActiveX lösen?

hier mein Code:

(vl-load-com)
(defun check_sysvar (a b)
  (if (= (car b) "TILEMODE")
(if (= (getvar "ctab") "Model")
(command "_.-layer" "_c" "_t" "0,0,0" "Hintergrund" "")
(command "_.-layer" "_c" "_t" "255,255,255" "Hintergrund" "")
)
  )
)

(vlr-sysvar-reactor
  nil
  '((:vlr-sysvarchanged . check_sysvar))
)

Danke und Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

eine Funktion zum ändern der Layerfarbe auf rgbwerte:

(defun LCOLOR (LAYERNAME R G B / L TC )
  (if(and(= (type LAYERNAME)'STR)
        (tblobjname "LAYER" LAYERNAME)       
        (setq L(vla-item
                  (vla-get-layers
                    (vla-get-activedocument(vlax-get-acad-object))
                  )
                  LAYERNAME
                )
        )
        (setq TC(vla-get-truecolor L))
    )
    (progn     
      (vla-setRGB TC R G B)
      (vla-put-truecolor L TC)
      (vlax-release-object TC)
    )     
  )
)

den Rest solltest du hinbekommen ... und (vl-load-com) nicht vergessen

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...und Grundsätzlich kannst Du dir merken:

IN REAKTOREN FUNKTIONIEREN KEINE COMMAND AUFRUFE!

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super vielen Dank

Einfach command austauschen
(command "_.-layer" "_c" "_t" "0,0,0" "Hintergrund" "")
(command "_.-layer" "_c" "_t" "255,255,255" "Hintergrund" "")

durch
(LCOLOR "Hintergrund" 0 0 0)
(LCOLOR "Hintergrund" 255 255 255)

Grüße und Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP