中望cad的opendcl执行c：函数会中断，如何解决？

libo2000

中望cad的opendcl执行c：函数会中断，如何解决？
比如：
(defun c: DclForm1jsq_ComboBox1_OnKillFocus ()
                (#代码1)
                (#代码2)
                (#代码3)
)
zwcad可能只会执行到(#代码2)就不继续了，(#代码3)没反应。
但是在命令栏中手动执行 c: DclForm1jsq_ComboBox1_OnKillFocus却是正常的，没有任何问题。

这种奇葩问题如何解决？

libo2000

找了很久,竟然是设置系统变量出了问题：
(setvar "DIMZIN" DMZ)
非常奇葩的问题，普通lisp函数运行、手动在命令行中执行都完全没问题。就是在opendcl函数中执行会莫名中断.只好用vl-catch-all-apply函数强制执行就没问题。