Finding the Center Point of a Polyline ?

[stephen.coff]

Guys,
How can I find the center of a closed polyline shape drawn, as I want to place text there ?

Stephen

[CADmium]

a simple routine to try .. saves the Centerpoint to he sysvar "LASTPOINT" an creates a circle ..

(defun c:PLCENTER (/ PL RE P)
(if(setq PL(car(entsel "\nSELECT PL:")))
(progn
(command "_undo" "_m")
(command "_region" PL "")
(if(and(setq RE(vlax-ename->vla-object (entlast)))
(=(strcase(vla-get-objectname RE)) "ACDBREGION")
(setq P (vla-get-centroid RE))
(setq P(vlax-safearray->list(vlax-variant-value P)))
)
(setvar "LASTPOINT" P)
)
(command "_undo" "_b")
)
)
(if P (command "_circle" P 5))
)

[stephen.coff]

Thomas,
Your on fire, reply after reply, thanks heaps. I am actually wanting to use it with the area thread as set the location for the text. I will have a play and see how it goes.

Thanks again

Stephen