[求助]：VBA程序加载问题！

wwwjyc

VBA程序是不是软件每次重启都要重新加载？
还有VBA程序定义的命令能否象画直线一样，设置个命令缩写L？

雪山飞狐(lzh)

http://www.xdcad.net/forum/showt ... 1250410#post1250410

wwwjyc

不是很懂，没学过LSP。麻烦斑竹解释一下！

雪山飞狐(lzh)

把那段代码放在acaddoc200?.lsp文件里
对应每个宏调用一遍
如
(defun tls-sub2cmd(filename subname cmdname)
(eval
  (list 'defun
   (read (strcat "c:" cmdname))
   nil
   (list 'vla-RunMacro
         '(vlax-get-acad-object)
          (strcat filename "!" subname)
   )
   '(princ)
  )
)
(vlax-add-cmd cmdname (strcat "C:" cmdname))
(princ)
)
(tls-sub2cmd "test.dvb" "test1" "test1")
(tls-sub2cmd "test.dvb" "test2" "test2")
(tls-sub2cmd "test.dvb" "test3" "test3")

wwwjyc

acaddoc200?.lsp在哪里？我很菜的

雪山飞狐(lzh)

Support目录下
对应版本
2005是acad2005doc.lsp
2004是acad2004doc.lsp
2002是acad2002doc.lsp

wwwjyc

奇怪，刚才怎么没搜索到，手动找到是有了。
不过没成功。

命令: cmjz ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

文件名cmjz.dvb
Public Sub cmjz()
Dim laycount As Integer
Dim I As Integer
Dim Uplayer As AcadLayer
Dim JZ01 As String
Dim JZ02 As String
JZ01 = ThisDrawing.Utility.GetString(False, "输入想替换的原图层名字段:")
JZ02 = ThisDrawing.Utility.GetString(False, "输入想替换的新图层名字段:")
laycount = ThisDrawing.Layers.Count - 1
For I = 1 To laycount
Set Uplayer = ThisDrawing.Layers(I)
Uplayer.Name = Replace(Uplayer.Name, JZ01, JZ02)
Next I
End Sub


acad2004doc.lsp
)
(defun tls-sub2cmd(filename subname cmdname)
(eval
(list 'defun
(read (strcat "c:" cmdname))
nil
(list 'vla-RunMacro
'(vlax-get-acad-object)
(strcat filename "!" subname)
)
'(princ)
)
)
(vlax-add-cmd cmdname (strcat "C:" cmdname))
(princ)
)
(tls-sub2cmd "cmjz.dvb" "cmjz" "cm")

哪里错了？

雪山飞狐(lzh)

前面加上
(vl-load-com)

wwwjyc

加哪里？

雪山飞狐(lzh)

(defun tls-sub2cmd(filename subname cmdname)
的前面一行

wwwjyc

命令: cm 正在初始化 VBA 系统...; 错误: Automation 错误。 无法运行 VBA 宏

有QQ或者MSN吗？这个问题我比较急！*-*6 *-*4

雪山飞狐(lzh)

cmjz.dvb要在支持目录下

wwwjyc

终于搞定了，谢谢斑竹，辛苦了！

szdg

这个问题我以前也遇到过了！我是做了一个菜单，要用时，点击加载就可以了！