加载dvb屏蔽提示

长风（尚品）

我将dvb文件放到cad搜索路径下用
(defun S::STARTUP()
(command "_VBALOAD" "图块遮罩.dvb")
)

(load "图块遮罩【lmx-tkzz】.lsp")
个面这个加载每次打开文件或启动cad软件都会出现下面对话框。请问如何屏蔽掉这两个对话框。不再提示呢？

windowns456

能给我发一个这个图块遮置的插件吗？谢谢  858569232@qq.com

aaacjh

我也遇到跟楼主同样的问题，每次打开文件都提示，群里开发VBA好像不太多，求解！

wzg356

设为命令
例子
(defun c:新命令名 ()        (command "-vbarun" "文件名.dvb!宏名称")
        (Princ)
)
注："文件名.dvb!宏名称"：在cad菜单栏：工具-宏，宏名称显示的东西填上去
下图中的例子写成
(defun c:新命令名 ()
        (command "-vbarun" "生成等高线.dvb!Module1.CeliangToolbar")
        (Princ)
)
加载后执行命令“ c:新命令名”就可以了

SunSpring

1. (vl-vbaload (findfile "Project.dvb"))
   
2. 
   
3. (defun c:dx ()
   
4.   (vl-vbarun "DrawLoc")
   
5.   (princ)
   
6. )

(vl-vbaload (findfile "Project.dvb"))<br /> <br /> (defun c:dx ()<br />   (vl-vbarun "DrawLoc")<br />   (princ)<br /> )

自贡黄明儒

加载前判断—下是否已经加载

xiaolong1487

这个可以参考：http://bbs.mjtd.com/thread-15283-1-1.html