乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 91|回复: 6

判断 VBA 是否从 lisp 加载?

[复制链接]

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-3-9 20:27:24 | 显示全部楼层 |阅读模式
这在其中一个讨论组上得到了问和回答。
这个人从来没有回来承认我的答案的有效性或其他方面,
所以我想我会把它贴在人们关心的地方。
当然,(VL-VBARUN FileSpec.dvb!宏名)将运行宏 - 如有必要加载文件。
但是要回答实际问题:-
  1. (DEFUN ReturnLoadedVba (/ VBProjects Index ProjectList)
  2.     (SETQ VBProjects (VLAX-GET-PROPERTY (VLA-GET-VBE (VLAX-GET-ACAD-OBJECT))
  3.                                         'VbProjects
  4.                      )
  5.           Index      1
  6.     )
  7.     (REPEAT (VLA-GET-COUNT VBProjects)
  8.         (SETQ ProjectList (CONS (VLA-GET-NAME (VLA-ITEM VBProjects Index))
  9.                                 ProjectList
  10.                           )
  11.               Index       (1+ Index)
  12.         )
  13.     )
  14.     (REVERSE ProjectList)
  15. )
  1. (IF (VL-POSITION "ACADProjectx" (ReturnLoadedVba))
  2.     (ALERT "Yep")
  3.     (ALERT "Nope")
  4. )

只是一个额外的说明,
需要加载VBAIDE才能使其工作。
因此,您可能需要测试 acvba.arx
/// kwb

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2007-3-9 21:05:49 | 显示全部楼层
谢谢凯瑞!
看吧,我在乎!
回复

使用道具 举报

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-3-9 22:17:09 | 显示全部楼层
我想我看到了克里的帖子,有趣的部分是为什么人们想要加载不同的dvb。我加载了1个大的一个,里面有所有的东西,我不需要任何lisp来做到这一点。也许根据需要加载它们的速度快0.0001秒,但是???.
Ps;期待在这个问题上松弛
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2007-3-9 23:10:30 | 显示全部楼层
别指望弗莱克,别指望我。
我只是将它视为一个有趣的编程问题。
回复

使用道具 举报

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-3-9 23:18:01 | 显示全部楼层
Kerry
即使是吃乌鸦的人也会关心香蕉弯腰者的帖子
回复

使用道具 举报

7

主题

35

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2007-3-10 00:38:53 | 显示全部楼层
嗨,约翰...好久不见。
回复

使用道具 举报

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-3-10 00:50:49 | 显示全部楼层
你好,凯瑞,
是的,很长时间了——我已经潜伏太久了。
我已经离开CAD领域有一段时间了,更多的是进入管理、会计、工程等领域。
现在我回来了;我看你还是很活跃的。
向所有VBA人民致以亲切的问候——如果我没记错的话,当我担任管理职位时,我认为我在《午夜快车》中是无头的。
约翰
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 14:25 , Processed in 0.484307 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表