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