topic Open drawings and insert block in Visual LISP, AutoLISP and General Customization Forum

Open drawings and insert block

Anonymous — Thu, 07 Jun 2018 17:22:31 GMT

Hi.

Is it possible to open a few drawings in a special folder and then insert block in layout (same position), save and close drawing?

This is what I am working:

(defun C:INSERELOGOPB (); = LOGOTIPO_COR
  (command "_.insert" "//mydrive/mydwg.dwg") (command)
  (command "_.insert" "LOGOTIPO_COR" "0.6815,0.0115" "" "" "")
  (princ)
)

Re: Open drawings and insert block

Moshe-A — Thu, 07 Jun 2018 18:56:31 GMT

paulo,

if you are talking about opening (and closing) few drawings than i suggest using script (scr)

at the script you call your lisp

(defun c:insertlogopb ()

(setvar "ctab" "your_layout_name") ; switch layout, note it's require to check if layout is exist?

; to minimize problems

; i would not insert "mydwg" container in order to get "LOGOTIP_COR", wblock it to folder

; and add it to the support search file path

(command "_.insert" "LOGOTIPO_COR" "0.6815,0.0115" 1 1 0)

)

add the lisp to startup suite (or load it from acad.lsp or acaddoc.lsp)

insertlogopb.scr

open "c:\\mydrive\\mydwg1.dwg"

insertlogpb ; call lisp

qsave

open "c:\\mydrive\\mydwg2.dwg"

insertlogpb ; call lisp

qsave

Moshe

Re: Open drawings and insert block

DannyNL — Fri, 08 Jun 2018 06:18:21 GMT

Instead of a script you can also use ODBX in this case, which will process the drawings much faster.

The code below uses Lee Mac's ObjectDBX Wrapper and this can be downloaded from http://www.lee-mac.com/odbxbase.html.

Define the blocks and insertion points in de InsertBlock function in the code below, in exactly the same format as shown in this example. Then load this code incl. the ObjectDBX Wrapper in a new empty drawing and use RUN to execute.

The routine will let you select a folder with drawings and process them in the background. The existing drawings will be saved c.q. overwritten, so make sure to test on a folder with just a couple of example drawings to make sure everything runs as expected before unleashing it on a folder with maybe hundreds of drawings.

(defun InsertBlock (IB_File / IB_BlockList IB_FoundFile)
   (setq IB_BlockList
      '(
         ("C:\\TEMP\\LOGOTIPO_COR.dwg" . (0.6815 0.0115))
         ("C:\\TEMP\\Block2.dwg"       . (50.0   50.0))
         ("C:\\TEMP\\Block3.dwg"       . (100.0  100.0))
      )
   )
   (foreach IB_Item IB_BlockList
      (if
         (setq IB_FoundFile (findfile (car IB_Item)))
         (vl-catch-all-apply 'vla-InsertBlock (list (vla-get-ModelSpace IB_File) (vlax-3D-Point (cdr IB_Item)) IB_FoundFile 1 1 1 0))                                                 
      )
   )
)

(defun c:Test ()  
   ;;; Uses Lee Mac's ObjectDBX Wrapper - Download at http://www.lee-mac.com/odbxbase.html
   (LM:ODBX 'InsertBlock nil T) 
   (princ "\nFinished!")
   (princ)  
)

Re: Open drawings and insert block

Anonymous — Fri, 08 Jun 2018 13:18:15 GMT

Hi,

Thank you.

It places the block in model space and not in layout (paperspace). I need to insert in layout.

Re: Open drawings and insert block

Anonymous — Fri, 08 Jun 2018 14:15:31 GMT

Just try this:

(vl-catch-all-apply 'vla-InsertBlock (list (vla-get-PaperSpace IB_File) (vlax-3D-Point (cdr IB_Item)) IB_FoundFile 1 1 1 0))

And it works,

Yhank you!

Re: Open drawings and insert block

roland.r71 — Fri, 08 Jun 2018 15:21:27 GMT

Opening and editing drawings in sequence is a bit problematic with standard acad.

Normally a lisp is bound to the drawing inside which it was loaded. Load it in 1, switch to another drawing, and it will not be available there. Only inside the first.

Close the drawing & you will terminate the lisp.

There are a few ways to circumvent this, like using a script file (*.scr)

BUT! there's a way more easy way to do it.

1. Make sure you have only 1 drawing open.

2. Inside your lisp, set SDI to 1. ( = Single Document Interface)

3. Open & process as many dwg's as you like (in sequence)

From the moment you turn SDI to 1, the lisp will act just like any script!

(& i wish i knew this many years ago 😛 )