这在其中一个讨论组上得到了问和回答。
这个人从来没有回来承认我的答案的有效性或其他方面,
所以我想我会把它贴在人们关心的地方。
当然,(VL-VBARUN FileSpec.dvb!宏名)将运行宏 - 如有必要加载文件。
但是要回答实际问题:-
- (DEFUN ReturnLoadedVba (/ VBProjects Index ProjectList)
- (SETQ VBProjects (VLAX-GET-PROPERTY (VLA-GET-VBE (VLAX-GET-ACAD-OBJECT))
- 'VbProjects
- )
- Index 1
- )
- (REPEAT (VLA-GET-COUNT VBProjects)
- (SETQ ProjectList (CONS (VLA-GET-NAME (VLA-ITEM VBProjects Index))
- ProjectList
- )
- Index (1+ Index)
- )
- )
- (REVERSE ProjectList)
- )
- (IF (VL-POSITION "ACADProjectx" (ReturnLoadedVba))
- (ALERT "Yep")
- (ALERT "Nope")
- )
只是一个额外的说明,
需要加载VBAIDE才能使其工作。
因此,您可能需要测试 acvba.arx
/// kwb
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |