---

Hi leute!!!

Kann mir einer sagen wie ich alle GC10 Gruppencodes einer bsp 15 Eckigen Polylinie auslesen kann?

Ich hab das ganze mit (cdar(cddddr ....(entget objekt)))) usw versucht und dann in einer liste zusammengepackt aber das doch recht umständlich -.- vor allem funktioniert es nur bedingt.

Gibt es eine möglichkeit sowie assoc 10 aber das mit eben alle punkt angezeigt werden und nicht nur der erste...?

hoffe auf hilfe

mfg blue

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

---

hallo blue,
so in der art:

Code:

---

(apply 'append
  (mapcar
    '(lambda (x)
      (if (= 10 (car x))
        (list (cdr x))
      )
    )
    (entget (car (entsel))
  )
)

---

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Noch als Ergänzung zu Marco's Beitrag:
ich würde versuchen eine Funktion für LWPOLYLINE's und POLYLINE's zu schreiben:

Code:

---

(defun c:test ( / koord)
  (setq koord (JBf_Poly->KoordList
                (car(entsel "\nPoly picken:"))))
  )

(defun JBf_Poly->KoordList (obj / )
  (if (=(cdr(assoc 0 (entget obj)))"LWPOLYLINE")
    (mapcar 'cdr(vl-remove-if '(lambda(A)
            (/= 10 (car A)))(entget obj)))
    ;;;wenn keine LWPOLYLINE, dann Koord aus VERTEX'es
    (JBf_Poly->KoordList:Vertex obj))
  )

;;;Koords aus Vertexes
(defun JBf_Poly->KoordList:Vertex (obj / liste)
  (while (and(setq obj (entnext obj))
            (/= (cdr(assoc 0 (entget obj)))"SEQEND"))
    (setq liste (cons (cdr(assoc 10 (entget obj)))liste)))
  (reverse liste))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

hey joern,

danke für deine mühe mir so ne lange funktion zu schreiben aber der code von neurosis is vollkommen ausreichend und trifft perfekt auf mein anliegen zu. 10UNI und vielen dank @ neurosis

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

---

Hallo blue,
kennst Du DAS noch ?
Da gab's das selbe Problem.... 

Grüsse, Henning

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

  http://www.voxelman.de

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