Acad.lsp is reloaded when -VBARUN command is used in S::STARTUP

newer

问题：
Acad.lsp is reloading when -VBARUN command is used in the S::STARTUP function
to load a drawing. Is this known behavior and is there a way to stop it from
reloading?  The ACADLSPASDOC  variable is 0.

解答：
The reason that Acad.lsp is reloading, with a drawing opened by a procedure
in  Acad.dvb (called with -VBARUN in S:STARTUP), is that AutoCAD has not finished
initializing at the point in the S::STARTUP function where the command -VBARUN
is called.  As a workaround, the VBASTMT command allows you to call VBA functions
with arguments, from either the command line or a LISP expression.  In this
case, we can use (vla-sendcommand) in the (S::STARTUP) function, to call the
VBA "RunMacro" method.  This approach will not cause a reload of Acad.lsp.

1. (defun-q mystartup ( )
   
2.    (vl-load-com) ;load ActiveX objects
   
3.    ;;replace this line: (command ".-vbarun" "MyModule.MySub")
   
4.    ;;with the following:
   
5.    (arxload "acadvba.arx") ;ensure Acad.dvb is loaded
   
6.    (vla-sendcommand
   
7.       (vla-get-activedocument (vlax-get-acad-object))
   
8.       "vbastmt\n\ThisDrawing.Application.RunMacro \"MyModule.MySub\"\n"
   
9.    )
   
10. )
    
11. 
    
12. 
    
13. (setq s::startup (append s::startup mystartup))
    

(defun-q mystartup ( )<br />    (vl-load-com) ;load ActiveX objects<br />    ;;replace this line: (command ".-vbarun" "MyModule.MySub")<br />    ;;with the following: <br />    (arxload "acadvba.arx") ;ensure Acad.dvb is loaded<br />    (vla-sendcommand<br />       (vla-get-activedocument (vlax-get-acad-object))<br />       "vbastmt\n\ThisDrawing.Application.RunMacro \"MyModule.MySub\"\n"<br />    )<br /> )<br /> <br /> <br /> (setq s::startup (append s::startup mystartup))<br />