Please Help Me! Insert Multiple Block Attributes at Geometric Center

[Kvlar]

I found autolisp code on this forum with the function of inserting multiple blocks at the center point circle.
Can anyone help me to make a code like this but with function to inserting multiple blocks (Attribute Blocks) at the geometric center of a closed polyline

 

Thank you

 

This is the code for inserting multiple blocks at the center point circle :

 

BlockOnCircle.lsp

[BIGAL]

Like this ?

 

(setq cpt (osnap (vlax-curve-getStartPoint obj) "gcen"))

 

[mhupp]

also mid point of bounding box of entity

 

;obj = vla-object name
(vla-getboundingbox obj 'minpt 'maxpt)
(setq LL (vlax-safearray->list minpt)
      UR (vlax-safearray->list maxpt)
      MPT (mapcar '/ (mapcar '+ LL UR) '(2 2 2))
)

 

[Kvlar]

Thank you to all of you