(defun c:linie1 ( / p1 p2 )
(setvar "cmdecho" 0)
(setq p1 (getpoint "\nPrimul punct: "))
(if p1
(setq p2 (getpoint p1 "\nAl doilea punct: "))
)
(if (and p1 p2)
(command "line" p1 p2 "")
;;sau daca doriti...
;;(entmake (list ‘(0 . "LINE") (cons 10 p1) (cons 11 p2)))
)
(princ)
)