Inserting the same Block to multiple points in drawing

[rroell]

I want to insert a block called "Valveblock22" on a layer called "Valve22" I have approximately 4,000 points that this block needs to be added to. Is there a way I can do this easily? A lisp progaram or something? Any help will be much appreciated.

[dbroada]

I can't actually help although there are plenty around who can but it is relatively easy using LISP or VBA provided your points are available in a sensible format. What format do you have them in?

[BIGAL]

Do you have the points as a xyz text file ? You could just do a script use search replace and create as below I have previously mentioned using ^p with MS word.

script would be

insert myblock x,y,z 1 1 0

ie

insert myblock 12,25,0 1 1 0

insert myblock 42,34,0 1 1 0

etc

 

It should only take a couple of minutes here is an example using word to change

47,993.846, 5015.394, 0

46,987.285, 5022.663, 0

45,937.182, 5040.847, 0

44,949.015, 5040.7, 0

43,961.301, 5038.069, 0

42,972.357, 5033.287, 0

41,978.957, 5029.282, 0

 

load into word do the following

find replace ^p with ^pinsert myblock

find replace ^p with 1 1 0^p

 

You will need to edit first line then save as a script please note its hard here to show but watch out for extra spaces they react as if you pressed the enter key see spaces between x & y need to be removed search for ", " replace ","

 

insert myblock 993.846,5015.394,0 1 1 0

insert myblock 987.285,5022.663,0 1 1 0

insert myblock 937.182,5040.847,0 1 1 0

insert myblock 949.015,5040.7,0 1 1 0

note also removed the point number you can vertically delete in word put mouse to top left hold alt key and window via mouse then delete

[Commandobill]

If you legitimately have points on your drawing and need blocks there then you could go with something simple like this.

 

(defun c:bins ( / )
 (setq drac 0
   ss (ssget "X" (list (cons 0 "POINT")))
   )
 (setvar "cmdecho" 0)
 (while (< drac (sslength ss))
   (setq pnt (cdr (assoc 10 (entget (ssname ss drac)))))
   (command "-insert" "Valveblock22" pnt 1 1 0)
   (setq drac (1+ drac))
   )
 (setvar "cmdecho" 1)
 )

[rroell]

I was able to generate a x,y,z point list and followed the steps and it worked fine. Although I needed to take off the last "1" in the sequence. (must be the way I have my insert button set up.)

 

Thanks for the help!

[pule]

If you legitimately have points on your drawing and need blocks there then you could go with something simple like this.

 

(defun c:bins ( / )
 (setq drac 0
   ss (ssget "X" (list (cons 0 "POINT")))
   )
 (setvar "cmdecho" 0)
 (while (< drac (sslength ss))
   (setq pnt (cdr (assoc 10 (entget (ssname ss drac)))))
   (command "-insert" "Valveblock22" pnt 1 1 0)
   (setq drac (1+ drac))
   )
 (setvar "cmdecho" 1)
 )

 

 

Hey i have try your LISP for my blocks ( in Civil 3d 2011) and block have showd on one point not on multiple points

[pule]

Is there any possibility that i can choose block which i wish to insert?

[YahooSAM]

Tried the "Bins" lisp contained in this string....  worked like a dream on 2,973 autocad points - thanks!!!!!!!