vba 加载、卸载 VLX 文件！

hh13123

　　我想用vba或者lisp做个cad小工具，有个现成的VLX的文件，想利用小工具直接调用,卸载！
　　（加载的是一个有使用次数的VLX，用几次命令后会失效，需卸载又加载，就可以再用，自己不能破解，只能想这个办法，之前一直是手工加载卸载，很是麻烦）

　　VBA:
　　我看了帮助，vba中有arxload,vbaload，偏偏就没有VLX的函数，怎么办？
　　用sendcommand的"appload",又会出现对话框，不方面，有什么解决办法吗？
　　cad中输入“ -appload ”，提示命令无效！


　　Lisp:
　　1.　(load "Test.VLX") 可以成功加载
　　2.　(Vl-unload-vlx)提示没找到“Test.VLX”
　　3.　(vl-vlx-loaded-p)返回值为"nul"
　　4.　用cad的appload可以手工卸载"Test.VLX"

hh13123

谢谢明经cad通道红日！
vba检测vlx:ThisDrawing.SendCommand "(vl-vlx-loaded-p " & Chr(34) & "test" & Chr(34) & " )" & Chr(13)
vba加载vlx:ThisDrawing.SendCommand "(load " & Chr(34) & "test.VLX" & Chr(34) & " )" & Chr(13)
vba卸载vlx:ThisDrawing.SendCommand "(vl-unload-vlx " & Chr(34) & "test" & Chr(34) & " )" & Chr(13)

此版块精华是多年前的，且链接也失效了，还挂着精华？看来VBa被XDCAD是抛弃了！遗憾！！

pengfei2010

感谢楼主的指点 受教了