如获取UCS下的ARC属性数据
有两个圆弧分别在XY平面句柄为A6, 在YZ平面句柄为A7,如图所示.采用list 查询两个圆弧属性如下:
句柄 = A6
圆心 点，X= 1.0611Y= 1.0491Z= 0.0000
半径 0.2594 起点 角度 269 端点 角度 91 长度 0.8258
句柄 = A7
圆心 点，X= 1.0558Y= 1.0491Z= 0.0054
半径 0.2594
相对于 UCS 的拉伸方向: X=-1.0000Y= 0.0000Z= 0.0000
长度 0.8258
累计角度 182
问题如下
Sub ls()
Dim lsArc As AcadArc
Dim rr As AcadEntity
For Each rr In ThisDrawing.ModelSpace
Set lsArc = rr
Debug.Print lsArc.StartAngle
Next rr
End Sub
用传统方法获取Arc的属性只能是WCS坐标系下的Arc SartPoint,EndPoint,CenterPoint等属性数据.
我需要的数据是
相对于 UCS 的拉伸方向: X=-1.0000Y= 0.0000Z= 0.0000
长度 0.8258
累计角度 182
请教各位大侠有何高见.
页:
[1]