(defun c:gl (/ as elemli plangli z)
(setq as (ssget (list
'(-4 . "<or")
'(0 . "POLYLINE")
'(0 . "LWPOLYLINE")
'(0 . "LINE")
'(0 . "ARC")
'(0 . "CIRCLE")
'(0 . "SPLINE")
'(-4 . "or>")
)
)
)
(setvar "CMDECHO" 0)
(if as
(setq elemli (bau_elemli as)
z 0
)
)
(if elemli
(progn
(setq plangli
(mapcar
'(lambda (plli)
(command "_.LENGTHEN" plli "")
(getvar "PERIMETER")
);lambda
elemli
);mapcar
)
(terpri)
(princ "Gesamt:\t")
(princ (apply '+ plangli))
(princ)
);progn
);if
)
(defun bau_elemli (asatz / n elemli)
(setq n 0)
(repeat (sslength asatz)
(setq elemli (cons (ssname asatz n) elemli)
n (1+ n)
)
)
elemli
)