(defun c:fva ()
  (setq n (length lx) k 0)
  (command "pline")
  (repeat n
    (setq x (nth k lx) y (nth k ly))
    (setq P (list x y))
    (command P)
    (setq k (+ k 1))
    )
  (command "")
  )