---

Hallo

Ich habe mir ein Lisp zusammengebastelt, das den Layer von der Objektwahl in einer Liste speichert. Nun möchte ich mehrere Objekte wählen und dessen Layernamen in der Liste haben. Ich hab das mit "while" auch hinbekommen, aber ich will das die Auswahl mit Fenster möglich ist und ich die Liste direkt aus mehreren Objekten schreiben kann. Weiss jemand wie das geht?

(setq AUSWAHL (car (entsel "\nObjekt wählen...: ")))
(setq LAYERNAME (tblsearch "LAYER" (cdr (assoc 8 (entget AUSWAHL)))))
(setq LAYERLISTE_B (cons (cdr (assoc 2 LAYERNAME)) LAYERLISTE_B))

Das Tool das ich letzten Ende haben möchte, soll alle Layer frieren ausser die Layer der Objektwahl – da hab ich leider nichts passendes gefunden...

Schon mal besten Dank im Voraus...

------------------

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

---

Hi,

"Auswahl mit Fenster", da bist du bei SSGET [F1]
der Lispversion der AutoCAD Objektwahl

http://www.autolisp.info/ssget.html
http://www.autolisp.info/auswahlsaetze.html

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

---

Kann man so machen, muss man aber nicht ;-)

(mapcar '(lambda(x / LayerOBJ)
          (setq LayerOBJ (vl-catch-all-apply
                                          'vla-item
                                          (list (vla-get-Layers
                                                  (vla-get-ActiveDocument
                                                    (vlax-get-acad-object)
                                                  )
                                                )
                                                x
                                          )
                                        )
                        )
          (vl-catch-all-apply
          'vla-put-Freeze
          (list LayerOBJ :vlax-true)
        )
          )
          (if(setq aw(ssget))
            (mapcar 'vla-get-layer(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex aw)))))
            )
          )

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Danke euch beiden. Ich hab das jetzt so gelöst:

(defun C:LAYERVIEW (/ )
  (vl-load-com)
;Objekte auswählen und LayerlisteB erstellen
  (setq Auswahl (ssget))
  (setq LayerlisteB (mapcar 'vla-get-layer (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex Auswahl))))))
;Aktueller Layer festlegen
  (if (= (member (getvar "CLAYER") LayerlisteB) nil)
    (setvar "CLAYER" (car LayerlisteB))
  )
;LayerlisteB frieren, Layerliste B tauen
  (setq Zähler -1)
  (command "-layer" "F" "*" "" "")
  (repeat (length LayerlisteB)
(setq Zähler (+ Zähler 1))
(command "-layer" "T" (nth Zähler LayerlisteB) "" "")
  )
)

So funktioniert das zumindest mal...

Gruss Zeli

------------------

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