RationalDMIS2022 高级编程宏程序

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('当前平面度为: ',str(FORMDATA),'>',str(TOLFORM),'平面度超差警告！')
	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('当前矢圆度为: ',str(FORMDATA),'>',str(TOLFORM),'矢圆度超差警告！')
	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('当前矢圆度为: ',str(FORMDATA),'>',str(TOLFORM),'矢圆度超差警告！')
	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('当前矢圆度为: ',str(FORMDATA),'>',str(TOLFORM),'矢圆度超差警告！')
	TEXT/OPER,tempchar
	endif	
ENDCAS


	DFTCAS

	ENDSEL
endmac



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