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