获取旋转图块的最小包装盒(VBA)

雪山飞狐_lzh

Sub GetBound()
Dim i As AcadEntity
Dim obj As AcadBlockReference, pBlock As AcadBlock
Dim dot(2) As Double
ThisDrawing.Utility.GetEntity obj, pnt
Set pBlock = ThisDrawing.Blocks(obj.Name)
pRotation = obj.Rotation
For Each i In pBlock
i.Rotate dot, pRotation
Next i
obj.Rotation = 0
obj.Update
obj.GetBoundingBox pMin, pMax
For Each i In pBlock
i.Rotate dot, -pRotation
Next i
obj.Rotation = pRotation
obj.Update
ThisDrawing.SendCommand "_.RECTANG " & pMin(0) & "," & pMin(1) & vbCr & pMax(0) & "," & pMax(1) & vbCr
End Sub

hnfsf

包围盒也是旋转了的？不懂vba，有没有vlisp的？

monkeylzx

感谢分享，继续学习大作

清风明月名字

谢谢楼主代码分享！