---

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

---

Da wurde eine Option bei Befehl FÜHRUNG/_LEADER umbenannt.
Früher hieß sie MTEXT nun heiß sie Beschriftung/_Annotation.

Den fett markierten Teil des Programmes ädern (sind nur 2 Buchstaben), dann läuft es wieder.

Code:

---

... 
        (Command "_.leader"
            (trans pkt1 0 1)
            pause
          "_A" ; Angepasst an 2008 von Udo Hübner
            pt1
            pt2
            ""
            ) ;_ end of Command
            ...

---

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

Udo Hübner
www.CAD-Huebner.de

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

---

Das wars schon, vielen Dank

------------------
Bis demnächst
Rainer

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