---

Ich habe über 50000 normale Punkte in meiner CAD-Zeichnung.
Nun muss ich die Koordinaten (XYZ) auslesen allerdings in meinem Benutzerdefinierten Koordinatensystem (BKS).
Im Eigenschaftenfenster werden die Koordinaten richtig angezeigt und wenn ich sie mit Liste anzeigen lasse sind sie auch richtig aufgelistet.
Versuche ich sie aber mit eattext auszulesen werden WKS-Koordinaten angezeigt.
Jetzt kann ich zwar das Protokoll der Liste speichern allerdings zwingt Autocad mich ja nach jedem vollen Bildschirm return zu drücken damit die Auflistung weiter geht. Das dauert ewig.
Vielleicht kennt jemand einen Weg das Return drücken zu umgehen oder anders an die BKS-Koodinaten zu kommen?
Ich arbeite mit Civil 3D 2010.

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

---

Hi,

hatten wir vor kurzem schon mal und da hatte ich den Tip:

In Deiner aktuellen Zeichnung mit (verstelltem) BKS ==> Punkte selektieren ==> Kopieren mit Basispunkt

Dann neue Zeichnung (eingestellt mit Weltkoordinatensystem) ==> Einfügen

Dann kannst Du '_eattext' machen und es sieht aus, als wären diese von Deinem benutzerdefinierten KS.

- alfred -

------------------
www.hollaus.at

---

So hätte ich jetzt auch getrixt.
Ich dachte es würde noch eine andere Möglichkeit geben.... Schade

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

---

Hallo BB-CAD

Es giebt immer eine andere Möglichkeit 

Ich habe Dir mal ein kleines Lisp zusammengebastelt (Betonung auf gebastelt, den Profis wird es warscheinlich schlecht wenn sie den Code sehen  ). Kannst es ja mal ausprobieren.

Wie du ein Lisp lädst erfährst du Hier  wenn Du dies noch nicht weisst.

Benutze es einfach mit vorsicht da ich nicht den Wissensstand habe um alle Eventualitäten vorauszusehen.

Gruss Steff

Code:

---

(defun c:PunktExport ( / ss sl koord FileName File i zeile save-dimzin cs meldung)
  (setq save-dimzin (getvar "dimzin"))
  (setvar "dimzin" 2)
  (setq ss (ssget '((0 . "POINT")) ))
  (initget 1 "Welt Benuzer")
  (setq cs (getkword "\nPunkte exportiren in [Welt / Benuzer] Koordinatensystem? "))
  (cond
    ((= cs "Welt")(setq cs 0))
    ((= cs "Benuzer")(setq cs 1))
  )
  (setq FileName (getfiled "Ausgabe Datei speichern" "" "txt" 1))
  (setq File (open filename "w"))
  (setq sl (sslength ss) i 0)
  (repeat sl
    (setq koord (trans (cdr (assoc 10 (entget(ssname ss i)))) 0 cs))
    (setq zeile (strcat (rtos (car koord) 2 3) " , " (rtos (cadr koord) 2 3) " , "  (rtos (caddr koord) 2 3) ))
    (write-line zeile file)
    (setq i (+ i 1))
  )
  (close File)
  (setq meldung (strcat "\nEs wurden " (rtos i 2 0) " Punkte exportiert!"))
  (setvar "dimzin" save-dimzin)
  (princ meldung)
  (princ)
)

---

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

---

Weltklasse.
Genau das habe ich gesucht. Funktioniert einwandfrei.

Vielen Dank
Birgit

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