Rationaldmis2022 advanced programming macro program

FNAME = OBTAIN/F(@FORMNAME), 1
SELECT/FNAME
CASE/'PLANE'
    T(TFLAT_FORM) = TOL/FLAT, TOLFORM
	OUTPUT/FA(FORMNAME), TA(TFLAT_FORM)
	FORMDATA=value/TA(TFLAT_FORM),ACT
	IF/(FORMDATA .GT. TOLFORM)
	tempchar=assign/concat(' Current flatness is : ',str(FORMDATA),'>',str(TOLFORM),' Flatness out of tolerance warning ！')
	TEXT/OPER,tempchar
	endif
ENDCAS	
CASE/'CIRCLE'
    T(TFLAT_FORM) = TOL/CIRLTY, TOLFORM
	OUTPUT/FA(FORMNAME), TA(TFLAT_FORM)
	FORMDATA=value/TA(TFLAT_FORM),ACT
	IF/(FORMDATA .GT. TOLFORM)
	tempchar=assign/concat(' The current vector circularity is : ',str(FORMDATA),'>',str(TOLFORM),' Sagittal circularity out of tolerance warning ！')
	TEXT/OPER,tempchar
	endif	
ENDCAS
CASE/'ARC'
    T(TFLAT_FORM) = TOL/CIRLTY, TOLFORM
	OUTPUT/FA(FORMNAME), TA(TFLAT_FORM)
	FORMDATA=value/TA(TFLAT_FORM),ACT
	IF/(FORMDATA .GT. TOLFORM)
	tempchar=assign/concat(' The current vector circularity is : ',str(FORMDATA),'>',str(TOLFORM),' Sagittal circularity out of tolerance warning ！')
	TEXT/OPER,tempchar
	endif	
ENDCAS
CASE/'SPHERE'
    T(TFLAT_FORM) = TOL/CIRLTY, TOLFORM
	OUTPUT/FA(FORMNAME), TA(TFLAT_FORM)
	FORMDATA=value/TA(TFLAT_FORM),ACT
	IF/(FORMDATA .GT. TOLFORM)
	tempchar=assign/concat(' The current vector circularity is : ',str(FORMDATA),'>',str(TOLFORM),' Sagittal circularity out of tolerance warning ！')
	TEXT/OPER,tempchar
	endif	
ENDCAS


	DFTCAS

	ENDSEL
endmac



CALL/M(FORM),(PLN3),0.01