|
(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))
)
)
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )
GMT+8, 2024-5-13 13:46 , Processed in 0.235950 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.