社区 › VB › 在VBA里如何实现快速命令？

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

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

如题，在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

lelfei 发表于 2008-4-29 20:34:00

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

mccad 发表于 2008-4-29 21:43:00

没有看到置顶的贴子吗？

查看完整版本: 在VBA里如何实现快速命令？