---

Hallo erstmal

hab ne frage gibts ein lisp

das zb. einen text ändert mit der abmessung zweier punkte

dh. ich messe eine länge von 2metern horizontal oder vertikal ab
und klick auf den text und der wird auf 2.00 zb. umgeschrieben

besten dank

ivan

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

---

Hallo ivan,
was gefällt Dir nicht an der Bemaßungsfunktion?

------------------
Viele Grüße Lutz

Glück Auf!

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

---

hmm ich möcht nicht ne bemassung sondern

zb. in einem längenprofil die texte eingeben

dann abmessen und auf text klicken um das abgemessene
in text zu ändern

dh. ich hab ne 2.00m lange linie rechts daneben einen text zb. 0.00
ich würd gerne den text automatisch ändern lassen nach abgreifen zweier punkte
so das der text 0.00 auf 2.00m abgeändert wird

dh. nicht so wie kommerziel mit messen dann den abstand ablesen und diesen text dann Ctrl+C
dann den text 0.00 anklicken unc Ctrl+V

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

---

hallo bpcad

eine möglichkeit wäre, in den text gleich ein schriftfeld einzubinden.
das schriftfeld dann mit der länge des objektes verknüpfen....
voila... schon steht die entsprechende länge drin.
und bei einer änderung des objektes (strecken, kürzen) wird automatich nach einem regen der text aktualisiert.

------------------
Grüße Stefan

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

---

Morgen Ivan,

mich würd's interessieren, für was Du das brauchst. Geht's dir nur darum, das keine Bemassungslinien da sind? Dann könnte dir dieser Workaround weiterhelfen.

------------------
Gruß

Michi

"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden."

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

---

So nun kann ich auch
endlich mal etwas hier beitragen, ohne
eine Frage zu stellen.

Code:

---

(defun c:dist_txt ()
(setq dis (distance (setq p1 (getpoint "\n1. Punkt")) (getpoint p1 "\n2. Punkt")))
  (setq text_ele nil)
  (while (= text_ele nil)
  (setq text_ele (car (entsel "\nTextelement picken")))
(if text_ele
    (progn
  (if (= (cdr (assoc 0 (entget text_ele))) "TEXT")
(progn
  (setq ed (entget text_ele))
  (setq ed (subst (cons 1 (rtos dis 2 2)) (assoc 1 ed) ed))
  (entmod ed)

);
        (setq text_ele nil)
        );if
    )
);if
);while
)

---

------------------
schöne Grüsse

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

---

vielen dank kist hat perfekt geklappt

hätt nen wunsch noch da ich kein lisp-hirsch bin

den text änderts mir auf 2 statt 2.00

sobald ich ne länge zb. 1.76 dann schreibts auch so

wie kann ich die die kommastellen auf 2 fixieren

Besten dank nochmals
cooles und rasches forum hier

grüsse ivan

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