这是在一个讨论小组中提出和回答的
那人再也没有回来承认我的答案的正确性,所以我想我';d把它贴在人们关心的地方
当然,如果需要的话,(VL-VBARUN FileSpec.dvb!MacroName)将运行宏来加载文件
- (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
|