等于的砧板 发表于 2018-12-31 15:57:42

[求助]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)
)


麻烦有空的大神帮忙分析下,谢谢!!

等于的砧板 发表于 2018-12-31 16:29:28

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

等于的砧板 发表于 2018-12-31 18:14:33

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

等于的砧板 发表于 2018-12-31 18:45:45

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

加载后 用命令运行失败,没辙了!!
页: [1]
查看完整版本: [求助]VBE环境可运行,加载进CAD后运行失败