Insert block with AutoLisp

[Alex Repetto]

Yes:

Command: INSERT
Then, in the dialog box, go to browse and select the drawing you want.

or

Command: -INSERT
Enter block name or [?] <Chair>: Closet
The drawing Closet will be loaded from HD only if Closet is not already
loaded (somewhere in the past)

or

Command: -INSERT
Enter block name or [?] <Chair>: Closet=
The drawing Closet will be loaded from HD even if Closet is already loaded
(somewhere in the past)
The definition of Closet in the drawing will be overwritten by the
definition of Closet on the HD
or
Enter block name or [?] <Chair>: Closet=NewCloset
The definition of Closet in the drawing (Closet) will be overwritten by the
definition of Closet on the HD (NewCloset). The Name Closet will be
retained.

By the way:
Command: -INSERT
Enter block name or [?] <Chair>: Closet
will only work if Closet will be found by AutoCAD.
These directories are:
- The current directory
- The directories as defined in the support-search-path (go to OPTIONS,
FILES-tab, Support File Search Path)
- The directories as defined in the drivers-search-path (go to OPTIONS,
FILES-tab, Device Driver File Search Path)
- The directory where ACAD.EXE resides.

You could also use:
Command: -INSERT
Enter block name or [?] <Chair>: C:\AutoCAD\Library\BathRoom\Closet.dwg

Good luck,

Alex

[Jason Piercey]

This is true, however it is not good practice to include path statements
in lisp routines. Say get write 200 lisp routines that all reference a
path of some sort, what happens when the path changes? Time to start
revising those 200 routines. :(

-Jason

Tim Doyle wrote:
>
> rjg-sec,
>
> Jtrostad gave you the following:
>
> (command "insert" "yourblock" Point scale scale rotation)
> where point is your insert point, scale is x then y scales, and
> rotation is your rotation.
>
> You can also include the drive and path information for the location
> of your block in "yourblock" such as
> "c:\\drawings\\blocks\\yourblock.dwg" if this directory is not in your
> Support File Search Path.
>
> Tim
>
> rjg-sec <r...@seconsultants.com> wrote in message
> news:f06b0...@WebX.maYIadrTaRb...
> Is there a way to insert a block from the hard drive into
> the drawing without having it already in the drawing or
> having to redraw it in the drawing?

[Rudy Tovar]

This should help, but remember you have to add the attribute definitions.
Also the angle must be passed as a radian.

Function
(MKinsert <layer> <block> <Insertion> <X> <Y> <Angle>)

(defun MKinsert (lay blk ins x y ang /)

(entmake
(list
(cons 0 "INSERT")
(cons 100 "AcDbEntity")
(cons 67 0)
(cons 8 lay)
(cons 100 "AcDbBlockReference")
(cons 2 blk)
(cons 10 ins)
(cons 41 x)
(cons 42 y)
(cons 50 ang)
(cons 70 0)
(cons 71 0)
(cons 44 0.0)
(cons 45 0.0)
(cons 210 (list 0.0 0.0 1.0))
)
)
(princ)
)

--

Ru...@Cadentity.com
Practical Utilities for Productive Solutions
'Block Attribute Assistant' - Available Since Jan. 1 2001!
www.Cadentity.com

rjg-sec <r...@seconsultants.com> wrote in message

news:f06b...@WebX.maYIadrTaRb...
> Sorry, I forgot to specify that I would like to get away from having to
use the "command" function for that and instead use the "entmake"
function...
>