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

lelfei · 发表于 2008-4-23 12:05:00

如题，在LISP里实现起来很容易，用“c:function name”就能做快速命令，在VBA里要如何实现？
在帮助里没找到，但是发现用VALX类可以实现执行LISP语句，在LISP里再嵌套VBA函数这样是否可行？

lelfei · 发表于 2008-4-24 18:46:00

哪位大大头注一下。。。

azjmjsj · 发表于 2008-4-25 00:29:00

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