topic Re: AutoCAD "hangs" when opening file.... in VBA Forum

AutoCAD "hangs" when opening file....

Anonymous — Thu, 07 Sep 2000 10:38:39 GMT

Hi everyone.

I have an acad.lsp file that looks like this:

(defun S::STARTUP()
(setvar "ACADLSPASDOC" 1)
(setq cmdechostate(getvar "cmdecho"))
(setvar "CMDECHO" 0)
(command "undefine" "open")
(defun C:open()
(command "-vbarun" "bkk.dvb!IDAOpen")(princ)
)
(command "-VBARUN" "bkk.dvb!ThisDrawing.init")
(setvar "cmdecho" cmdechostate)
)
(princ "\nIDA is initialized.\n")
(princ)

And I have a BKK.DVB with a module1 with this in it:

Option Explicit

Public Sub IDAOpen()
If MsgBox("Open from IDA ?", vbQuestion + vbYesNo, "IDAOpen?") = vbNo
Then
ThisDrawing.SendCommand ".open" & vbCr
Else
MsgBox "Here I open from IDA!"
End If
End Sub

SO..... When I press OPEN, I get a messagebox, asking if I want to open a
drawing from the IDA archive... If I say yes, a new macro will be run. If I
press NO, the OPEN drawing dialog is shown. If I press CANCEL in this
dialog, everything is fine. If I press OPEN (to open a selected drawing),
the drawing opens, but AutoCAD just "dies".... I can access menus, buttons
on toolbars etc. but nothing works.... If I try to close AutoCAD, I get a
message saying that "A command is active so I can't close the window
etc....".

Anyone knows of a solution?

Trond Hasse Lie
Nestor
Norway

Re: AutoCAD "hangs" when opening file....

Anonymous — Thu, 07 Sep 2000 14:48:13 GMT

Hi Trond,
(command "-VBARUN" "bkk.dvb!ThisDrawing.init") ?
Sendcommand fires at the end of the macro, it doesn't necessarily wait for your
lisp routine to finish. A couple of possible options, Try rearranging your code
so that the "IDAOpen" macro will run at the end if called (even after changing
back cmdecho to it's previous setting) or try using an open dialogue and opening
the file with the open method instead of trying to initiate the open command
with sendcommand.
-Josh

Trond Hasse Lie wrote:

> Hi everyone.
>
> I have an acad.lsp file that looks like this:
>
> (defun S::STARTUP()
> (setvar "ACADLSPASDOC" 1)
> (setq cmdechostate(getvar "cmdecho"))
> (setvar "CMDECHO" 0)
> (command "undefine" "open")
> (defun C:open()
> (command "-vbarun" "bkk.dvb!IDAOpen")(princ)
> )
> (command "-VBARUN" "bkk.dvb!ThisDrawing.init")
> (setvar "cmdecho" cmdechostate)
> )
> (princ "\nIDA is initialized.\n")
> (princ)
>
> And I have a BKK.DVB with a module1 with this in it:
>
> Option Explicit
>
> Public Sub IDAOpen()
> If MsgBox("Open from IDA ?", vbQuestion + vbYesNo, "IDAOpen?") = vbNo
> Then
> ThisDrawing.SendCommand ".open" & vbCr
> Else
> MsgBox "Here I open from IDA!"
> End If
> End Sub
>
> SO..... When I press OPEN, I get a messagebox, asking if I want to open a
> drawing from the IDA archive... If I say yes, a new macro will be run. If I
> press NO, the OPEN drawing dialog is shown. If I press CANCEL in this
> dialog, everything is fine. If I press OPEN (to open a selected drawing),
> the drawing opens, but AutoCAD just "dies".... I can access menus, buttons
> on toolbars etc. but nothing works.... If I try to close AutoCAD, I get a
> message saying that "A command is active so I can't close the window
> etc....".
>
> Anyone knows of a solution?
>
> Trond Hasse Lie
> Nestor
> Norway

Re:

Anonymous — Wed, 08 Nov 2000 17:19:25 GMT

Hi Trond
I also have a LSP routine which loads and fires off a VBARUN... command with each file open. I have discovered that if there is an untitled, unsaved blank drawing (e.g Drawing1.dwg)active when I open another drawing, Acad2k will hang like you described. However, we're not trying to open a file using DVB like you are so it's easy for us to simply close the blank unnamed drawing before opening an existing file. Maybe you can add a line in the bkk.dvb to check to see if one or more of the current drawings opened are unsaved of the Drawing*.dwg name and close them before using the SendCommand ".open" command.