Hallo!
ICh habe folgende Lisp Datei mit der ich nun schon länger arbeite.
(defun ChgEntCol( e / en a )
(while e
(setq en (entget e))
(if (setq a (assoc 62 en))
(progn
(setq en (subst (cons 62 256) a en))
(entmod en)
)
)
(setq e (entnext e))
)
)
(defun C:CCol ( / e b )
(setq e (entnext))
(ChgEntCol e)
(print (setq b (tblnext "BLOCK" T)))
(while b
(setq e (cdr (assoc -2 b)))
(ChgEntCol e)
(setq b (tblnext "BLOCK"))
)
(command "REGEN")
(princ)
)
ICh ändere dadurch die Farbeinstellung von Architektenplänen, diese werden dann alle auf eine einheitliche Farbe (grau) gestellt und schließlich als xref in meinen Installationsplan hinterlegt. Nix neues.
Meine Frage nun: Was genau macht eigentlich deise LISP Datei bzw. welche Befehle bemüht sie um zu dem Ergebnis zu kommen bzw. kann ich dasselbe Ergebnis auch ohne die Lisp Datei bekommen?
Im Grunde geht es darum auch bei Autocad LT solche Xrefs herzurichten, doch LISP Dateien können ja in LT nicht geladen werden.
------------------
Panta Rhei
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP