如何让程序自动执行完？

/db_自贡黄明儒_

用命令li查看多段线，如果结点太，显示如下，要让用户按ente。如何不按enter,让li执行完成？

marting

试了，下面的代码不行

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel)))
   
3.     (progn (command ".list" e "")
   
4.            (while (/= (getvar "cmdactive") 0) (command ""))
   
5.     )
   
6.   )
   
7.   (princ)
   
8. )
   

(defun c:tt ()<br />   (if (setq e (car (entsel)))<br />     (progn (command ".list" e "")<br />            (while (/= (getvar "cmdactive") 0) (command ""))<br />     )<br />   )<br />   (princ)<br /> )<br />

内部命令应该中断了，LISP不往下执行。

所以，大概，可能 得你自己写自己的LIST了。除非找到AUTOCAD内部是否有什么开关控制

xinxirong

调试一下就知道用了什么系统变量

zixuan203344

我记得上次看的，可以调用VBS模拟按键效果，你模拟下enter按键效果就好了

kqqt6236

我是来学习的。

/db_自贡黄明儒_

marting 发表于 2017-8-7 10:42

确实。这个与文本窗口的高度有关。控制权转移给文本窗口了。