wide 发表于 2024-5-15 17:34:42

鼠标右键或回车结束取点

本帖最后由 wide 于 2024-5-15 17:40 编辑

      怎么才能鼠标右键或回车结束取点？这个(if (= nil (getpoint)) (setq aa nil))好像不对。{:1_1:}   
       (setq aa t ptlst '())
      (while aa
                (setq ptlst (cons (getpoint) ptlst))
                (if (= nil (getpoint)) (setq aa nil))
      )
这样好像只能取4个点。

qazxswk 发表于 2024-5-15 17:50:24

(defun c:11 (/ptlst pt)
(setq ptlst '())
(while (setq pt (getpoint))(setq ptlst (cons pt ptlst)) )
(foreach x ptlst (entmake (list '(0 . "CIRCLE") (cons 10 x) (cons 40 100))) )
)

guosheyang 发表于 2024-5-15 20:42:30

本帖最后由 guosheyang 于 2024-5-15 20:43 编辑

试试这个
(setq ptlst '())
      (while (setq p(getpoint))
               (setq ptlst (cons p ptlst))
         )
    (reverse ptlst)
页: [1]
查看完整版本: 鼠标右键或回车结束取点