如获取UCS下的ARC属性数据

兰州人

有两个圆弧分别在XY平面句柄为A6, 在YZ平面句柄为A7,如图所示.

采用list 查询两个圆弧属性如下:

 句柄 = A6
              圆心 点，X=   1.0611  Y=   1.0491  Z=   0.0000
              半径    0.2594              起点 角度   269              端点 角度    91            长度    0.8258

句柄 = A7
              圆心 点，X=   1.0558  Y=   1.0491  Z=   0.0054
              半径    0.2594     

 相对于 UCS 的拉伸方向:                   X=  -1.0000  Y=   0.0000  Z=   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.0000  Y=   0.0000  Z=   0.0000
            长度    0.8258
             累计角度    182

请教各位大侠有何高见.