在VBA里如何实现快速命令？

lelfei

如题，在LISP里实现起来很容易，用“c:function name”就能做快速命令，在VBA里要如何实现？

在帮助里没找到，但是发现用VALX类可以实现执行LISP语句，在LISP里再嵌套VBA函数这样是否可行？

lelfei

哪位 大大头注一下。。。

azjmjsj

Private Sub addcommand()
ThisDrawing.SendCommand "(defun C:AZJ() (command " & Chr(34) & "-vbarun" & Chr(34) & Chr(32) & Chr(34) & "azjmjsj" & Chr(34) & "))" & Chr(32)
ThisDrawing.SendCommand "(defun C:ABC() (command " & Chr(34) & "-vbarun" & Chr(34) & Chr(32) & Chr(34) & "abcde" & Chr(34) & "))" & Chr(32)
End Sub

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
addcommand
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
addcommand
End Sub

****************************************************************************
西北凡人: http://www.abofanyi.com/blog

lelfei

感谢楼上的提供！我试试先！

mccad

没有看到置顶的贴子吗？