Question

autolisp连续取点问题

1、怎样使用autolisp通过连续取点得到一个点的集合，再用直线或者多段线将这个集合里面的点全部连接起来。
2、使用getpoint函数做循环的时候，怎样通过键盘输入空格/回车，循环自动结束，而得到一个点的集合。
求大神指教

Answer 1

(defun C:li()
  (setq p (getpoint "\n选择第一个点"))
  (setq pt (list p))
  (while p
    (setq p (getpoint "\n选择选择一个点"))
    (setq pt (append pt (list p)))
    
  )
  (setq n (length pt))
  (setq index 0)
  (repeat (- n 2)
    (setq p1     (nth  index pt)
	  index (1+ index)
	  p2    (nth  index pt)
    )
    (command "line" p1 p2 "")

    
  )
  )