[求助]如何在程序中判断内部函数是否已执行完毕？急！

yunlong300

如何在程序中判断内部函数是否已执行完毕？

在lisp程序中调用CAD的一个内部函数，想保留该函数的所有可选参数，可是参数的个数是不确定的，多用几个pause参数又影响后续代码的执行。请问 各位大侠，如何在程序中判断该内部函数是否已执行完毕？例如：在程序中调用"Text"函数，手动是否选择参数"对正(J)"，其用到的参数总个数是不同 的。程序如何得知"Text"函数是否已运行结束呢？急盼高手指点，谢谢！！！

wdb

用entmake更好．

alin

Check system variable "CMDACTIVE".

yunlong300

多谢alin版主指点。
我编了一个测试程序，但是不能正确运行，请指点错误出在哪里

(defun c:test (/ ss pt1 pt2)
(setvar "cmdecho" 1)
(command "text")
(while (and (> (getvar "cmdactive") 0)
(< (getvar "cmdactive") 4)
)
(command pause)
)
(setq pt1 (getpoint "\n第一点:")
pt2 (getpoint pt1 "\n第二点:")
)
(command "line" pt1 pt2 "")
(setvar "cmdecho" 0)
(princ)
)

运行中需要填写字符串参数时，程序会自动填写一个"\"字符，不知是何原因？
以上测试程序无法完成文字内容的输入。

aeo000000

1. TEXTEVAL 系统变量 概念 操作步骤 参考 类型：整数
2. 不保存
3. 初始值：0控制处理使用TEXT 或 -TEXT 命令输入的字符串的方法。0   当提示输入字符串和属性值时，所有的响应都被当作文本1   以开括弧 [(] 或叹号 [!] 开头的文字被当作 AutoLISP 表达式，而不是文本TEXT 命令将把所有输入内容当作文本，而不考虑 TEXTEVAL 的设置，除非它完全用脚本和 AutoLISP 表达式执行。-TEXT 命令执行 TEXTEVAL 的设置。

复制代码

yunlong300

非常感谢。