autolisp to remove cuix unknown

[nojortiz]

im trying to search all cuix

identify each cuix loaded

remove unknown cuix in the users pc

several users create a different cuix that i want to remove from each users pc

some time they download someone elses cuix and load it in autocad but our company wants them all removed

(defun identifycuix()
(findfile cuix "search users pc)
(foreach cuix unknown

sample:
(if (/= (menugroup "MEC2005") nil)
(command "_MENUUNLOAD" "MEC2005")
); end if

(alist "acad" "express")

(if cuix exist keep it from alist

(if cuix is unlknown remove it

thank you

[Ed Jobe]

You could just write a Windows bat file or PowerShell script that searches the hard drive for *.cuix files. Another method is to create a company standard profile and export it as an *.arg file. Then change the AutoCAD shortcut to specify the profile with the /P switch. Then the user interface will always be the same when they start AutoCAD. But personally, I think it's rather dictatorial to do this. Suppose a user just wants to arrange things the way they like?

[rkmcswain]

Removing the CUIX file itself is not going to remove the reference from AutoCAD.

Also, unless something has changed recently, telling AutoCAD via the startup shortcut to load an ARG file always fails if a profile by that name already exists, in which case the existing profile is simply loaded, ignoring the contents of the ARG file.

If you really want to force certain things at startup you have to actually do those things, like set a sysvar, or set the background color, or whatever it is you want to do.


nojortiz - I have some lisp code to do what you want, give me some time to dig it up.

[rkmcswain]

This may help

;; Grabs the menus
(setq mg (vla-get-MenuGroups *acad-object*) mglist '())
;; Iterates the collection, sets "mglist" to a list of loaded menu groups
(vlax-for x mg
(setq mglist (cons (strcase (vla-get-name x)) mglist))
)
;; releases the object
(vlax-release-object mg)