---

Ich möchte ein Programm schreiben, das gesperrte Ansichtsfenster auf die Farbe ROT und nicht gesperrte auf die Farbe GRÜN setzt - Generell über alle Layouts.

Nur mit ENTMOD kommt da offensichtlich nicht weiter.

Für das aktuelle Layout habe ich ja bereits eine Lösung:

(DEFUN c:afcolor ()
  (SETQ aws (SSGET "_C" (GETVAR "extmin") (GETVAR "extmax") '((0 . "VIEWPORT"))))
  (SETQ len (SSLENGTH aws))
  (SETQ n 0)
  (WHILE (< n len)
    (SETQ a (SSNAME aws n))
    (SETQ b (CDR (ASSOC 90 (ENTGET a))))
    (COMMAND "_CHPROP" a "" "_COLOR")
    (IF (= (BOOLE 1 b 16384) 0)
      (COMMAND "90")
      (COMMAND "240")
    )
    (COMMAND "")
    (SETQ n (1+ n))
  )
  (PRINC)
)

Ebenso habe ich die Befehle AFLOCK und AFUNLOCK, die die Ansichtsfenster sperren/entsperren und auf die Farben 90/240 setzen.

------------------
Gruß aus Wien
Bernhard

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

---

Hallo Bernhard,
ich glaube, folgendermaßen müßte es funktionieren, bitte nochmal checken:

Code:

---

(defun c:VportTest ( / AWS N VLA-OBJ)
(if (setq aws (ssget "_X" (list (cons 0 "VIEWPORT"))))
  (progn
  (setq n 0)
  (repeat (sslength aws)
    (setq vla-obj(vlax-ename->vla-object(ssname aws n)))
    (if (=(vla-get-DisplayLocked vla-obj):vlax-true)
    (JB_VportTest:ColorIndex vla-obj 1)
    (JB_VportTest:ColorIndex vla-obj 3))
    (setq n (+ n 1)))))
)

(defun JB_VportTest:ColorIndex (vla-obj Index / VLA-TRUECOLOR)
(setq vla-TrueColor (vla-get-TrueColor vla-obj))
(vla-put-ColorIndex vla-TrueColor Index)
(vla-put-TrueColor vla-obj vla-TrueColor))

---

Starten mit "VportTest", gesperrte Ansichtsfenster werden rot, nicht gesperrte grün.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Attribute freistellen Youtube

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

---

Super!

Danke Jörn, genau so gehtŽs.

Habe nur noch die Farben auf 90 bzw. 240 geändert.

Schönen Tag noch aus Wien!

------------------
Gruß aus Wien
Bernhard

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