Papao
Guest
Ich habe ein altes Datum Lisp, das erlaubt, den Abstand zwischen zwei Punkten jeder Einheit (Archien, Kreise, gerade) zu messen;
es funktionierte immer richtig in alten Versionen von autocad, aber nicht mehr mit aktuellen Versionen.
der Befehl wurde einer kundenspezifischen Taste zugeordnet, aber bei seinem Druck, trotz der Lispe es richtig beginnt, bleibt es auf einen weiteren Druck der "Insertion" Taste oder "Raumleiste" warten, um dann richtig zu tun.
Kann mir jemand helfen?
es funktionierte immer richtig in alten Versionen von autocad, aber nicht mehr mit aktuellen Versionen.
der Befehl wurde einer kundenspezifischen Taste zugeordnet, aber bei seinem Druck, trotz der Lispe es richtig beginnt, bleibt es auf einen weiteren Druck der "Insertion" Taste oder "Raumleiste" warten, um dann richtig zu tun.
Kann mir jemand helfen?
Code:
"berechnen den Abstand zwischen zwei Punkten
(defun clerr)
(falls ein Fehler auftritt (wie z.B. ctrl-c)
(princ (strcat "\nerror: "s) ; während dieser Befehl aktiv ist. .
)
(if (= (getvar "username") "xxxxxxxxxxx, xxxxx srl") (setvar "osmode" 37) (setvar "osmode" 1))
(setq *error* älterr; wiederherstellen alter *error* Handler
(princ)
)
(defun c:pdist(/ saveosnapmode dist1 miodist)
(setq älterr*error*)
*error* clerr)
(setq saveosnapmode)
(Befehl "'_osnap" "_nea")
(setq dist1 (getpoint "touch the first point ") )
(Befehl "'_osnap)
(setq miodist (getdist dist1 "touch the second point ") )
(setvar "osmode" saveosnapmode)
(princ "\n der Abstand ist ")
(princ miodist)
(setq *error* älterr; wiederherstellen alter *error* Handler
(princ)
)