Midpoint of a polyline

Does anybody have a code to get the midpoint of a light weight polyline?
Thanks,
Mike

 

DIVIDE command with 2 segments will put a node (point object) there.
___

 

It is not VB(A) but works:

(vlax-curve-getPointAtDist PolyObj (Vla-Get-Length PolyObj))

Josh

 

And with Frank O.'s VLAX & VLAX-CURVE classes you can do this in VB(A).
These can be found in post on here from a few weeks ago, or on Frank's Web
site when he gets it back online, or I can email them if there is a valid
email address given.

And, btw, that woul be :
(vlax-curve-getPointAtDist PolyObj (/ (Vla-Get-Length PolyObj) 2))

HTH,
Jeff

 

I use this:

[pre]
Private Function EntityCentroid(Entity As AcadEntity) As Double()
Dim EntityArray(0) As AcadEntity, RegionList As Variant

Set EntityArray(0) = Entity
RegionList = ThisDrawing.ModelSpace.AddRegion(EntityArray)
EntityCentroid = RegionList(0).Centroid
RegionList(0).Delete
End Function
[/pre]

Regards

Wayne Ivory
IT Analyst Programmer
Wespine Industries Pty Ltd

 

I can't get the second part of the expression to work.

ThisDrawing.SendCommand "(Vla-Get-Length " & EntHandle(returnObj) & ") "

It returns bad argument type. EntHandle is a small function that sends the handent to the command. It worked well with the getPointAtDist. What am I doing wrong?

 

Wayne,
I would've thought the AddRegion property would close the polyline and give
you the centroid of the area, not the midpoint of the polyline. This
doesn't seem like what he is after.

James

 

Yep, I'm not sure if you are seeing all the posts but we had come to that conclusion already.

Regards

Wayne