---

Hi!
Habe ein kniffliges Problem:
Ich möchte die XYZ Koordinaten eine LWpolyline im Raum auslesen, ohne die VLX-... Funktionen zu benutzen (gehen bei mir im ACAD2006 mit W7 nicht)

Das übliche Auslesen mit "assco 10" bringt mir nur die OCS/OKS Koordinaten, ich brauche jedoch die im WCS/WKS - jene die auch mit "_List" angezeigt werden!

Kann mir da jemand helfen?
Muss ja auch nicht kostenlos sein, PAYPAL Konto genügt :-)

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

---

... guck dir mal die Funktion  trans an .. --> F1

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

---

Danke. Aber trans geht doch nur von UCS zu WCS und retou, nicht aber ins OCS??

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

---

1. Willst du kein OCS (kann ich mir kaum vorstellen   )
2. liefert dir _list die Daten in bezug auf das UCS und du erhälst bereits Daten im WKS mit deinem Assoc - was eigentlich
deine Anfrage war.. also sammel dich und deine Gedanken noch einmal und stelle die Frage erneut, zudem schau dir dann die
Hilfe zu TRANS an, dann ergeben sich auch weniger Fragen.

edit.Jetzt kam ich selbst durcheinander wegen deinem Aufsatz 
schau einfach nach trans, dann wird es was <sorry>

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

[Diese Nachricht wurde von cadffm am 09. Nov. 2011 editiert.]

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

---

Hi,
in etwa so:

Code:

---

(defun c:get-coords ()
  (get-lw-poly-wks-coords (ssname (ssget "_:S" '((0 . "LWPOLYLINE"))) 0))
)

(defun get-lw-poly-wks-coords (ele / )
  (mapcar '(lambda (x) (trans (cdr x) ele 0)) (multi-assoc 10 (entget ele)))
)

(defun multi-assoc (key liste / return)
  (if (and liste (setq return (assoc key liste)))
    (cons return (multi-assoc key (cdr (member return liste))))
  )
)

---

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

---

Hi Henning,

genau so!
Vielen lieben Dank!

Problem gelöst!

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

---

Hi nochmal!
Doch nicht gelöst!
Die trans funktion funktioniert zwar, aber FALSCH!

Die unten gelistete Funktion soll nichts anderes tun, als bei einer LWPolylinie im Raum an jedem Vertex einen Punkt zu zeichnen.
Sie zeichnet zwar Punkte, aber um einen undefinierbaren Abstand versetzt!
Ich komme nicht drauf - Hilfe

(defun c:ipoly ()
  (command "ucs" "W")
  (setq selname (entsel "Select lwpolyline: "))
  (setq entnme (car selname))
  (setq xlst (entget entnme))
  (setq Leftlist '())
  (setq lstlen (length xlst))
  (setq cnt 0)
  (while (not (= lstlen cnt))
    (setq ele (car (car xlst)))
    (if (= ele 10)
      (setq Leftlist (append Leftlist (list (cdr (car xlst)))))
    )
    (setq xlst (cdr xlst))
    (setq cnt (+ cnt 1))
  )
  (setq l (- (length Leftlist) 1))

(setq cnt 0)
(while (/= cnt l)
  (progn
    (setq p1 (nth cnt leftlist))
    (setq cnt (+ cnt 1))
    (command "_point" (trans p1 (car selname) 0 0))
  )
)

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

---

ein Codeschnipsel zum testen:

(if(and(setq OBJ(car(entsel "\LWPL wählen:")))
      (setq DATA(entget OBJ))
      (setq PKTS(vl-remove-if-not'(lambda(X)(=(car X)10))DATA))
  )
  (mapcar
    '(lambda(x)(trans (append (cdr X)(list (cdr(assoc 38 DATA))))  OBJ 0))
    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

---

@Thomas!

Ja, jetzt funktioniert es. Super!

Vielen Dank!

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

---

Haste es auch verstanden ?

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

---

Ja, danke!

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