smartstar 发表于 2013-4-26 21:49:05

如何用“空格”、“鼠标右键”、“回车”让如下程序跳出循环？

如何用“空格”、“鼠标右键”、“回车”让如下程序跳出循环？(defun c:CC()
(setq ss (ssget))
(setq pt0(getpoint "\n指定复制基点:"))
(while T
    (command ".copy" ss "" pt0 pause)
)
)

Andyhon 发表于 2013-4-26 21:59:47

研究下 Copy 的 Multiple 选项 ...

smartstar 发表于 2013-5-2 12:18:12

继续求解！

自贡黄明儒 发表于 2013-5-2 13:06:49

本帖最后由 自贡黄明儒 于 2013-5-2 13:09 编辑

下面如何?

(defun c:CC ()
(setq ss (ssget))
(setq pt0 (getpoint "\n指定复制基点:"))
(setq bool T)
(while bool
    (command ".copy" ss "" pt0 pause)
    (setq pt (getvar "lastpoint"))
    (if (equal pt pt0)
      (setq bool nil)
   (setq pt0 pt)
    )
)
)

smartstar 发表于 2013-5-2 14:06:10

自贡黄明儒 发表于 2013-5-2 13:06 static/image/common/back.gif
下面如何?

如果想在原位复制图元就会退出了。
页: [1]
查看完整版本: 如何用“空格”、“鼠标右键”、“回车”让如下程序跳出循环？