如何让一个 lsp （或cad）的命令重复运行，按空格或esc退出？

xiaxiang

不是反复执行命令等待输入，而是反复执行某个动作，对吗

669423907

回复 xiaxiang 的帖子

是反复执行某一命令。

xiaxiang

669423907 发表于 2011-6-13 09:27
回复 xiaxiang 的帖子

是反复执行某一命令。

这样的话用WHILE循环就可以了，循环体内程序自己处理一下，应该能达到要求

669423907

回复 xiaxiang 的帖子

还请大师举个例子说明一下，实在不胜感激！

669423907

回复 zhynt 的帖子

非常感谢你啦！

ahwx0814

我把你的程序改了一下

(setvar "CMDECHO" 0)
(vl-load-com)
(defun C:jz (/ X Y SIZE PT EN AREA STR TMP)
  (WHILE (setq SS (entsel "\n选择要居中的文字: "))
  (if (and SS
           (setq EN (car SS))
           (setq EN_TMP (bpoly (cadr SS)))
      )
    (progn
      (setq TMP        (BOX EN)
            TMP        (mapcar '+ (car TMP) (cadr TMP))
            PT0        (mapcar '* TMP '(0.5 0.5 0.5))
      )
      (setq TMP        (BOX EN_TMP)
            TMP        (mapcar '+ (car TMP) (cadr TMP))
            PT1        (mapcar '* TMP '(0.5 0.5 0.5))
      )
      (command "_.move" EN "" "non" PT0 "non" PT1)
      (entdel EN_TMP)
    )
  ))
  (princ "\n完成")
  (princ)
)
(defun BOX (E / LL UR)
  (vla-getboundingbox (vlax-ename->vla-object E) 'LL 'UR)
  (mapcar 'vlax-safearray->list (list LL UR))
)

ahwx0814

还有一个笨方法，如下：
(defun C:jz (/ X Y SIZE PT EN AREA STR TMP)
(if .........);程序内容
(c:jz)
);程序结束

669423907

回复 ahwx0814 的帖子

虽然我不会，但是我很感谢你的热情帮助。谢谢了。

yxianfo

chengx2000 发表于 2011-6-12 20:28
回复 669423907 的帖子

恕我愚钝，楼主的这段代码中的“bpoly”是个什么函数，怎么在《AutoLISP函数》中都 ...

“bpoly”确实不是函数。
经试用，3个完整的程序都不能使用，程序存在问题。
对单个的lsp程序，想实现重复命令一般采用循环函数“while“，不过要注意写法。

牛排包

我也想学习这个东东。自定义一个命令ccc（），如何反复执行该命令，直到输入空格键退出？
比如ccc（）就是画一个圆（command "c"）.
我见过一个例子，如下：
(defun c:aaa()
  (setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
  (while (setq pt(getpoint "\n 圆心:"))
    (command "_.circle" pt)
    (while (/= 0 (getvar "cmdactive"))
      (command pause)  
    )
  )(princ)
)

就是想实现这样的功能。但是不知道怎样把命令从画圆扩展到任意命令。
求教。