[VBA]关于CAD回车键重复响应自定义菜单中VBA宏命令问题的再次请教

zwd0077 · 发表于 2006-1-18 11:15:00

各位老大：上次我请教了这个问题，仍是不得其解，帮忙再看一下，如下是我自定义的菜单：
Sub AddExtMenu()

On Error Resume Next
'获得当前菜单组
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

'创建新菜单
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("mynewmenu" & Chr(Asc("&")) & "P")

'添加菜单项
Dim macro As String
macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)

Dim menuItemOpen As AcadPopupMenuItem

'在菜单中调用宏
Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, Chr(Asc("&")) & "myprogram", macro & "-vbarun" + Chr(32) + "E:/other/VBA/project.dvb!Area.test" + Chr(32))
'在菜单栏上显示菜单
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
'释放对象

Set currMenuGroup = Nothing
Set newMenu = Nothing
Set menuItemOpen = Nothing
End Sub
1、怎样修改才能在CAD中利用“回车”来重复响应，从而重复执行调用的E:/other/VBA/project.dvb!Area.test宏？
2、E:/other/VBA/project.dvb!Area.test宏可否改成相对路径，且仍能找到宏test？（test宏在Area模块里）
听说可以用LISP调用宏，可是我不知如何使用，找便了乐筑天下也没有合适的例子。可否赐教！谢谢。

zhuxuhong · 发表于 2006-1-18 14:14:00

你可以参照以下代码编码编写:
在LISP中编写如下代码:
(defun c:aa()
(command "-vbarun" "AddGxPnt")
)

你可以在AutoCad2000doc.lsp中加入自动加载VBA程序和上述LISP程序的代码,这样你进入CAD中直接输入aa 命令即可运行,回车也能重复执行

zwd0077 · 发表于 2006-1-19 12:23:00

我在acad2004doc.lsp文件里加入了：
(vl-vbaload (findfile "E:/other/VBA/Project.dvb"))
(defun croject()
(setvar "cmdecho" 0)
; (vl-vbarun "AddExtMenu")
(princ)
)
(defun s::STARTUP()
(command "_-vbarun" "AddExtMenu")
)

发现只有“defun s::STARTUP()”句中二楼所述的“aa”改为“STARTUP”才能自动加载并运行，但是回车还不能能重复执行，怎么回事？？
另外第二个问题还不明白？

wuzhm21 · 发表于 2013-1-18 11:39:00

把Project.dvb复制到support文件夹，代码改为：
(defun C:Project()
(setvar "cmdecho"0)
(command "-vbarun""project.dvb!Area.test")
(setvar "cmdecho"1)
(princ)
)

[VBA]关于CAD回车键重复响应自定义菜单中VBA宏命令问题的再次请教

发表回复

精选推荐