【讨论】CIMATRON的POST

darkbit

以下代码是我自写的POST中圆弧段表示法（勉强可称算法），跟Cimatron中附带的DEMO不同，用R来表示G02和G03（DEMO用I，J，K来表示G02和G03）。其中MEDX，MEDY是自定义变量，类型为COORDINATES。
  
CIRCULAR MOTION:  
      IF_SET (ARC_ANG _LT_ 0.0) ARC_ANG = 0.0 - ARC_ANG ; END_IF ;
  
      OUTPUT $ ;
      IF_SET (CIRC_MOV) OUTPUT " " CIRC_MOV ; END_IF ;  
      IF_SET (ARC_ANG _GT_ 0.0)
        IF_SET (ARC_ANG _LE_ 180.0)
          IF_SET (X_ENDPT) OUTPUT " X" X_ENDPT  ; END_IF ;  
          IF_SET (Y_ENDPT) OUTPUT " Y" Y_ENDPT  ; END_IF ;  
          OUTPUT " R" RADIUS_ ;
          IF_SET (MCH_FEED) OUTPUT " F" MCH_FEED ; END_IF ;
        ELSE
          MEDX = 2 * X_CENTER - XOLD ;
          MEDY = 2 * Y_CENTER - YOLD ;
          OUTPUT " X" MEDX " Y" MEDY " R" RADIUS_ ;
          IF_SET (MCH_FEED) OUTPUT " F" MCH_FEED ; END_IF ;
          SET_ON X_ENDPT Y_ENDPT ;
          OUTPUT $ " X" X_ENDPT " Y" Y_ENDPT " R" RADIUS_ ;
        END_IF ;
      ELSE
        MEDX = 2 * X_CENTER - XOLD ;
        MEDY = 2 * Y_CENTER - YOLD ;
        OUTPUT " X" MEDX " Y" MEDY " R" RADIUS_ ;
        IF_SET (MCH_FEED) OUTPUT " F" MCH_FEED ; END_IF ;
        SET_ON X_ENDPT Y_ENDPT ;
        OUTPUT $ " X" X_ENDPT " Y" Y_ENDPT " R" RADIUS_ ;
      END_IF ;  
  
      SET_ON LIN_MOV ;  
      XOLD = X_CURPOS ;  
      YOLD = Y_CURPOS ;  
      ZOLD = Z_CURPOS ;

ymgd

darkbit

darkbit

chen75

darkbit

lgj

darkbit

ymgd

totob