TheSwamp
Code Red => VB(A) => Topic started by: ML on May 04, 2007, 02:52:41 PM
-
I am stomped.
I have a menu macro
^C^C-vbarun;MyProfiles.dvb!LandDesktop;vbaunload;My_Profiles.dvb;
but it will not unload my project, no matter what I do. It keeps prompting me at the command line to type in the VBA project that I want to unload
Does anyone have any suggestions?
Thank you,
Mark
-
Try this:
(command "vbaunload" "Profiles.dvb")
-
I use this daily
Hope that helps
(defun c:rvba (/ adoc cnt dicts)
(vl-load-com)
(setq adoc (vla-get-activedocument
(vlax-get-acad-object)
)
dicts (vla-get-dictionaries adoc)
)
(if (not (vl-catch-all-error-p
(setq vba_dict (vl-catch-all-apply
(function (lambda ()
(vla-item dicts "ACAD_VBA")
)
)
)
)
)
)
(setq cnt 0)
(vlax-for a vba_dict
(vla-delete a)
(setq cnt (1+ cnt))
)
)
(alert (strcat "Unloaded " (itoa cnt) " projects"))
(gc)
(princ)
)
(c:rvba)
(princ)