You'll have to initialize the lisp
routine from VBA.If you look in the readme, it explains how to do this, but
here's a quick tour:
(command "-vbarun"
"stack2002.dvb!insertit" good:fle short_blockname)
this is an excerpt from a chunk of
code that creates a new file, inserts the old file, purges, explodes and saveas
it with the old files name. The thing to note is that you can pass
arguments to a vba module as if you were typing them at the command
prompt. That's what good:fle and short_blockname do.
In the vba world
dwgname =
ThisDrawing.Utility.GetString(True, "drawing name:")
blockname = ThisDrawing.Utility.GetString(True, "block name:")
capture these arguments. You
can load and pass commands to a lisp routine via the SendCommand method in
vba. You just have to make your lisp accept and check for these arguments
to determine where in the process of execution it is.
CAD naked
John
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
In
my lisp file I open a file in my LISP code using (command "._vbastmt"
"ThisDrawing.Application.Documents.Open(\"FULL_PATH_NAME\")") I then want to
insert a block into this file, but my lisp code seems to terminate right as
the file finishes opening. How do I execute more LISP code after I make the
above call to open another file?