|
发表于 2008-6-5 22:54:00
|
显示全部楼层
得到一个方法,但只能选择1个对象或一个块,同时选择多个对象时想得到中心点还请大家帮帮忙
Public Function GetEntMidPoint(ent As AcadEntity) As Variant '获得对象的中心点
Dim min, max
ent.GetBoundingBox min, max
GetEntMidPoint = Array((min(0) + max(0)) / 2, (min(1) + max(1)) / 2, (min(2) + max(2)) / 2)
End Function
|
|