[求助]：请教：如何让循环不被中断

ysx810210

看下面语句，如何让循环不被中断？
(defun c:jj()
  (while
  (command "line" (list 0 0))
  )
)
先谢啦

xyp1964

[php](defun c:test ()
  (if (setq pt1 (getpoint "\n起点<退出> : "))
    (progn
      (command "pline" pt1)
      (while (setq pt (getpoint pt1 "\n下一点<退出> : "))
        (command pt)
        (setq pt1 pt)
      )
      (command "")
    )
  )
  (princ)
)[/php]

xiao_longxin

没有明白楼主的意图

jsrlb

while函数在使用时必需有循环条件，而你没给条件。二楼是对的。

xiao_longxin

(command "line" (list 0 0))也是一个条件

狂刀

不用谢
[php]
(defun c:jj()
(command "line" (list 0 0))
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
)


[/php]

ysx810210

很感激各位的热情帮助！
xyp1964 斑竹 和 狂刀大侠6楼的程序都是可行的，我修改了一下狂刀大侠6楼的程序，实现了我想要的功能：
(defun c:jj()
  (while (setq p1 (getpoint "\n起点<回车退出>:"))
    (command "line" p1)
    (while (/= 0 (getvar "cmdactive"))
      (command pause)
      )
    (princ "\n*** 重新开始画直线 ***")
  )
  (princ "\n*** 不再画直线，程序退出 ***")
  (princ)
)

回复2楼：
程序：
(defun c:jj()
(while
(command "line" (list 0 0))
(princ "\n看我能不能执行")
)
)
中的语句“(princ "\n看我能不能执行")”是永远不会被执行的，在回车结束画直线命令时，循环被CAD所终止，我的意思就是通过修改语句，使循环不会被CAD终止，继续执行画直线操作

回复4楼：
相似的一个例子：
(defun c:jk()
  (while
    (princ "\n *********")
  )
)
在CAD里，这是可行的，程序的执行结果是：进入了一个死循环，不停执行(princ "\n *********")语句，用“ESC”键可终止，深一层的东西我就不太清楚了，实在水平有限，可能像5楼所说，(princ "\n *********")也是一个条件，只不过这个条件永远是"T"而已

zxq0220

因为command函数的返回值是nil，所以(while (command "line" (list 0 0)))循环中止。
而(princ "\n *******")的返回值是*******，不是nil，所以(while (princ "\n ********"))是无限循环。

zhouri

(command "line" (list 0 0))
(while (/= 0 (getvar "cmdactive"))
(command pause)
)

这句有点不理解，想请高手解释一下。
先执行(command "line" (list 0 0))
一直画线到你回车推出
此时再执行while (/= 0 (getvar "cmdactive")
由于上述的line命令结束，故此时cmdactive＝0此时这就没用了
(while (/= 0 (getvar "cmdactive"))
(command pause)
)

我知道我理解肯定是错的，但我想知道程序是怎么执行的，谢谢。