Hallo,
ich bin neu hier habe bis jetzt mit Autocad 2002 gearbeitet und bin jetzt auf Bricscad v14 umgestiegen.
Ich habe mit folgender Lisp-Routine immer Koordinaten von Punktnummern (Text) in eine *.txt Datei geschrieben
--------------------------------------------------------------------------
(defun C:text_xy ( / aws datei dateiname n)
(setq dateiname
(getfiled "Datei auswählen:" "" "txt" 1))
(if dateiname
(progn
(setq datei (open dateiname "w"))
(princ "\nBitte Texte und M-Texte auswählen:")
(setq aws (ssget (list (cons -4 "<OR")
(cons 0 "TEXT")
(cons 0 "MTEXT")
(cons -4 "OR>"))))
(if aws
(progn
(setq n 0)
(princ "\n0 Texte ausgelesen.")
(repeat (sslength aws)
(write-line
(strcat
(cdr(assoc 1 (entget(ssname aws n))));;Textinhalt
" ";;;Leerzeichen
(rtos(car(cdr(assoc 10 (entget(ssname aws n)))))2 3)
;;x mit 6 Nachkommastellen
" ";;;Leerzeichen
(rtos(cadr(cdr(assoc 10 (entget(ssname aws n)))))2 3)
;;y mit 6 Nachkommastellen
)datei)
(princ (strcat "\r" (itoa (+ n 1))" Texte ausgelesen."))
(setq n (+ n 1)))
(princ (strcat "\nDie Texte wurden in der Datei "dateiname
" gespeichert.")))
(alert "Es wurden keine Texte ausgewählt."))
)
(alert "ungültiger Dateiname"))
(princ))
--------------------------------------------------------------------------
Wenn ich diese Lisproutine in Briccad ausführe, bekomme ich als Ergebnis eine leere *.txt Datei
Kann mir jemand sagen, wie ich die Routine anpassen kann?
Besten Dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP