如何判断自定义的菜单文件是否已经装载？

lyb_dsa

如何判断自定义的菜单文件是否已经装载？

meflying

;功能：判断菜单是否已加载
;作者：meflying
;用法：(decMenu groupname)——groupname为菜单群的名字
;就是菜单文件中：***MENUGROUP=CIRCLES中的CIRCLES
(defun DecMenu(groupname / APP MG PMS)
  (setq APP (vlax-get-acad-object))
  (setq MGS (vla-get-menugroups APP))
  (setq MG (vl-catch-all-apply 'vla-Item (list MGS groupname)))
  (if (vl-catch-all-error-p MG)
    (princ "菜单未加载!")
    (princ "菜单已加载!")
  )
  (princ)
)

lockmyeye

检查是否加载了指定的菜单组

(menugroup groupname)

参数

groupname

字符串，指定菜单组的名称。

返回值

如果 groupname 与某个已加载菜单组相匹配，则返回 groupname 字符串，否则返回 nil。

lyb_dsa

谢谢

SWAYWOOD

二位斑竹
我的菜单放在公司的服务器上
有时候服务器没开，菜单就无法加载
怎么样在服务器开启的第一时间加载我的菜单呢？
多谢！

lockmyeye

我曾经这样做过。

当时有大约20台机子要用到程序，程序更新也挺快，基本上是一边做工作，一边写程序的。每天可能要更新几次。当时我把菜单和程序发到我的机器了。

后来发现这样做根本就不合理的：我的机器不可能时刻开着的。如果我没开机时别人打开的CAD，下次又得重新设置菜单，结果搞到大家很有意见：（

后来的做法是：把菜单和程序装在本机上，每次打开新文件时，判断一次文件是否更新，在服务器上放一个文件来保存最后更新时间，比较本机的相应文件，如果文件内容不同，就调用外部批处理来更新。

再后来，有人说，每次打开时，要等死人了（10M的局域网，系统不同，我用(FINDFILE "\\服务器\目录\文件")来检测是否打开服务器，速度很慢）。而且要很频繁打开不同的图。

现在，我做了个程序让他们每天高兴时就再更新，如果有重大改动，全网来个 net send 通知更新。

看看大家有没有更好的实现方法。

meflying

做一个比较完善点的程序，过一段时间更新，哪有天天更新的？

SWAYWOOD

飞哥，你说的不错
但做程序有时也不可能想得那么全
一个人用也许发现的问题比较少
再加上俺主要精力还是在设计上
所以也是不得已而为之啊，呵呵
陈斑竹，你的情况和小弟的完全一样
我有个想法，但限于本人是菜鸟无法解决
还请两位斑竹帮小弟一把
陈斑竹所说的每打开一个图都去检测路径当然很慢
能不能定时去检测一下，
如果服务器开了，就加载该菜单，在重新启动CAD前就不再检测
如果没开就定时检测
我不知道LISP能否实现改功能，我想VBA应该可以
多谢！

lockmyeye

"定时去检测"？
在lisp应该没办法实现的。