如何发布我的VBA程序？！

subtlation

这个我也做过，我自己写了一个宏。让cad启动时自动运行这个宏。有更好的方法，希望各位高手指点指点。

2.   Sub InitializtionCAD()
3.    On Error Resume Next
4.    ThisDrawing.Utility.Prompt vbCrLf & "载入菜单同时在AutoCAD中显示"
5.    ThisDrawing.Utility.Prompt vbCrLf & "加入CAD支持路径 "
6.    ThisDrawing.Utility.Prompt vbCrLf & "－－高武 2003年3月"
7.    
8.    
9.        '增加支持路径
10.        Dim preferences As AcadPreferences
11.        Dim currSupportPath As String '支持目录
12.        Dim supportFolder(0 To 10) As String
13.       
14.        supportFolder(0) = Application.Path & "\图库"
15.        supportFolder(1) = Application.Path & "\属性"
16.        supportFolder(2) = Application.Path & "\图框"
17.        supportFolder(3) = Application.Path & "\图标BMP"
18.        supportFolder(4) = Application.Path & "\尺寸标注式样"
19.        supportFolder(5) = Application.Path & "\菜单文件"
20.        supportFolder(6) = Application.Path & "\Support"
21.        supportFolder(7) = Application.Path & "\Help"
22.        supportFolder(8) = Application.Path & "\Express"
23.        supportFolder(9) = Application.Path & "\Fonts"
24.        supportFolder(10) = Application.Path & "\GaoWuCad2004"
25.       
26.        Set preferences = ThisDrawing.Application.preferences
27.       
28.        currSupportPath = preferences.Files.SupportPath
29.        For i = 0 To 10
30.            If InStr(1, currSupportPath, supportFolder(i), 1) = 0 Then
31.                currSupportPath = currSupportPath & ";" & supportFolder(i)
32.            End If
33.        Next i
34.        preferences.Files.SupportPath = currSupportPath
35.        Set preferences = Nothing
36.       
37.        '改变打印样式搜索路径
38.        ThisDrawing.Application.preferences.Files.PrinterStyleSheetPath = _
39.        Application.Path & "\Plot Styles"
40.        '改变打印机说明文字搜索路径
41.        ThisDrawing.Application.preferences.Files.PrinterDescPath = _
42.        Application.Path & "\Plotters\PMP Files"
43.        '改变打印机配置搜索路径
44.        ThisDrawing.Application.preferences.Files.PrinterConfigPath = _
45.        Application.Path & "\Plotters"
46.       
47.    Err.Clear
48.    Application.MenuGroups.Load ("定制菜单GaoWu.mns")
49.    If Err Then
50.    Else:
51.        Application.MenuGroups("快捷命令").Menus.InsertMenuInMenuBar "快捷命令", 10
52.    End If
53.    Err.Clear
54.    
55. nd Sub

  Sub InitializtionCAD()    On Error Resume Next    ThisDrawing.Utility.Prompt vbCrLf & "载入菜单同时在AutoCAD中显示"    ThisDrawing.Utility.Prompt vbCrLf & "加入CAD支持路径 "    ThisDrawing.Utility.Prompt vbCrLf & "－－高武 2003年3月"                '增加支持路径        Dim preferences As AcadPreferences        Dim currSupportPath As String '支持目录        Dim supportFolder(0 To 10) As String               supportFolder(0) = Application.Path & "\图库"        supportFolder(1) = Application.Path & "\属性"        supportFolder(2) = Application.Path & "\图框"        supportFolder(3) = Application.Path & "\图标BMP"        supportFolder(4) = Application.Path & "\尺寸标注式样"        supportFolder(5) = Application.Path & "\菜单文件"        supportFolder(6) = Application.Path & "\Support"        supportFolder(7) = Application.Path & "\Help"        supportFolder(8) = Application.Path & "\Express"        supportFolder(9) = Application.Path & "\Fonts"        supportFolder(10) = Application.Path & "\GaoWuCad2004"               Set preferences = ThisDrawing.Application.preferences               currSupportPath = preferences.Files.SupportPath        For i = 0 To 10            If InStr(1, currSupportPath, supportFolder(i), 1) = 0 Then                currSupportPath = currSupportPath & ";" & supportFolder(i)            End If        Next i        preferences.Files.SupportPath = currSupportPath        Set preferences = Nothing               '改变打印样式搜索路径        ThisDrawing.Application.preferences.Files.PrinterStyleSheetPath = _        Application.Path & "\Plot Styles"        '改变打印机说明文字搜索路径        ThisDrawing.Application.preferences.Files.PrinterDescPath = _        Application.Path & "\Plotters\PMP Files"        '改变打印机配置搜索路径        ThisDrawing.Application.preferences.Files.PrinterConfigPath = _        Application.Path & "\Plotters"           Err.Clear    Application.MenuGroups.Load ("定制菜单GaoWu.mns")    If Err Then    Else:        Application.MenuGroups("快捷命令").Menus.InsertMenuInMenuBar "快捷命令", 10    End If    Err.Clear     nd Sub

myfreemind

好程序！！

mikewolf2k

我也要,谢谢