| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: LWPolyline Koordinaten im WKS Raum auslesen (1246 mal gelesen)
|
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 15:00 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Nov. 2011 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für profly
|
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 15:04 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 09. Nov. 2011 15:08 <-- editieren / zitieren --> Unities abgeben: Nur für profly
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 |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 09. Nov. 2011 15:14 <-- editieren / zitieren --> Unities abgeben: Nur für profly
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 |
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 15:33 <-- editieren / zitieren --> Unities abgeben:
|
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 16:24 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Nov. 2011 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für profly
|
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 17:34 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Nov. 2011 17:51 <-- editieren / zitieren --> Unities abgeben: Nur für profly
|
profly Mitglied designer
Beiträge: 9 Registriert: 03.01.2008
|
erstellt am: 09. Nov. 2011 18:16 <-- editieren / zitieren --> Unities abgeben:
|