怎样在一打开AUTOCAD就可以自动加载VBA？

zzz8662

怎样在一打开AutoCAD就可以自动加载VBA？

雪山飞狐_lzh

把VBA文件加入启动组


或者在AutoCad200?Doc.lsp文件中加载,


或者引用时给全,以"路径名!模块名.过程名"的形式调用

zzz8662

详细一点，好吗？

雪山飞狐_lzh

用 自动加载 搜索一下就一大堆 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=16373

zzz8662

解释一下这个程序的使用方法： [U]“你把函数复制到acad2000doc.lsp文件中，以后每写一个VBA程序，就可以通过写入一行： (AutoVBALoad <命令名> <工程文件> <宏>)
来自动调用[/U] 每写一个VBA程序，把”(AutoVBALoad <命令名> <工程文件> <宏>) “写到什么地方？我看不懂，谢谢！ [WEB]http://www.mjtd.com/a2/list.asp?id=285[/WEB]

雪山飞狐_lzh

写到Acad200？Doc。lsp文件里 改进一下，做成命令，：） (defun C:Sub2Cmd( / subname cmdname)
(setq subname (getstring "\n输入宏名:")
cmdname (getstring "\n输入命令名:"))
(eval
(list 'defun
(read (strcat "C:" cmdname))
nil
(list 'vl-vbarun subname)
(princ)
))
) (vlax-add-cmd "Sub2Cmd" 'C:Sub2Cmd)

wmz

我的看法不用那么复杂,在ACAD.DVB的ThisDriwing模块里的ACADStartup过程里加上如下一句


AcadApplication.LoadDVB "d:\acad2000\support\User.dvb"


即可

雪山飞狐_lzh

不做成命令总是很复杂的，：）下面的代码可以把工程的所有Sub注册为命令，前提是工程未加密，：）Lisp代码

2. (defun C:Sub2Cmd( / subname cmdname)
3.   (setq subname (getstring T "\n输入宏名:")
4.              cmdname (getstring T "\n输入命令名:"))
5.    (eval
6.        (list 'defun
7.        (read (strcat "C:" cmdname))
8.        nil
9.        '(setvar "cmdecho" 0)
10.        (list 'vl-vbarun subname)
11.        '(setvar "cmdecho" 1)
12.        (princ)
13.    ))
14. )
15. (vlax-add-cmd "Sub2Cmd" 'C:Sub2Cmd)

(defun C:Sub2Cmd( / subname cmdname)   (setq subname (getstring T "\n输入宏名:")              cmdname (getstring T "\n输入命令名:"))    (eval        (list 'defun        (read (strcat "C:" cmdname))        nil        '(setvar "cmdecho" 0)        (list 'vl-vbarun subname)        '(setvar "cmdecho" 1)        (princ)    )) ) (vlax-add-cmd "Sub2Cmd" 'C:Sub2Cmd)

Vba代码

2. Public Sub RegAllSub()
3. On Error Resume Next
4. Dim pVbe As Object, pCode As Object
5. Dim i, j, k
6. Set pVbe = Application.VBE
7. For Each i In pVbe.VBProjects
8.        For Each j In i.VBComponents
9.                If j.Type = 1 Or j.Type = 100 Then
10.                        Set pCode = j.CodeModule
11.                        For k = 1 To pCode.CountOfLines
12.                                pCodeLine = pCode.Lines(k, 1)
13.                                If (InStr(Trim(pCodeLine), "Public Sub ") = 1 Or InStr(Trim(pCodeLine), "Sub ") = 1) And InStr(pCodeLine, ")") = InStr(pCodeLine, "(") + 1 Then
14.                                        pSubName = Trim(RightStr(LeftStr(pCodeLine, "()"), "Sub "))
15.                                        ThisDrawing.SendCommand "Sub2Cmd" & vbCr & i.FileName & "!" & j.Name & "." & pSubName & vbCr & pSubName & vbCr
16.                                End If
17.                        Next k
18.                End If
19.        Next j
20. Next i
21. End Sub

Public Sub RegAllSub() On Error Resume Next Dim pVbe As Object, pCode As Object Dim i, j, k Set pVbe = Application.VBE For Each i In pVbe.VBProjects        For Each j In i.VBComponents                If j.Type = 1 Or j.Type = 100 Then                        Set pCode = j.CodeModule                        For k = 1 To pCode.CountOfLines                                pCodeLine = pCode.Lines(k, 1)                                If (InStr(Trim(pCodeLine), "Public Sub ") = 1 Or InStr(Trim(pCodeLine), "Sub ") = 1) And InStr(pCodeLine, ")") = InStr(pCodeLine, "(") + 1 Then                                        pSubName = Trim(RightStr(LeftStr(pCodeLine, "()"), "Sub "))                                        ThisDrawing.SendCommand "Sub2Cmd" & vbCr & i.FileName & "!" & j.Name & "." & pSubName & vbCr & pSubName & vbCr                                End If                        Next k                End If        Next j Next i End Sub