| |
| 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: xyz-Koordinaten in Benutzerkoordinatensystem (2042 mal gelesen)
|
engelni Mitglied Bauzeichnerin
Beiträge: 87 Registriert: 03.05.2007 xp, AutoCad Civil 3D 2012, BBSoft
|
erstellt am: 01. Okt. 2007 16:11 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe mir die Lisp "xy-koor.lsp" von cadwiesel.de heruntergeladen. Soweit ist die Funktion super in Ordnung. Nur leider werden dort die Koordinaten im Weltkoordinatensystem angezeigt. Gibt es eine Möglichkeit, (das Lisp vielleicht so umzuschreiben) dass die Koordinaten bezogen auf ein neues Benutzerkoordinatensystem angezeigt werden? Vielen Dank schon mal. Nina Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 01. Okt. 2007 22:45 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
Ja, programm umschreiben ist leicht möglich. Man muss nur die Ffunktion (trans pkt 0 1) ; Rechnet den Pkt von WKS in BKS um an passender Stelle einsetzen. Ich häts vielleicht gemacht, aber xy-koord.lsp konnte ich bei CADwiesel nicht finden, und was die Funktion kann, steht auch nicht hier im Beitrag. ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
engelni Mitglied Bauzeichnerin
Beiträge: 87 Registriert: 03.05.2007 xp, AutoCad Civil 3D 2012, BBSoft
|
erstellt am: 02. Okt. 2007 07:47 <-- editieren / zitieren --> Unities abgeben:
Guten morgen Udo, Entschuldige, dass ich nur die Hälfte geschrieben habe, das war gestern kurz vor Feierabend. OK, ich hänge die Lisp mit dran. Die Funktion der Lisp ist, dass man beliebige Punkte auswählt, und dann werden automatisch daneben x-,y- und bei bedarf z-Koordinaten mit bestimmter Schriftgröße gesetzt. Nur leider sind die Koordinaten eben im WKS und ich bräuchte den Bezug auf einen von mir selbst definierten Nullpunkt. Es wäre echt super super nett, wenn du mir das Lisp umschreiben könntest, denn ich habe leider überhaupt keine Ahnung vom Programmieren. Ich bin froh, wenn ich Autocad ein bißchen bedienen kann. Liebe Grüsse Nina Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 02. Okt. 2007 08:15 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 02. Okt. 2007 08:20 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
@CADWiesel ganz so einfach ist es dann doch wieder nicht, da der Text via Entmake erzeugt wird und die gleiche Koordinate aus pkt benutzt (die bei Entmake weiterhin als WKS angesehen wird), bei verschobenem BKS werden dann auch die Texte verschoben. Also müsste man an dem Programm noch ein paar Zeilen mehr ändern. ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
engelni Mitglied Bauzeichnerin
Beiträge: 87 Registriert: 03.05.2007 xp, AutoCad Civil 3D 2012, BBSoft
|
erstellt am: 02. Okt. 2007 08:30 <-- editieren / zitieren --> Unities abgeben:
@CADwiesel Ich habe die Zeile jetzt ersetzt, aber leider funzt es nicht. Nachdem ich die Objekte gewählt habe, erscheint in der Befehlszeile "nil". @CAD-Huebner Wie würden die "paar Zeilen mehr" denn aussehen? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 02. Okt. 2007 09:06 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
Hallo Nina, Zitat: Wie würden die "paar Zeilen mehr" denn aussehen?[/i]
zum Beispiel so: Code:
.... (setq pkt (cdr (assoc 10 (entget en)))) (setq pkt2 (trans pkt 0 1)) (setq xw (nth 0 pkt) xw2 (nth 0 pkt2)) (setq yw (nth 1 pkt) yw2 (nth 1 pkt2)) (setq zw (nth 2 pkt) zw2 (nth 2 pkt2)) (setq xtw (strcat "X: " (rtos xw2 2 nks))) (setq ytw (strcat "Y: " (rtos yw2 2 nks))) (setq ztw (strcat "Z: " (rtos zw2 2 nks))) ....
LG
Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 02. Okt. 2007 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
|
engelni Mitglied Bauzeichnerin
Beiträge: 87 Registriert: 03.05.2007 xp, AutoCad Civil 3D 2012, BBSoft
|
erstellt am: 02. Okt. 2007 09:35 <-- editieren / zitieren --> Unities abgeben:
|
surfen281 Mitglied Student
Beiträge: 499 Registriert: 08.09.2002 ACA 2016; MAX 2016, Photoshop..... WIN 7 64bit; 2xXeon X5690; Quadro 4000; 48GB RAM;
|
erstellt am: 24. Jun. 2008 02:34 <-- editieren / zitieren --> Unities abgeben: Nur für engelni
|