; Lisp-Programm zum Pline-Längen-Absetzen
; 12.8.97 Lieske
(defun c:lengplin
  ( / ech di sel el)
  (setq ech (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n ")
  (princ "\n Messen der Längen von PolyLinien")
  (princ "\n Wert durch Anpicken eines vorhandenen absetzen")
  (princ "\n von tgl am 13.8.97")
  (repeat 50
    (princ "\n ")
    (princ "\n   Pline picken:")
    (command "_.area" "_e" pause)
    (setq
      di   (getvar "PERIMETER")           ; SysVar für Pline-L„nge
      sel  (entsel "\n   vorhandenen Text picken... ");  Element und Pickpunkt
      el   (entget (car sel))             ; Element (Text)
      el   (subst (cons 1 (rtos di 2 3)) (assoc 1 el) el) ;[m] mit 3 Nachkomma
    ) ;of setq
    (entmod el)
  ) ;of repeat
  (setvar "CMDECHO" ech)
  (prin1)
) ;end.