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

quren

            '定义圆心点
            Dim rp1(2), rp2(2) As Object

            rp1=mydoc.Utility.GetPoint(,"请输入第一段圆弧的圆心点：")

            rp2=mydoc.Utility.GetPoint(,"请输入第一段圆弧的圆心点：")

            '画圆弧 
            mydoc.ModelSpace.AddArc(rp1, r, 90, 270).Layer = myLayer
            mydoc.ModelSpace.AddArc(rp2, r, 270, 90).Layer = myLayer

       结果，画出的圆弧与要求的不一致，是什么原因？！请高手赐教！

雪山飞狐_lzh

            ThisDrawing.ModelSpace.AddArc rp1, 10, Atn(1) * 2, Atn(1) * 6
            ThisDrawing.ModelSpace.AddArc rp2, 10, Atn(1) * 6, Atn(1) * 2