鼠标右键或回车结束取点

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

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

怎么才能鼠标右键或回车结束取点？这个(if (= nil (getpoint)) (setq aa nil))好像不对。

   (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)

账号		自动登录	找回密码
密码			注册

[提问] 鼠标右键或回车结束取点