當文本的旋轉角度為0時，可以使用getboundingbox得到左下角和右上角的坐標，getboundingbox是壹個盒子，通過減去左下角和右上角的兩個X值可以得到文本的長度。
但是
當文字旋轉角度較大時，如下圖所示:
測試代碼如下:
子測試()
Dim zx作為變體
將ys標註為變量
Dim pt作為變體
Dim ent1作為AcadEntity
這幅畫。效用。getentity ent1，pt，"拾取對象"
ent1。GetBoundingBox zx，ys
將pl標註為AcadLine
Set pl = ThisDrawing。模型空間. AddLine(zx，ys)
停止
末端接頭
綜上所述，VBA可以得到旋轉角度為0°或只有幾度的字符的最大包圍盒。旋轉角度太大，就會太弱。
結束！！！