lvdezhi886 发表于 2011-2-13 22:13:17

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

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

yanyanjun999 发表于 2011-2-14 19:23:33

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

nameld001 发表于 2011-2-26 11:36:48

直线两端就是最小和最大坐标位置
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
页: [1]
查看完整版本: 怎么用GetBoundingBox获取实体的最小包围矩形的左下角和右下角坐标