RationalDMIS 2020圆按弧度产生测点

DECL/COMMON,INTGR,I,NUM_PT

      DECL/COMMON,DOUBLE,D_ARC

      D_ARC = OBTAIN/F(ARC1),4

      TEMPCHAR = PROMPT/TEXT,'输入测量点数',EDIT,NUM_PT

      MEAS/ARC,F(ARC1),NUM_PT

              DO/I,1,NUM_PT

                    PTMEAS/CART,0,0,D_ARC,0,0,1

                    D(TEMP) = ROTATE/ZAXIS,1

              ENDDO

      ENDMES