---

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

---

Hallo Mario,

lass doch durch das Tool Fläche und Umfang schreiben und verschiebe dann beide.

Bei Fragen...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Hallo Holger,

genau da liegt das Problem. Eine Ausführungszeichnung Bau, M 1: 50 ist meistens so vollgekracht mit Informationen, dass man selten alles sauber untereinander plazieren kann.

Grüße Mario

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

---

Hallo Mario,

versuch es mal so.

(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") 25.0 0.0 (strcat "A " (rtos flaeche 2 2) "qm"))
  (command "_move" (entlast) "" "@" pause)
  (command "_text" (getpoint "\nEinfügepunkt für Umfang") 25.0 0.0 (strcat "U " (rtos umfang 2 2) "m"))
  (command "_move" (entlast) "" "@" pause)

  (princ)
)

Du musst natürlich die Schriftgröße und den Winkel noch deinen
Bedürfnissen anpassen

ich hoffe es hilft.

Gruß
cad-lisp

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

---

Hallo Cad-lisp,

das ist genau das was ich suchte.

Das mit den Schriftgrößen wird andernorts geregelt, habe ich der Übersichtlichkeit halber weggelassen, trotzdem Danke.

ein Strike für Deine U's-sammlung

Grüße Mario

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