帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
1 l: T' A9 z  ^   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)

; J3 h' _# V, p0 N# w9 w' Mprocedure mech_Pro_Type()
- \2 A' j) D) H/ N, l, lvar
3 t% Y& U3 Q( Y; C8 V$ P6 Zpro1_process,pro2_process:process
the_logic:logic
0 q7 Z/ p& n  \3 T% Z, q9 Q& _begin
' [" w# k7 z4 X) b5 |; m- M8 i   wait until out part_count 0
   require part any
7 o( a; }3 a1 f& A* g; I/ u  v   pro1_process=get_process('Mechanism400')
6 B8 Z. w2 {: x6 q   pro2_process=get_process('Mechanism500')
- E0 f7 M2 d& T0 F
   if(cpart<>NULL)then
       if( cpart->Product_Type==400)then
6 {+ k: _: u* y7 T. {6 N9 }, V            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       else
7 a7 _* M, }/ U& D            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       endif
   endif
2 T2 i. \# O5 @9 h) U9 l& T/ }) B$ c& ^end