quren 发表于 2006-6-28 08:27:00

『急问』AutoCAD2006程序画弧为什么不正确？！

<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义圆心点<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim rp1(2), rp2(2) As Object</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rp1=mydoc.Utility.GetPoint(,"请输入第一段圆弧的圆心点：")</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rp2=mydoc.Utility.GetPoint(,"请输入第一段圆弧的圆心点：")</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '画圆弧&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mydoc.ModelSpace.AddArc(rp1, r, 90, 270).Layer = myLayer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mydoc.ModelSpace.AddArc(rp2, r, 270, 90).Layer = myLayer</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 结果，画出的圆弧与要求的不一致，是什么原因？！请高手赐教！</P>

雪山飞狐_lzh 发表于 2006-6-28 12:05:00

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ModelSpace.AddArc rp1, 10, Atn(1) * 2, Atn(1) * 6<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ModelSpace.AddArc rp2, 10, Atn(1) * 6, Atn(1) * 2<BR>
页: [1]
查看完整版本: 『急问』AutoCAD2006程序画弧为什么不正确？！