Hallo zusammen,
wir haben zum Anschreiben der Koordinaten folgende Lisp- Datei verwendet:
(defun C:koord (/ STYLE_LIST MD_ERR FF pkt1
pkt2 pktlst pt1 pt2 el
zz ename pflag
)
(vl-load-com)
(command "_ucs" "_w")
(Setq pkt1 (Getpoint "\nPunkt wählen "))
(While (not (null pkt1))
(prompt "\nPosition des Textes: ")
(command "_UCS" "_O" (trans pkt1 1 0))
(setq pt1 (strcat "x = " (rtos (car pkt1)2 2))
pt2 (strcat "y = " (rtos (cadr pkt1)2 2))
) ;_ end of setq
(SETQ ZZ (entlast))
(if (= (cdr(assoc 0(entget zz)))"INSERT")
(progn
(command "_point" "0,0,0")
(setq zz (entlast))
(setq pflag T)
)
)
(Command "_.leader"
(trans pkt1 0 1)
pause
"M"
pt1
pt2
""
) ;_ end of Command
(setq pkt2 nil)
(setq el (entnext zz))
(setq ename (vlax-ename->vla-object el))
(vla-put-arrowheadtype ename acArrowDotBlank)
(command "_ucs" "_w")
(Setq pkt1 (Getpoint "\nPunkt wählen "))
(if pflag
(entdel zz)
)
) ;_ end of While
(princ)
) ;_ end of defun
Leider lässt sich nicht mehr nachvollziehen, von wem der Code stammt. Das Problem ist, dass das Programm ab AutoCAD 2008 nicht mehr funktioniert. Es wird ein Mtext mit dem Inhalt
_ucs
_w erstellt und das BKS wechselt auf Unbenannt.
Kann mir jemand sagen, wie man das ändert? Es gibt zwar noch andere Möglichkeiten, Koordinaten anschreiben zu lassen, o. g. ist aber das beste.
------------------
Bis demnächst
Rainer
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP