Programmatically remove embedded VBA

[gamaliel.martinez]

Is there a way using VBA or LISP to programmatically remove an embedded VBA project from a drawing? I found the code below. From my admittedly limited knowledge of LISP, it seems like it should do it. If I embed a projected and run it, it will detect it and ask if I want to remove it, but if I go to Tools->Macro->VBA Manager, it's still embedded. If I run it again, it won't detect it anymore. I'm using Autocad 2008.

(defun c:rem_vba_proj (/ mac-attach )
(setq mac-attach (dictsearch (namedobjdict) "ACAD_VBA"))
(if mac-attach
(progn
(getstring "\nFound embedded macro. Enter to delete, ESC to cancel...")
(foreach name (massoc 350 mac-attach)
(entdel name)
)
(dictremove (namedobjdict) "ACAD_VBA")
(command "qsave")
)
)
)

(defun massoc (key alist / x nlist)
(foreach x alist
(if
(eq key (car x))
(setq nlist (cons (cdr x) nlist))
) ;end if
) ;end foreach
(reverse nlist)
) ;end defun

[RobertB]

Did you try closing and reopening the drawing?

[gamaliel.martinez]

No, I hadn't. That does it, but is there a way to do it without having to close the drawing?

[RobertB]

I don't think so, since the embedded code has already been loaded when the drawing is opened.

[T.Willey]

Robert,

Do you think it could be done on the ' beginDwgOpen ' event? Or would it be too late to try and open the drawing with ObjectDBX, and perform the request?

[RobertB]

Do you think it could be done on the ' beginDwgOpen ' event? Or would it be too late to try and open the drawing with ObjectDBX, and perform the request?

My gut instinct is that it would be too late, but testing would confirm.

[T.Willey]

My gut instinct is that it would be too late, but testing would confirm.

That is what I was thinking also. Maybe if I have some time today I will test and post back a confirmation either way. Thanks.

[T.Willey]

I couldn't even get the reactor to fire. It looks right to me.

(or
    GlbReactorBeginOpen
    (setq GlbReactorBeginOpen (vlr-editor-reactor nil '((:vlr-beginDwgOpen . TestOpening))))
)
(defun TestOpening ( react strList )
    
    (print strList)
    (setq GlbVarDwgOpening (car strList))
    (vl-propagate GlbVarDwgOpening)
    (princ)
)

Command: _open
Command: !glbvardwgopening
nil