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í