[求助]VBE环境可运行，加载进CAD后运行失败

等于的砧板

新手，想做一个更改图层的小程序，如附件，想要实现功能：
1、文本框1：显示被选中实体图层
2、文本框2：显示当前图层
3、列表框：显示图纸所有图层
4、功能：运行后，点击列表框数据，
              a、当“文本框1”有数据时，选中实体图层更改为列表框中被选中图层；
              b、若“文本框1”为空，更改当前图层为列表框图层

5、当前问题：在VBE环境中，可实现所需功能。采用附加LISP 文件加载进CAD后，通过命令运行时，更改实体图层成功，更改当前图层功能失败。

加载用LISP 程序
(defun c:TC()
          (command "-vbarun" "Change_Layer.dvb!ChangeLayer.Change_Layer")
          (princ)
  )


麻烦有空的大神帮忙分析下，谢谢！！

等于的砧板

错误位置找到了
窗体结束时 报错：91  对象变量或with块变量未设置
但没找到 出现的原因，请路过的朋友指点下，谢谢！

等于的砧板

已调整至错误，
结果依旧。VBE环境正常运行，加载后 修改当前层：显示修改后 又 自动返回原当前层

等于的砧板

最新测试 用VBARUN 和-vbArun   都能成功

加载后 用命令运行失败，没辙了！！