帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
% }! o2 y+ H5 n/ ^' f; G8 O3 R   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
" `6 Q6 m; B5 O
6 A- ^9 E5 a$ V+ Rprocedure mech_Pro_Type()
var
pro1_process,pro2_process:process
the_logic:logic
begin
9 m# w6 V+ ~$ T6 Z% m   wait until out part_count 0
; F! t' I* ?4 w+ u   require part any
' F1 \1 W6 n0 R, x8 n   pro1_process=get_process('Mechanism400')
   pro2_process=get_process('Mechanism500')
0 r) e- _$ S0 I2 G; x
   if(cpart<>NULL)then
5 N, Y) J3 O* A% @/ [3 @8 |. e2 p       if( cpart->Product_Type==400)then
8 m* a1 }/ R& l+ R            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
9 N0 ?0 ]" ~, d       else
# {% I+ c( g2 _' x1 w8 C7 }% U! b1 w  h            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       endif
   endif
* v. _+ S9 ?7 A; o4 b: `end