(defun c:ufl00001 ( / pp1 pp2 )
;線分を作図する
  (setq pp1 (list 10.0 10.0 0.0))
  (setq pp2 (list 30.0 20.0 0.0))
  (command "line" "none" pp1 "none" pp2 "")
  (princ)
)