M(FLAT_SELECT) = MACRO/‘PPP1’,‘PPP2’
T(TEST1) = TOL/FLAT,0.1
T(TEST2) = TOL/FLAT,0.1
EVAL/FA(PPP1),T(TEST1)
EVAL/FA(PPP2),T(TEST2)
KNPTR1 = VALUE/TA(TEST1),ACT
KNPTR2 = VALUE/TA(TEST2),ACT
IF/(KNPTR1 .LE. 0.1) .AND. (KNPTR2 .LE. 0.1)
IF/(KNPTR1 .GE. KNPTR2)
OUTPUT/FA(PPP1),TA(TEST1)
ENDIF
IF/(KNPTR2 .GE. KNPTR2)
OUTPUT/FA(PPP2),TA(TEST2)
ENDIF
ELSE
IF/(KNPTR1 .GT. 0.1)
OUTPUT/FA(PPP1),TA(TEST1)
ENDIF
IF/(KNPTR2 .GT. 0.1)
OUTPUT/FA(PPP2),TA(TEST2)
ENDIF
ENDIF
ENDMAC
CALL/M(FLAT_SELECT),(PLN1),(PLN2)
使用的时候,把CALL这句的PLN1\PLN2改为对应的平面名称就可以了.