CAD programy 4M
Délka entity
Aplikace zobrazí délku křivky, spline, kružnice či elipsy v CAD výkrese. Volá příkaz AREA a délka je po té získána z hodnoty systémové proměnné PERIMETER.Není podporována úsečka a oblouk. Pro délku úsečky lze použít funkci distance() s parametry koncových bodů, pro oblouk výpočet dle středu a koncových bodů.
(defun C:ELEN (/ ent l) (setq ent (entsel "\nZvolte entitu (krivka, spline, kruznice, elipsa): ")) (command "_area" "_o" ent) (setq l (getvar "perimeter")) (alert (strcat "Delka entity je " (rtos l))) (princ) )
Soubor ke stažení