兰州人 发表于 2007-5-13 12:32:00

如获取UCS下的ARC属性数据

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