---

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

---

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

---

xy-koor.zip

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

---

Du musst diese Zeile: (setq pkt(cdr (assoc 10 (entget en))))
so ändern:
(setq pkt (trans(cdr (assoc 10 (entget en)))0 1))

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

@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

---

@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

---

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

---

Genau so 
Dafür das ich es nicht mehr zu machen brauche, lasse ich natürlich 10 Units springen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Ja, auch genauso.
Super vielen Dank.

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

---

Danke Euch allen!

Genau danach hab ich gesucht!   

liebe Grüße,
                          mARTin

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