---

Hallo zusammen

Ich möchte gerne bestehende Externe Referenzen auf einen bestimmten Layer (Layername: XREF) legen.

Ich hab n cooles Tool gefunden wie ich die XRefs auf den XRef namen Legen kann:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-change-xref-layer-with-xref-name/td-p/2532920

Code:

---

(defun dxf (i a) (cdr (assoc i a)))
(defun c:lxr ( )
(setq ss (ssget "x" '((0 . "INSERT"))))
(setq cnt 0)
(setq xrs (list))
(while (< cnt (sslength ss))
(setq en (ssname ss cnt))
(setq ed (entget en))
(setq bn (dxf 2 ed))
(if (/= 0 (logand 12 (dxf 70 (tblsearch "BLOCK" bn))))
(progn
(setq xp (dxf 1 (entget (tblobjname "block" bn))))
(command "-layer" "new" bn "")
(command "chprop" en "" "layer" bn "")
)
)
(setq cnt (1+ cnt))
)
(princ)
)

---

Kann man die Lisp umwandeln so das alle XREFs auf den Layer XREF gelegt werden?

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

---

Hier gehts weiter:
https://ww3.cad.de/foren/ubb/Forum145/HTML/004600.shtml

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