;----------------------------------------
; L„nge einer Linie ermitteln 30.6.91 AW
; eingebaut in a12b9
;----------------------------------------
(Defun C:LAENGE ()
  (Setvar "Cmdecho" 0)
  (Setq A (Entsel "\nLinie w„hlen: "))
  (If
    A
      (Progn
        (Setq B (Entget (Car A)))
          (If
            (= "LINE" (Cdr (Assoc 0 B)))
              (Progn
                (Setq D1 (Rtos
                           (Distance (Cdr (Assoc 10 B)) (Cdr (Assoc 11 B)))
                           (Getvar "Lunits")
                           (Getvar "Luprec")
                         )
                )
                (Princ (Strcat "\nL„nge: " D1 "."))
              )
              (Princ "\nObjekt ist keine Linie!")
          )
      )
      (Princ "\nKein Objekt gefunden!")
  )
  (Princ)
)
