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