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

zooey

is
+ a' g$ d( b' G7 x        mark:boolean;
        dx,dy,ct:real;
; @+ J' o6 ]1 \# ]+ i    i,j,rows,lines:integer;
    machinename,bufname:string;
3 U: [# I& u6 Z    machine,buf:object;
! ?% `( N8 z$ |% ydo
; f& p9 x. ?1 ^  s        current.eraselayer(1);
$ y# U+ c) }  S* d! W% x* E       
        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";
  c5 m0 ^! u- r9 X  v% `' |                when 32 then
                        print"no";
- V! k" e4 s/ r2 l9 ?# j                else
( `% i) E/ w- L                        print"cancel";
7 U7 l8 s5 Y) e( l  Y# u                end;
                eventcontroller.stop;
' [* @& v* c; M7 D- Z. O        end;
       
        for i:=1 to number_of_machine loop
" N. C7 k* q6 W* ^( v        machinename:=sprint("M",i);
  S% f6 h9 C& j% o% R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' j! Y9 b) @) {# I. `                machine.deleteobject;
, V6 B3 ]1 F- c/ T3 K) A        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" g3 O1 @9 z7 K4 F- Q, K        next;
       
. \) H5 k6 q' ~9 k  ^        dx:=0;
" }( s8 d9 O: |& v1 X        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]类型不匹配
4 Y6 W2 Z8 I/ o! d                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 E" i$ W/ @, @% }                        print activityspace[1,rows],",",activityspace[2,rows];
; N' |4 d5 m3 `# g2 s) M/ c; ]& L) }                        ct:=activityspace[2,rows];
1 S$ |8 o. Z, j; K# _$ p1 [8 V6 h8 |                        activityspace[2,rows]:=activityspace[1,rows];
. s% x6 p: ~" q" R  S. d3 q7 j                        activityspace[1,rows]:=ct;
                        mark:=true;
- M- z7 \& w" q4 S/ n  U6 P9 `. ]                        else*/
. Z; @* P! e5 l; m                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
- [( c. J5 Y" f                end;
; g- P+ y$ j" F: @9 I' X                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;
5 R  O* E0 n1 z. b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
# s& E0 L; u9 M) d. x+ L9 [                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" A7 u  t2 v9 T$ i1 D                        activityspace[2,rows]:=activityspace[1,rows];
; Y; v* v0 l/ g$ a5 Y  k  g                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! J; s0 d7 X% Z! k$ W" [6 e        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);
        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);
/ Y5 A$ O$ G$ _4 Q7 R! a6 N; v       
9 n" P  S- _7 z- u6 w7 {        rows:=0;
# x) v: d6 \+ v        lines:=0;
        for i:=1 to number_of_machine loop
3 H: ~8 X' \/ ^3 v/ T# Y+ s                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
* b! f9 u5 G9 F5 w# M                        else
1 _4 @$ L/ P1 m0 W                                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;
' y/ f2 C: `/ A' c        next;
       
4 R( X, C3 X  a% Q) F! c        lines:=0;
        partstable.delete;
       
6 M, X* _) V: `7 Z        for i:=1 to number_of_machine loop
( A! X$ @) {5 n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; P3 p/ U# }0 i( D                        if w_from_to_chart[j,rows]>0 then
; ^/ t( U- J: E/ T/ H) Y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( V4 n- c6 c+ E' ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  R" ?2 I* q- E$ G, K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# Y6 ?/ A6 e) [8 ^, C; G( c                end;
8 \2 d- o- c6 y, B+ P% k        next;
! D+ s7 c# H6 P        machinename:=sprint("M",rows);
5 ^; w$ @. z2 m) H* q( r8 j! F        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]);
        machine.name:=machinename;标识符未知
) l, }, G0 `; i) ~4 t8 B: a        machine.proctime:=5;
: K3 |; D6 b% d6 |" r3 P        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% j' V0 ]1 R+ x, d       
/ z! _+ X" w) F        bufname:=sprint("BF",rows);
        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;
1 V$ ^$ Z" ]. l+ N0 L- A' p        buf.capacity:=5000;
! X8 O% v# s9 w* {' ~        buf.proctime:=0;
; B* t( Y8 k) P" j        .materialflow.connector.connect(buf,machine);
+ g2 {" P# e5 i* _& ?) L7 g       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' ?; }) e$ J, h. o6 Z8 `, I" K" Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ y# {# X6 N) D, bend;