Author Topic: Unloading My DVB Project  (Read 1914 times)

0 Members and 1 Guest are viewing this topic.

ML

  • Guest
Unloading My DVB Project
« on: May 04, 2007, 02:52:41 PM »

I am stomped.

I have a menu macro

Code: [Select]
^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

deegeecees

  • Guest
Re: Unloading My DVB Project
« Reply #1 on: May 04, 2007, 03:15:39 PM »
Try this:

(command "vbaunload" "Profiles.dvb")

Fatty

  • Guest
Re: Unloading My DVB Project
« Reply #2 on: May 04, 2007, 05:12:51 PM »
I use this daily
Hope that helps

Code: [Select]
(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)