https://forums.autodesk.com/t5/vba-forum/block-inserting-twice/m-p/2291273#M19242 Set BlockRef = ThisDrawing.Blocks("*MODEL_SPACE").InsertBlock(point, Path, 0.1764, 0.1764, 0.1764, 0#)<BR /> <BR /> where <BR /> point is ur insertion point<BR /> Path is ur path <BR /> 0.1764 is x , y ,z scale Sat, 19 Jul 2008 06:05:53 GMT Anonymous 2008-07-19T06:05:53Z https://forums.autodesk.com/t5/vba-forum/block-inserting-twice/m-p/2291272#M19241 Hello all,<BR /> <BR /> Newbie here trying to do some VBA.<BR /> <BR /> I've got code that does what I want, but it inserts the block twice???? Any suggestions on how to modify the code to only insert the block once at the given location?<BR /> <BR /> <CODE><BR /> Dim blockRefObj As AcadBlockReference<BR /> Dim insertionPnt(0 To 2) As Double<BR /> insertionPnt(0) = 567.59: insertionPnt(1) = 929.73: insertionPnt(2) = 0#<BR /> Set blockRefObj = ThisDrawing.PaperSpace.InsertBlock(insertionPnt, "C:\Oilfield ACAD-config\Blocks\VERT-COORDS.dwg", 1#, 1#, 1#, 0)<BR /> <END code=""><BR /> <BR /> Thanks</END></CODE> Wed, 02 Jul 2008 14:02:01 GMT https://forums.autodesk.com/t5/vba-forum/block-inserting-twice/m-p/2291272#M19241 Anonymous 2008-07-02T14:02:01Z https://forums.autodesk.com/t5/vba-forum/block-inserting-twice/m-p/2291273#M19242 Set BlockRef = ThisDrawing.Blocks("*MODEL_SPACE").InsertBlock(point, Path, 0.1764, 0.1764, 0.1764, 0#)<BR /> <BR /> where <BR /> point is ur insertion point<BR /> Path is ur path <BR /> 0.1764 is x , y ,z scale Sat, 19 Jul 2008 06:05:53 GMT https://forums.autodesk.com/t5/vba-forum/block-inserting-twice/m-p/2291273#M19242 Anonymous 2008-07-19T06:05:53Z