simtalk程序调试不出来，帮忙看一下

zooey

is
9 k) K9 ^- N3 y1 S' U) j$ h# K0 {        mark:boolean;
" ^& @# Y9 t% @. d/ s        dx,dy,ct:real;
4 P, @% E" _; E0 e2 ^4 m* R. i    i,j,rows,lines:integer;
    machinename,bufname:string;
4 l' }) B4 E- _$ w/ G    machine,buf:object;
3 z- O) E! k7 H- }1 odo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& H/ ~' Q* U  Q6 @- C9 f: b                inspect messagebox("设施数目不对！请核查...,",50,13)
3 `. B) _7 Y  r2 o4 v4 p                when 16 then
; N3 u( |9 Y1 ~, b9 u- H                        print"yes";
, {, f$ y6 s' h# z  X( c  u# ~4 i! L                when 32 then
                        print"no";
                else
% i2 U* [( H# e                        print"cancel";
) s- {* _6 M# _0 `                end;
2 I4 `% ~0 \( d, w: R2 o3 P                eventcontroller.stop;
        end;
8 Y- E: N; c3 Z# M0 \) {       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  P6 ]/ a# ~# }! f) R        if existsobject(machinename) then
% ^6 W& F; j! `) R7 @- r! X                machine:=str_to_obj(machinename);
% {# X1 W1 C, ^, \6 B5 X                machine.deleteobject;
        end;
$ a3 c9 u7 C4 n3 H0 O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' u) z: e5 p! g2 n9 s/ l                buf:=str_to_obj(bufname);
  i3 K. f$ U. s1 _8 L$ q2 h/ Z                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
6 _* \/ c8 P1 L! |4 D5 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) w$ V5 G9 \, X: R/ b                --mark:=false;
. b! W% T/ i& i8 q0 c9 w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 N& \. x# {$ ?, P, T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; `  B" Q  b1 R" ^/ {                        print activityspace[1,rows],",",activityspace[2,rows];
2 p' D2 g4 k8 q, l4 M) {9 N                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ ^) ^( {0 ]6 n' o$ c                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
* \! M' X* I( ]                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 |) ~, i' n% `1 f- a                        --end;
+ B: m3 m* D0 r                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( p; k4 h) A# N4 F' U/ c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 o  F" }0 ?; D3 d; S- z2 Y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, m! u  X5 E9 n9 `+ l& ~0 I                end;
, L2 l! Q- i( c+ S( H                dx:=dx+activityspace[1,rows];
+ O$ O: |* R0 {  N7 E* y                /*if mark=true then
8 X9 i1 u8 o4 r3 ^: w8 R8 H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 A5 T$ l1 T4 w* a% K        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
( G4 G! [5 Q* B: N  w( }7 t        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' ?" @/ z: H% S* B2 b+ j; [                        if j=i then
* r! x2 Y/ I; ^  y                                d_from_to_chart[j,i]:=0;
1 ?- @) d, w3 E/ B) P                        else
% P% r3 z( R3 A" Y4 A                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& [& M9 n) Z* j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; o1 p$ h9 s% n. K, Q9 H) c                                d_from_to_chart[j,i]:=abs(dx-dy);
$ M8 A! r( [3 W0 j+ g  A                        end;
( p& E2 Z% @% s! |- Q( Y                next;
% p+ R  G* k& j1 B. ?2 x        next;
       
* i' H7 O+ o9 R- p" O        lines:=0;
" C, q& G% T4 H& \( P% y        partstable.delete;
9 b" d/ A, S( c4 T% z8 e       
( [/ F7 Z6 Z% x2 d; @' q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& a2 P+ A* z% b2 t* F0 g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% H4 K% N/ F% `1 l8 ?- m6 H2 r  S                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' ]4 u  n  h8 G1 g                        partstable[2,lines]:=w_from_to_chart[j,rows];
% v) e# `; e+ K4 x0 o                        partstable[3,lines]:=sprint("parts");
! e0 a+ n( o5 S% k: I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# E7 x, q0 y. t0 \                end;
4 D& g* q' C. v# u4 ^. n        next;
        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
, Q; P6 m0 Z% D1 ~* _: }        machine.name:=machinename;标识符未知
' @7 [' l4 G+ D. t  y8 V2 R% {        machine.proctime:=5;
( E. Z2 {- Z$ Z! G5 w        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
! b0 z3 x7 r' w  j' o* o       
        bufname:=sprint("BF",rows);
0 Q+ i) V7 _8 H        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
- h9 N1 F$ r& j$ |! v: }' O        buf.name:=bufname;
" m6 T! W+ s8 E- p        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 Z2 ?! Q) Q3 @dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; o6 R2 k+ b) x* X/ J3 D  {0 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, I: M: P, s5 }4 H6 c8 q" G( V. ]9 ]4 znext;
end;