一个关于宏的问题

miaoph

在VBA中，程序的运行都是通过宏命令加上子程序来进行的。在我每次运行某段程序的时候，只能通过命令来运行。我想把它做成这样，不知是否能够实现：在AutoCAD中点击右键反复执行上一次执行的命令，能不能点击右键也反复执行上一个宏命令后的子程序？

subtlation

论坛里有不少方法，我用的是：
把下面代码放到thisdrawing中，

2. Public testLoad As Boolean
   
3. 
   
4. Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
   
5.   If Not testLoad Then
   
6.     testLoad = True
   
7.     MacroToCommand "WBN", "pileNo.dvb!thisdrawing.pileno"  '宏的命令名和宏的位置。
   
8.   End If
   
9. End Sub
   
10. 
    
11. Public Sub MacroToCommand(ByVal cmdName As String, ByVal macroName As String)
    
12.    Dim string1 As String
    
13.     string1 = "(defun c:" & cmdName & " () (command " & Chr(34) & "-vbarun" & Chr(34) & " " & Chr(34) & macroName & Chr(34) & ")) "
    
14.     ThisDrawing.SendCommand string1
    
15. End Sub

Public testLoad As Boolean<br /> <br /> Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)<br />   If Not testLoad Then<br />     testLoad = True<br />     MacroToCommand "WBN", "pileNo.dvb!thisdrawing.pileno"  '宏的命令名和宏的位置。<br />   End If<br /> End Sub<br /> <br /> Public Sub MacroToCommand(ByVal cmdName As String, ByVal macroName As String)<br />    Dim string1 As String<br />     string1 = "(defun c:" & cmdName & " () (command " & Chr(34) & "-vbarun" & Chr(34) & " " & Chr(34) & macroName & Chr(34) & ")) "<br />     ThisDrawing.SendCommand string1<br /> End Sub

gzy

你可以做到菜单中，点击定制的菜单即运行相应的宏。