帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
. p1 p2 h: O! \  B/ s; ^   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)

9 q" g% `& I# X; r% S" iprocedure mech_Pro_Type()
# a$ M$ S) ]" X. z* Jvar
pro1_process,pro2_process:process
% L5 I$ m, E. `8 |) `, h" I7 {5 Zthe_logic:logic
begin
   wait until out part_count 0
   require part any
% n/ g. ^7 j7 o, l1 x% w# s. K* {, ~5 h   pro1_process=get_process('Mechanism400')
   pro2_process=get_process('Mechanism500')
* p  R) C& A$ t2 ?5 Q6 c
   if(cpart<>NULL)then
5 `7 K% {  l7 S( h, T* o0 n       if( cpart->Product_Type==400)then
0 J+ [- b4 n. O8 B% a% l) \            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
5 x: t  R4 W3 E# w$ e         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       else
: f$ F, v5 \4 f            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
; w' ]7 {, Y" \) G          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       endif
   endif
end