如何判断自定义CUI是否已加载???????

挚友01

(command "menuload" "doe_dls.cui")

csharp

2. 
   
3. (defun isMenuloaded (name / flag)
   
4.   (setq flag nil)
   
5.   (vlax-for mnu        (vla-get-menugroups (vlax-get-acad-object))
   
6.     (if        (= (strcase (vla-get-name mnu))
   
7.            (strcase (vl-filename-base name))
   
8.         )
   
9.       (setq flag t)
   
10.     )
    
11.   )
    
12.   flag
    
13. )

<br /> (defun isMenuloaded (name / flag)<br />   (setq flag nil)<br />   (vlax-for mnu        (vla-get-menugroups (vlax-get-acad-object))<br />     (if        (= (strcase (vla-get-name mnu))<br />            (strcase (vl-filename-base name))<br />         )<br />       (setq flag t)<br />     )<br />   )<br />   flag<br /> )

挚友01

非常非常的感谢您，高手大人！我稍微改动了一下：
(setq list_2 '())
(vlax-for mnu (vla-get-menugroups (vlax-get-acad-object))
  (setq list_2 (cons (strcase (vla-get-name mnu)) list_2))
)
(if (> (atof (substr (getvar "acadver") 1 2)) 17)
  (if (not (member (strcase (vl-filename-base "doe_dls.cuix")) list_2))
    (command "menuload" "doe_dls.cuix")   
  )
  (if (not (member (strcase (vl-filename-base "doe_dls.cui")) list_2))
    (command "menuload" "doe_dls.cui")
  )
)

newer

挚友01 发表于 2017-9-18 09:45

不错，还有完善的空间，比如，判断下文件的日期，如果编译的菜单文件日期没有菜单定义文件新，就重新加载。这样能保证菜单始终最新。