我怎么才能将一个宏命令绑定到一个快捷键上啊，总是去点，好累！

fyt234

yama

用LSP调用宏，再把LSP加入工具条中

fyt234

怎么搞啊，能给个具体的说明吗？我不懂lisp啊！

zfbj

下面的思路应该可以实现：
    （1）创建一个新的工具栏，最好使用AutoCAD自带工具进行创建，而不要使用编程创建。其中一个按钮与你所定义的宏建立连接。
    （2）打开自定义快捷键的对话框，可以给新建的按钮指定快捷键。

topirol

看看吧，应该可以

*.exe就是n你每次点击的程序





Dim acadapp As AcadApplication
Dim acaddoc As AcadDocument


Sub connectcad() '连接AUTOCAD
On Error Resume Next
     
    '与autocad通信
     
    Set acadapp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
End Sub
Sub connectdoc() '连接文档
Set acaddoc = acadapp.ActiveDocument
End Sub

Sub iniz()
connectcad
connectdoc
End Sub

Private Sub Command1_Click()
iniz
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = acadapp.MenuGroups.Item(0)
Dim newtoolbar As AcadToolbar

For i = 0 To acadapp.MenuGroups.Item(0).Toolbars.Count - 1 Step 1

If CStr(acadapp.MenuGroups.Item(0).Toolbars.Item(i).name) = "iroltoolbars" Then

Set newtoolbar = acadapp.MenuGroups.Item(0).Toolbars.Item(i)
GoTo havemytoolbar
End If
Next

Set newtoolbar = currmenugroup.Toolbars.Add("iroltoolbars")


havemytoolbar:

Dim dcmacro As String, addmacro As String, rozjmacro As String, gzmacro As String
dcmacro = Chr(3) + Chr(3) + "start c:/myapp/dc.exe" + Chr(13)
addmacro = Chr(3) + Chr(3) + "start c:/myapp/add.exe" + Chr(13)
rozjmacro = Chr(3) + Chr(3) + "start c:/myapp/rozj.exe" + Chr(13)
gzmacro = Chr(3) + Chr(3) + "c:/myapp/gz.exe" + Chr(13)
addbutton newtoolbar, "对齐", "dc", dcmacro
addbutton newtoolbar, "内插点", "add", addmacro
addbutton newtoolbar, "旋转注记", "rozj", rozjmacro
addbutton newtoolbar, "数据改正", "gz", gzmacro
acadapp.MenuGroups.Item(0).Save acMenuFileSource
Unload Me
End Sub
Function addbutton(toolbar As AcadToolbar, name As String, helpstring As String, buttonmacro As String)
Dim newbutton As AcadToolbarItem
Set newbutton = toolbar.AddToolbarButton("", name, helpstring, buttonmacro)
End Function