Délka skupiny entit

Po načtení skriptu je k dispozici příkaz GLEN, který vyzve k výběru entit a zobrazí jejich celkovou délku. Je možné vybrat úsečku, křivku, spline, kružnici nebo oblouk. Délka je zobrazena v dialogovém okně (příkaz alert) i v příkazovém řádku (princ).

---

(defun C:GLEN (/ sel en en1 l lc ct vval)
	
	(setq sel nil)
	(setq lc 0)
	(setq ct 0)
	(setq vval (getvar "cmdecho"))
	(setvar "cmdecho" 0)
	
	(princ "\nVyberte entity pro mereni delky: ")
	(setq sel (ssget))
	
	(if sel
				(progn
				(repeat (sslength sel)
				
				(setq en (ssname sel ct)) ;get entity name
				(command "_area" "_o" en)	
				(setq l (getvar "perimeter"))
				(setq lc (+ lc l))	
				(setq ct (1+ ct))	
					
				) ; end sel group repeat
	))
	(alert (strcat "Delka entit je " (rtos lc)))
	(princ (strcat "\nDelka entit je: " (rtos lc)))
	(setvar "cmdecho" vval)
	(princ)
)

---

Soubor ke stažení