Lisp to insert specific block to each predefined object type

[bigcarl5000kg]

I'm looking for a lisp that can insert an existing block on each object with predefined object type = ASTANCHOR (see the dwg in attachment) - inserting point of the existing block on inserting point of the object. I have to manually select the existing block dwg data to be inserted.

I appreciate any help on this.

Best regards and have a nice day

[Sea-Haven]

This is maybe a tool palette or design center or 

answer, up to you.

[bigcarl5000kg]

Hi @Sea-Haven ,

many thanks for your response.

I don't think it's necessary. It is about automatic inserting one block into several places at once (on several objects of the same type at once). I do not know of any LISP that would do this without selecting the subject on which the block will be placed - I found only a few LISPs that insert blocks on manually selected object types such as line, polyline, arc, ...

Another problem will be whether LISP can recognize the objects, which I saved in dwg in the attachment.

[devitg]

@bigcarl5000kg Up to now I can get the top, middle, and bottom center of such PROXY entities . And the DownLeftPOINT, and Upright point from bounding box. 

Which and where you want to insert the block reference._?

[bigcarl5000kg]

Hi @devitg ,

many thanks for your answer. The middle point of each such PROXY entity as a insertion point for the block is the best location 😉.

The inserted block should be selected manually from the directory (DWG file) - an block example see attachment.

In principle, I need to insert this block on each PROXY entity with the object type ASTANCHOR.  However, it would be great to be able to choose between all or selected PROXY entities of this type, should such a need arise.

Thank you in advance for your help and have a nice day.

[john.uhden]

I like it, Alan.  That's the way I displayed all our details (broken down into categories) back in R12.

Plus I gave the users tools to add their own details to the library, compete with slide image.  Plus, they could search for details using wildcards and get a short list.

It's so sad that I was stabbed in the back by our IT guy because I apparently threatened his existence by knowing more than he did.  It was the best job and pay I ever had.  He survived because he was good at cooking the president's personal books.  Oh well, at least it all raised me to my current position of survey draftsman.  yay 😞

But the good news, maybe, is that I have been offered two better paying positions where I get to design again.

They each have their downsides, so we'll see where what's left of my brain leads me.

[Sea-Haven]

This is result for your dwg so could work out a insert point as Devitg has suggested.

(setq obj (vlax-ename->vla-object (car (entsel "pick object "))))
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq pointmin (vlax-safearray->list minpoint))
(setq pointmax (vlax-safearray->list maxpoint))

(-10.0 -10.0 0.0)
(10.0 10.0 10.0)

If inserting a bolt though its insert point would be like center of underside of head but how would we know head thickness without more info.

It sounds like way easier have a text file with bolt name size and insert pt. Look again at my image all that stuff is hidden behind image.

[bigcarl5000kg]

Hi @Sea-Haven ,

I normally have a lot of these existing PROXY objects (screws) with object type "ASTANCHOR". To the middle point of each such PROXY object, I need only to insert one selected DWG block from existing directory.

I just wanted to automate the original laborious manual insertion of such a block a bit. With 1000+ objects it is very laborious.