topic Re: Automatically run a macro in VBA Forum

Automatically run a macro

Anonymous — Sat, 29 Mar 2008 09:13:45 GMT

Hi!
I have created super-program:
;;;;;;;;;;;;;;;;;;;;;;;;
Sub Hello()
msgbox "Hello_World"
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;
Then saved this file as Hello.dvb in D:\\, then added line in the end of file acad2008doc.lsp this line:
(vl-vbarun "D:\\Hello.dvb!Hello")
Now, when i try open multiple files from SheetSet, Autocad hanging (in command line "macro name:").
Any solution?

Re: Automatically run a macro

Anonymous — Mon, 31 Mar 2008 19:36:37 GMT

Hi,
Just put in AcadDoc.lsp or Acad.lsp this :

(defun c:vbRUNRoutine ()
(vl-load-com)
(vl-vbarun "Acad.dvb!ModuleName.RoutineNAme")
)

And put

acvba.arx in a file text name :

acad.rx

This run automaticaly Acad.dvb

Now command line:
vbRUNRoutine

Run VBA routine !

A french user
Daniel OLIVES

Re: Automatically run a macro

Anonymous — Tue, 01 Apr 2008 09:33:28 GMT

It does not work. I want to execute automatically my macro each time by starting a new drawing or opening an existing one. Try to open multiple files from SheetSet Manager

Re: Automatically run a macro

Anonymous — Wed, 02 Apr 2008 19:47:17 GMT

hi,
fisrt
Have a look at how use acad.lsp or acaddoc.lsp in help of acad
in acad.lsp you can add:

(defun S::STARTUP()
(vl-vbarun "ACADStartup") ;
) ; fin S::STARTUP

By this way you can run in lisp starup a vba routine !

and in acad.dvb Thisdrawwing

Option Explicit
Public WithEvents acadApp As AcadApplication
Sub ACADStartup()
' your commands
end sub

Private Sub ACADApp_AppActivate()
' first activation of acad
End Sub

Did you have put :

acad.rx file with files acad.dvb, acad.lsp

and define file path in support path ?

Daniel OLIVES

Re: Automatically run a macro

Anonymous — Thu, 03 Apr 2008 06:11:02 GMT

Thanks Daniel!
BUT: this is NOT working when i simultaneously open multiple layouts from SheetSet Manager. Try it yourself

Re: Automatically run a macro

Anonymous — Thu, 03 Apr 2008 16:53:30 GMT

Open the System tab of the Options GUI and check "Load acad.lsp with every drawing"