RationalDMIS 7.1 自动选择数据输出的语句

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改为对应的平面名称就可以了.