日志
加载菜单时自动添加菜单所在的路径
|
(defun Ea:Addsupport (/ getactiveprofile mnus name n m path
mnupath)
(defun getActiveProfile ()
(strcat "HKEY_CURRENT_USER\"
(vlax-product-key)
"PROFILES"
(vla-get-activeprofile
(vla-get-profiles
(vla-get-preferences
(vlax-get-acad-object))
)
)
)
)
(setq
mnus (vlax-get-property
(vlax-get-property
(vlax-get-acad-object) "application")
"menugroups"
)
)
(vlax-for x
mnus
(setq name (cons (vla-get-name x) name))
)
(setq n 1
m (length name)
)
(repeat m
(if (setq mnupath
(vl-registry-read
(strcat (getActiveProfile)
"Menus"
)
(strcat "group" (itoa n))
)
)
(progn
(if (Wcmatch mnupath "EATOOLS ")
(progn
(setq
mnupath (substr (strcase mnupath) 9)
path (vl-filename-directory mnupath)
) (if
(not (wcmatch (strcase (getenv "ACAD")) "*EATOOLS*"))
(setenv
"ACAD" (strcat (getenv "ACAD") ";" path))
)
)
)
)
(setq n (1+ n))
)
)
