(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
)