---

Moin liebe Gemeinde!
Ich suche nach einer Möglichkeit, die Länge eines Bogens zu bemaßen. Ich benutze MDT6 und habe selbst auf Anhieb keine Lösung gefunden.
Gruß, Monti

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

---

Hallo Monti,

mir ist nichts bekannt.

Am nächsten kommt vielleicht ein Winkelmaß, und die Maßzahl händisch durch den mit Liste abgefragten Längenwert ersetzen.

mfg - Leo

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

---

Schau mal in dem Beitrag http://ww3.cad.de/foren/ubb/Forum54/HTML/001651.shtml
da ist doch sicher was dabei.

------------------
Gruss
Caladia

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

---

Hallo monti,

hilft dir dieses kleine Lisp-Programm ?

(defun C:Bogenmass ( / auswahl eintrag radius zentrum start_winkel end_winkel pkt masstext)
;
(SETVAR "CMDECHO" 0)
(setq auswahl nil)
(while (not auswahl)
  (setq auswahl (car (entsel "\n Bitte Bogen auswählen... "))))
(setq eintrag (entget auswahl))
;
(if (/= (cdr (assoc 0 eintrag)) "ARC")
  (alert (strcat "Es wurde kein Bogen gewählt"))
; else
  (progn
  (setq zentrum      (cdr (assoc 10 eintrag))
        radius      (cdr (assoc 40 eintrag))
        start_winkel (cdr (assoc 50 eintrag))
        end_winkel  (cdr (assoc 51 eintrag)))
;
  (if (> start_winkel end_winkel) (setq end_winkel (+ end_winkel pi pi)))
  (setq pkt (polar zentrum (/ (+ start_winkel end_winkel) 2.0) radius)
        masstext (strcat "%%o" (rtos (* radius (- end_winkel start_winkel)) 2 2)))
;
  (command "_DIM1" "_ANG" pkt "T" masstext pause "")
)) ; if = "ARC"
(princ)
) ; ende defun

Gruß an alle
Helmut

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

---

Danke für Eure Beiträge. Hat mir weiter geholfen.
By, Monti

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