---

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

---

... das Tool durchläuft die Zeichnungsdatenbank und ändert die farbe der Objekte auf 256=VonLayer.

Ich vermute, dass du das GRAU dann über die XRef-Layer-Einstellungen machst, da in der lisp dazu nichts zu sehen ist.

In LT gibt es nur die manuelle Alternative, alle Blöcke einzeln bearbeiten und den darin enthaltenen Objekten die Farbe VonLayer zuweisen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

ja richtig vermutet.

Alle Blöcke einzeln zu bearbeiten ist aber kein Thema.
Gibts tatsächlich keine andere Möglichkeit?

------------------
Panta Rhei

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

---

<<Hier>> war schon mal das Thema

------------------
  - 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