Hallo liebes Forum,
anbei eine Lisp Routine, welche eine Bogenbeaßung erstellt. Leider immer mit 4 Stellen hinter dem Komma.
Da ich keine Ahnung von Lisp habe , folgende Bitte: Was muß ich hier ändern oder ergänzen, damit die
Kommastellen wegfallen, mir reichen ganze Millimeter. Ist für euch bestimmt ein leichtes.
;REM Bogenbemasung
(defun c:BemBL(/ es en el len)
(setq es(entsel "Bitte Bogen wählen: "))
(if es (progn
(setq en(car es)
el(entget en)
)
(if (= "ARC" (cdr (assoc 0 el)))(progn
(setq len(BogenLaenge el))
(command "_dimangular"
es
"_text"
(strcat "b=" (rtos len 2))
)
);else
(alert "Funktioniert nur mit Bögen")
)
))
(princ)
)
;REM Ermittlung der Bogenlänge Für BEMBL BemBLw
; Umfang Kreis = 2*R*pi
; Länge Bogen: Umfang/360 = Len/Eingeschl.Winkel
(defun BogenLaenge(el / sw ew w )
(setq sw (cdr (assoc 50 el))
ew (cdr (assoc 51 el))
)
(if (> sw ew)
(setq w (+ ew (- (* pi 2) sw))) ; sw von 360 Grad abziehen
;else
(setq w (- ew sw))
)
(* (cdr(assoc 40 el)) w) ; Mit Radius multiplizieren
)
;REM Bogenbemassung mit zusätzlicher Winkelangabe
(defun c:BemBLwi(/ es en el len)
(setq es(entsel "Bitte Bogen wählen: "))
(if es (progn
(setq en(car es)
el(entget en)
)
(if (= "ARC" (cdr (assoc 0 el)))(progn
(setq len(BogenLaenge el))
(command "_dimangular"
es
"_text"
(strcat "<> L=" (rtos len 2))
)
);else
(alert "Funktioniert nur mit Bögen")
)
))
(princ)
)
Vielen Dank schon mal
Alderon
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP