RationalDMIS 2020 進階程式設計

DECL/COMMON,REAL,PM_TEREF_Y
PM_TEREF_Y = OBTAIN/FA(PM_TEREF),4
SNSET/APPRCH,.02
SNSET/RETRCT,.02
TEXT/OUTFIL,'** PM_CC (-X direction) **'
F(PM_CC) = FEAT/POINT,CART,0.8548,1.2545,-0.0000,$
-0.9961,-0.0101,-0.0875
DECL/INTGR,PM_CNTR
DECL/REAL,PM_XLAST,PM_XMEAS
PM_XLAST=ASSIGN/10
DO/PM_CNTR, 1, 25, 1
MEAS/POINT,F(PM_CC),1
PTMEAS/CART,0.8548,PM_TEREF_Y,-0.0000,-0.9961,-0.0101,-0.0875
ENDMES
PM_TEREF_Y = ASSIGN/PM_TEREF_Y-(.002)
PM_XMEAS=OBTAIN/FA(PM_CC),3
IF/(PM_XMEAS.LT.PM_XLAST)
PM_XLAST=ASSIGN/(PM_XMEAS)
ENDIF
ENDDO
F(PM_CC) = FEAT/POINT,CART,0.8548,1.2545,-0.0000,$
-0.9961,-0.0101,-0.0875
FA(PM_CC) = FEAT/POINT,CART,PM_XLAST,1.2545,-0.0000,$
-0.9961,-0.0101,-0.0875
T(S0035) = TOL/PROFP,-0.0050,0.0050
OUTPUT/FA(PM_CC),TA(S0035)