---

Hi an alle!!!

Ich wollte mir einen Code schreiben der mir den Diagonalenschnittpunkt eines Rechtecks als bezug nimmt. Problem ist nur wenn ich mit "entsel" die Koordinaten aller einzelnen Gruppencodes anzeigen lasse also speziell den code "10" werden mir 4 Punkte mit dem code 10 gelistet. Wenn ich diese aber jetzt mit assoc auslesen will, zeigt es mir nur den ersten an. Mit welcher Methode kriege ich auch die anderen 3 Koordiaten???

mfg blue

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

---

versuchs mit
(mapcar 'cdr(vl-remove-if-not '(lambda(X)(=(car X)10))(entget(car(entsel)))))

oder gleich der Diagonalenschnittpunkt

(setq PKTS(mapcar 'cdr(vl-remove-if-not '(lambda(X)(=(car X)10))(entget(car(entsel))))))
(list
  (/(apply '+ (mapcar 'car  PKTS))(float(length PKTS)))
  (/(apply '+ (mapcar 'cadr  PKTS))(float(length PKTS)))
)

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

---

@CADmium,
ich glaube Deine Zeile alleine verwirrt ein bißchen, ich habe es so im Gefühl, daß blue noch nicht allzu tief im LISP drinsteckt (vielleicht irre ich mich ja auch)

Also, wie die Zeilen von CADmium, nur ein bißchen ausführlicher:

Variante 1: mit viele (unnötigen) Zwischenvariablen

Code:

---

(defun c:test ( / LISTE OBJ P1 P2 P3 P4 SP)

(setq obj(car(entsel "Poly wählen")))

(setq liste (entget obj))
;;;mit vl-remove-if alle ungleich 10 rausschmeißen
(setq liste (vl-remove-if '(lambda(A)(/= (car A)10))liste))
;;;wenn es ein Rechteck ist hast Du genau 4 Punkte
(setq p1 (cdr(car liste)))
(setq p2 (cdr(cadr liste)))
(setq p3 (cdr(caddr liste)))
(setq p4 (cdr(cadddr liste)))

(setq sp(inters p1 p3 p2 p4))
  (command "_Point" sp)

  )

---

Variante 2: ein bißchen mehr verschachtelt, und dann geht das dann auch schon in die Richtung von CADmiums Zeile

Code:

---

(defun c:test1( / LISTE OBJ)

(if(setq obj(car(entsel "Poly wählen")))
  (progn
    (setq liste (mapcar 'cdr(vl-remove-if '(lambda(A)
    (/= (car A)10))(entget obj))))
    (command "_Point" (inters (car liste)(caddr liste)
      (cadr liste)(cadddr liste))))))

---

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

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

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

---

Da das Herausfiltern mehrerer gleicher GC's öfters benötigt wird, wäre es sinnvoll, hierfür eine extra Funktion zu schreiben, (wie z.B. HIER ohne vl-Funktionen). Oder Du nimmst Cadmiums Code:

Code:

---

(defun multi-assoc (ename gc/ )
  (mapcar 'cdr(vl-remove-if-not '(lambda(X)(=(car X) gc))(entget ename)))
)

---

Aufguf dann z.B.

Code:

---

(defun c:test ( /  OBJ)
  (setq obj(car(entsel "Poly wählen")))
  (setq punkte (multi-assoc obj 10))
)

---

Grüsse, Henning

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

       http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 20. Jul. 2011 editiert.]

[Diese Nachricht wurde von wronzky am 20. Jul. 2011 editiert.]

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

---

Jo danke schonmal für die vielen Variationen, werde es gleich ausprobieren und mich bei Gelegenheit wieder melden...

mfg blue

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