---

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

---

Der Befehl um Layer zu erstellen lautet -LAYER
der Befehl zum ändern der Eigenschaften von Objekten _CHPROP,
die Option für Layer nennt sich LAYER.

Anstatt die Befehlen mit der Variable bn zu füttern also den gewünschten fixen Layernamen eintragen "XREF".

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

---

Das wars (Fett markiert):

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" "XREF" "")
)
)
(setq cnt (1+ cnt))
)
(princ)
)

---

Einfacher als gedacht...

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

---

und was ist mit (command "-layer" "new" bn "") ?
Versuche deinen Aktuellen Code mal in einer Datei in der es keinen Layer "XREF" gibt..

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

---

Ich würde noch ein wenig nachbessern, was ist, wenn es den neuen Layer schon gibt ?

Code:

---

(defun isXref (blkname) 
  (and (setq r (tblsearch "BLOCK" blkname))
    (eq 4 (logand 4 (cdr (assoc 70 r))))
  ) 
)

(defun chXrefLayer (newlayer / ss count obj ent olayer)
  (setq count 0)
  (if  (setq ss (ssget "x" '((0 . "INSERT"))))
    (repeat (sslength ss)
      (setq obj (ssname ss count))
      (setq ent (entget obj))
      (setq olayer (cdr (assoc 8 ent)))

      (if (isXref (cdr (assoc 2 ent)))
(progn
  (command "_layer" "_m" newlayer "")
  (command "_change" obj "" "P" "LA" newlayer "")
  )
)
      (setq count (1+ count))
      )
    (princ "\nFinished.")
    )
  )

(chXrefLayer "Test")

---

------------------
Gruss Dirk
Blog

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

---

Dann ist eigentlich alles ok, du jedoch setzt den Layer unnötigerweise aktuell.

Nachtrag: Aber natürlich ist der code verbesserungswürdig gewesen nach der Anpassung auf "alle auf einen Layer",
die Sache mit dem ggf. existierenden Layer erkenne ich jedoch nicht als Problem.

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

---

sooo ....

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" "_m" "XREF" "")
(command "chprop" en "" "layer" "XREF" "")
(command "-layer" "_set" "0" "")
)
)
(setq cnt (1+ cnt))
)
(princ)
)

---

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