Topic: Need to close a DWG after a script has started ...

[nivuahc]

This is how I do it, quick and dirty, works like a charm (for me)

Code: [Select]

(defun c:scriptit ( / file files open_file f )
(setq file "C:\\MYPATH\\" ; where we start looking for drawings
      open_file (open "C:\\MYPATHANDSCRIPTNAME.scr" "w") ; where we store the script and what we call it
) ;_ end setq

(while
  (setq file (getfiled "Select files to include in script" file "dwg" 128))
  (setq files (cons file files))
) ; end while

(write-line "sdi\n1" open_file) ;_ turn on single document interface
(foreach f (reverse files)
(write-line
(strcat "open\n\"" f "\"
;;;;;;;;;;; Erase this comment and put all of your commands in here (including calls to LISP routines), open and closed quotes are already handled
qsave")
open_file)
) ; end foreach

(write-line "sdi\n0" open_file) ;_ turn off single document interface
(close open_file)
) ; end defun


[Hangman]

Lee,
I need some assistance with your code:

Also

Code: [Select]

(vla-activate (vla-add (vla-get-Documents (vlax-get-acad-object))))

I ended up using ronjonp's but I want to know what I did wrong with your line here.
This is what I did:

Code: [Select]

(defun CloseOrigDWG (/ FNnote NewFName j)
  (prompt "\nClosing Original DWG ... ")
  (setq FNnote (open FNnotePath "R")
        NewFName (read-line FNnote)    [color=blue]There are two lines in the document, I only need the second[/color]
        NewFName (read-line FNnote))   [color=blue]I'll go back and put in some testing to make sure it is the correct line[/color]
  (setq FNnote (close FNnote))
  (vla-activate (vla-add (vla-get-Documents (vlax-get-acad-object)))
    (setq j (vla-item NewFName))
  )
  (vla-close j)
)

This is what I got back:

Application Error: 2 :- bad argument type: VLA-OBJECT "5N15B-2-P0210 S3_orig.dwg"

[Lee Mac]

Hint:

Code: [Select]

(setq j (vla-item NewFName))
NewFName is an item of which collection?

I think you'll get the same result as my post #11 however... "Automation Error: Drawing is Busy"

[Hangman]

I have just noticed something in regards to Ronjon's code:

< .. >
See if this gives you any ideas:

Code: [Select]

(setq docs (vla-get-documents (vlax-get-acad-object)))
(setq i (vla-item docs "Drawing1.dwg"));;<-Name is case sensitive
;;Should work for drawings in the background but not if drawing is current
(vla-close i)

Did you know this code will save the document as is when it closes?
I hadn't noticed this before, but as I was running some final tests before putting this out to my users, I noticed my drawings are not what they were when first opened.

So, how can I tell it to close without saving?
There's gotta be some kind of

Code: [Select]

(vla-close ::(save=false) i)right?

[Lee Mac]

Look into the arguments for the vla-close method. 

[Hangman]

Look into the arguments for the vla-close method. 

OK, I am blind and dumb; I can't find the arguments for the vla-close method.   Where do I look?

I did find this http://www.theswamp.org/index.php?action=printpage;topic=26699.0 which gave me the example I needed to get it working.  But I want to read up on the possible arguments of - not just vla-close - the vla commands.

Thanks.

[Lee Mac]

Look into the arguments for the vla-close method. 

OK, I am blind and dumb; I can't find the arguments for the vla-close method.   Where do I look?

A little tutorial for ya 

http://lee-mac.com/functioninfo.html

Note that the help for the VL props/methods will be written with VBA in mind, but the arguments, their types and order all apply to VL, so it shouldn't be difficult to make the connections.

Also, if you're using 2011, I think ADesk removed the help for the VL props/methods when they went online with it

[Hangman]

< .. >
http://lee-mac.com/functioninfo.html
 < .. >

DOHT!!!  Where is my brain.  I went through the ACAD help file, the AutoLisp Reference, AutoLisp Developers guide, and a brief search online.
didn't even think of VLIDE even though I use it to check my code.

Also, if you're using 2011, I think ADesk removed the help for the VL props/methods when they went online with it

And that would be why I can't find it.  Hehehe, blame it on Autodesk.    :thumbsup:

[Lee Mac]

And that would be why I can't find it.  Hehehe, blame it on Autodesk.    :thumbsup:

I think there's a .chm alternative for 2011 that is available here, but I couldn't say whether it would include the VL props/methods...

Scratch the above, upon looking at the Readme here, it appears the help is available, but in a separate chm:

For help with vla-* functions, see the AutoCAD ActiveX and VBA Reference available at C:\Program Files\Common Files\Autodesk Shared\acadauto.chm (not available online).

Why do they have to make our lives harder... 

[Kerry]

FWIW.

I have links to some Help Files on a Windows Toolbar

quite handy sometimes ..

.. a piccy at work ... home is different

[Lee Mac]

I have links to some Help Files on a Windows Toolbar

Nice idea 

On a similar note, I have a dock with links to ACAD, my LISP Sub library etc... - saves so much time.