---

hallo !
habe wieder eine anfängerfrage bzgl. lsp !
mit dem folgenden code kann ich mir von einem textobjekt
die elementenliste anschauen:
(defun c:as (/ a b c)
(setq a (ssget '((0 . "TEXT"))))
(setq b (ssname a 0))
(setq c (entget b))
)
aber wie berwerkstellige ich es, bei einer mehrfachauswahl von
textobjekte sämtliche elementenlisten anzeigen zu lassen ?
hab dies jetzt schon mehrere stunden vergeblich versucht !
bitte um hilfe !!

mfg walter

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

---

Hallo Walter,
Du kannst den Index in ssname so lange hochzählen, bis der nil zurückgibt:

Code:

---

(setq index 0)
(while (setq b (ssname a index))
  (print (entget b))
  (setq index (1+ index))
)

---

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

(defun c:as (/ a b c i abbruch)
  (if(setq a (ssget '((0 . "TEXT"))))
    (progn
      (setq i -1)
      (while (and(< (1+ i) (sslength a))
                  (not abbruch)
              )
        (setq b (ssname a (setq i (1+ i))))
        (princ "\n")
        (princ(entget b))
        (initget "Ja Nein")
        (setq Abbruch(=(getkword "\nAbbruch [Ja/Nein]:<Nein> ") "Ja"))
      )
    )
  )
)

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

---

hallo !
besten dank für eure schnelle hilfe !
ich hoffe ich quäle das forum nicht
mit solchen einfachen fragen !!!

mfg walter

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