Hallo NG
Mein Bruder arbeite mit AutoCAD LT 2000 und 2004. Die Bogenbemaßung wird bei LT nicht unterstützt. Nun hat er ein bogen.LSP Programm von seinem alten Lehrer bekommen. Wie kann ich es bewerkstellingen das AutoCAD LT 2000 oder 2004 das Programm ausführen kann.
Programm CODE
(defun C:BoL ()
(setvar "OSMODE" 512)
(setq EL (entget (car (entsel "Bogen antippen: "))))
(if (= (cdr (assoc 0 EL)) "ARC")
(progn
(setq Radius (cdr (assoc 40 EL)))
(setq AWinkel (cdr (assoc 50 EL)))
(setq EWinkel (cdr (assoc 51 EL)))
(if (< AWinkel EWinkel)
(setq Winkel (- EWinkel AWinkel))
(setq Winkel (+ (- (* 2 PI) AWinkel) EWinkel)) )
(setq bl (* Radius Winkel))
(setq hlp (strcat " Radius: " (rtos Radius 2 3)
" Bogenlänge: " (rtos bl 2 2)))
(setvar "OSMODE" 0) (princ hlp) (princ)
) ) )
------------------
----------------
Gruß
geddo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP