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

zooey

is
' T" g- Y0 P- m0 f6 l1 j        mark:boolean;
/ K+ n; k) O1 C6 N0 B        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 \, s0 f- @  E8 N7 R- X" P    machinename,bufname:string;
    machine,buf:object;
/ P* E( \) s1 M! D9 A2 Edo
        current.eraselayer(1);
! D8 X8 Z! j; {) x/ o  c( x$ d       
3 d, D9 l4 \) M+ A" Y0 n( t5 b7 n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
( p: U( A8 Y" ?  |! f                else
) O8 T) ^" `# b: n1 `                        print"cancel";
% K$ i! U- H3 z4 @: o1 f  V7 \' c                end;
1 W' _. `0 e5 L. u1 I/ `                eventcontroller.stop;
        end;
  F8 D6 L9 `0 a. G7 j+ h       
        for i:=1 to number_of_machine loop
" A% ^# x0 L5 @4 s8 ^, }: l. M6 G& }        machinename:=sprint("M",i);
        if existsobject(machinename) then
, S7 A) ?6 c0 A( E" ?0 P/ m                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
; Z  r+ [  n7 g7 e5 h1 V! y        dx:=0;
6 ]/ n( o0 T2 G# Q1 J        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! X0 h5 F; l6 ?1 j1 j                then
7 q( a8 \8 f% k1 z+ k" K  Y! v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 ?' v" }4 u7 a9 l* i                        print activityspace[1,rows],",",activityspace[2,rows];
1 N. H: ^; Y5 _$ `  b5 U                        ct:=activityspace[2,rows];
- Y' @; W7 e1 d3 q. O7 w& |- T) ~9 p                        activityspace[2,rows]:=activityspace[1,rows];
% G) U& C% W. |0 y3 R- L                        activityspace[1,rows]:=ct;
* u/ F( l) b4 n# ^6 q                        mark:=true;
                        else*/
7 x( e/ f, J0 Q" j                        y_max:=y_max+dy;
                        dx:=0;
& L9 ]/ V/ Z0 F. ~3 K, A                dy:=0;
                        --end;
3 ]& B2 Q3 @% X                end;
/ f" Q( w+ a8 a6 u# t) ~                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 q  [+ k4 {* @( z3 Y- f            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
0 G0 {( U5 o2 [; A                /*if mark=true then
/ L- y1 @9 C% h! ?9 C                ct:=activityspace[2,rows];
: F# g. S- ?+ d  [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 a$ Q+ T  Y) l: ^: K                        end;*/
) g2 D& K8 g  E7 ^; S9 U        next;
" x1 ^$ q/ [$ @9 w7 H, |        y_max:=y_max+dy;
        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);
) `* K/ K( T  n# G- M- f        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);
1 c' g) b& h3 I: `0 b& I8 t+ i       
5 Z$ h! f% n9 a; U5 b( |3 A! D        rows:=0;
' |& p; M4 ]$ {6 ^* [! ]$ q$ a% v        lines:=0;
        for i:=1 to number_of_machine loop
' y, b' {& [. [) q6 k+ k                for j:=1 to number_of_machine loop
5 S% r2 @: w* N; X, t0 Z* Z4 F                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 d4 n( ^* C' h, W' {* O% Q* `                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
. v4 ~  R! ~8 l% k        next;
# ?% ^% h; o" H9 ?# E6 S       
& y/ g6 @, E. D/ K6 D        lines:=0;
        partstable.delete;
       
9 s7 n# X& W& e        for i:=1 to number_of_machine loop
5 f, J1 t5 M/ c5 [# w# Y& b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, D3 f# j$ M: D' }2 k$ j" K                for j:=1 to number_of_machine loop
* }- Q& e: ?; _- ]( X4 b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 G+ l2 h! A, i7 |1 m                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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]);
; W! H7 l- t1 z/ i7 q        machine.name:=machinename;标识符未知
; |  {/ w, w! u9 j        machine.proctime:=5;
' H- y0 V1 l2 p" x( R        machine.label:=activityspace[0,rows];
1 @+ |' j3 C+ K        machine.exitctrl:=ref(leave);
% u/ {4 Z" S/ c  Q! E# Q% [       
        bufname:=sprint("BF",rows);
0 f; M9 ?. u# Y0 }. r3 t        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]);
        buf.name:=bufname;
* q2 E0 E$ s: ~" R6 S        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% k2 a5 e5 r; p( i       
& }2 O  r; @$ ]2 s9 W1 C        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 r: W, O6 l2 p# q# O$ f' e. Ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 D6 u% z' ?* J2 ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 ]& u1 [3 o+ |4 d. W) Hnext;
end;
6 t1 b4 }$ G: r+ p