Hallo zusammen,
ich habe folgendes Problem, ich möchte mir ein Routine zur Flächenberechnung und Beschriftung schreiben. Dabei möchte ich, dass der Text am Mauszeiger bis zur endgültigen Positionierung "kleben" bleibt.
Das getpoint bei move/Flaeche verhindert die Anzeige des Wertes am Mauszeiger. Ohne dieses getpoint gehts wunderbar, allerding wird der Umfang nicht mehr berechnet, da im Programmablauf falsche Eingaben getätigt werden.
Hat jemand 'nen Tip?
1000 Dank vorab und
Grüße von Mario
(defun c:AU ( / obj flaeche umfang faktor exitflag)
(setq exitflag nil)
(setq obj nil)
(setq faktor 0.001)
(setq obj (entsel "\nFläche wählen: "))
(command "_area" "o" obj)
(setq flaeche (* faktor faktor (getvar "area")))
(setq umfang (* faktor (getvar "perimeter")))
(command "_text" (getpoint "\nEinfügepunkt für Fläche") "0" (strcat "A " (rtos flaeche 2 2) "qm"))
(command "_move" (entlast) "" "@" (getpoint))
(command "_text" (getpoint "\nEinfügepunkt für umfangng") "0" (strcat "U " (rtos umfang 2 2) "m"))
(command "_move" (entlast) "" "@")
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP