asking for a little lisp file to insert a block

[Hans_Knol]

Hi all,

I’m looking for a small tool that looks in the drawing if there a block (invisible) is with a specific name, lets say that the name of the block is “BlockM”, if the block exist there is nothing to do, also not a message, but if it not in the drawing it must be inserted on point 0,0. The block is available in a library what is in the search path of AutoCAD.

Hope someone can help me wit a little lisp file like this?

[Kent1Cooper · Accepted solution]

Something like this?  In simplest terms, it checks whether there is are any insertions of the Block already [not just whether the Block definition exists in the drawing], and if not, puts it in.  Untested:

(if (not (ssget "_X" '((0 . "INSERT") (2 . "BlockM"))))

  (command "_.insert" "BlockM" "0,0" "" "" "")

)

[paullimapa]

If you meant that the BLOCK may be already in the drawing but not necessarily "Inserted" anywhere yet then you can check for the BLOCK in the drawing database this way:

(if (not (tblsearch "BLOCK" "BlockM"))

 (command "_.Insert" "BlockM" "0,0" "" "" "")

)