如何启动CAD时就初始化VBA？

革天明 · 发表于 2012-8-9 17:56

本帖最后由革天明于 2012-8-10 12:59 编辑

(defun c:wd ()
  (vl-load-com)
  (vla-eval (vlax-get-acad-object) "Sendkeys \"close\"")
  (vla-eval (vlax-get-acad-object) "Sendkeys \"{ENTER}\"")
)
以上代码实现的功能和直接在CAD中输入close的作用是一样的，但目前此代码运行时会出现“正在初始化VBA” nil等字样，屏幕上显示“close"这样的字样，也就是说CAD卡在这一阶段了。
关闭窗口（不关闭CAD），重新打开一张图纸，此时程序能正常运行，中间稍有卡顿，但能接受，也不再提示初始化VBA了，
请教如何在CAD启动时就初始化好VBA？

革天明 · 发表于 2012-8-10 08:09

果然是沉得很快啊！

hzh2000 · 发表于 2012-8-10 11:54

本帖最后由 hzh2000 于 2012-8-10 11:55 编辑

(vl-load-com)
放在程序前

革天明 · 发表于 2012-8-10 12:32

hzh2000 发表于 2012-8-10 11:54
(vl-load-com)
放在程序前

(vl-load-com)
(vla-eval (vlax-get-acad-object) "DoEvents")
这两句都放了，单放第一名也试了，
两句都放，直接完蛋，只放第一句，只要关闭图（不关CAD）就能使用了

革天明 · 发表于 2012-8-10 14:25

继续顶，望高手解决

账号		自动登录	找回密码
密码			注册

如何启动CAD时就初始化VBA？

相关帖子