30 lines
799 B
Common Lisp
30 lines
799 B
Common Lisp
;----------------------------------------
|
|
; 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)
|
|
)
|
|
|