怎么用GetBoundingBox获取实体的最小包围矩形的左下角和右下角坐标

lvdezhi886

怎么用GetBoundingBox获取实体的最小包围矩形的左下角和右下角坐标，请高手指点，如果有这个命令可用的程序的，发一个到我的邮箱lvdezhi886@163.com,谢谢

yanyanjun999

啥叫“实体的最小包围矩形”？

nameld001

直线两端就是最小和最大坐标位置
Sub tt()
On Error Resume Next
Dim obj As Object
Dim pt As Variant
Dim mapt As Variant
Dim mipt As Variant
ThisDrawing.Utility.GetEntity obj, pt, "请选择！"
obj.GetBoundingBox mipt, mapt
ThisDrawing.ModelSpace.AddLine mipt, mapt
End Sub