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

zooey

is
8 W' a+ K( m- L        mark:boolean;
9 V; `2 O0 q+ }' q& e8 q6 ]  K        dx,dy,ct:real;
    i,j,rows,lines:integer;
  l, G. v/ |$ {" _) E    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
( m( t/ m. ?, @0 L2 f, K3 x5 ^6 c       
        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";
/ w* N2 ^8 u* \3 V' p( L                when 32 then
* b: T( I# Y# n                        print"no";
                else
                        print"cancel";
                end;
. q5 G( \* v6 B                eventcontroller.stop;
        end;
+ F% |) s5 u* o$ p2 Y& e; t% M       
) W3 t; L9 Z2 |7 n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" F; Z: W& F( _) S  m7 K                machine:=str_to_obj(machinename);
* v: h; V5 Y: d                machine.deleteobject;
        end;
' m. R. F7 m: W6 a3 X        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* i" H0 r% L# ~) C) V) O% N        end;
3 ]9 Z* P6 _8 X4 V        next;
, a" e5 r$ g4 \( F: C8 t/ l       
( o$ v: }5 T8 @# i        dx:=0;
        dy:=0;
7 P9 g$ B5 u! u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 S  t1 W2 B3 K  z0 L; {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 U% O+ S) g5 p' D# X$ q7 L                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! x! Q8 d- h+ a/ P; B                        ct:=activityspace[2,rows];
- |9 p, Q: L0 N: o; F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: L8 F8 w- {% B: V0 z/ b. m                        mark:=true;
' o: g; a7 ~* I0 X: H                        else*/
                        y_max:=y_max+dy;
- a7 ^( f* b+ t" U. ^, h                        dx:=0;
0 p7 X: ~: c4 `- }$ W                dy:=0;
* o" B$ g8 a- ]- I) V                        --end;
                end;
. G6 F4 P, j$ W& Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( U% K. f6 y  h9 ^7 u. V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
  u' }: }3 @6 m0 B& C% g2 {" d; }                dx:=dx+activityspace[1,rows];
, y7 U" K& s; {                /*if mark=true then
- S* m2 a9 y4 A- |; [. U                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
5 o+ B$ ^' c$ w; J9 M7 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);
1 n5 D+ T0 g, \! U  i        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);
- `/ i2 L" g" P! N$ f2 J  p       
1 i8 c: o8 v$ n# Q" `( ]. W        rows:=0;
        lines:=0;
2 D8 {) a& ^: }0 _" {$ K. S# K, ^3 f        for i:=1 to number_of_machine loop
* C, r6 {4 J; o% R' w, e- X+ h+ V                for j:=1 to number_of_machine loop
; @! o6 ~# H$ d1 u5 o                        if j=i then
; T" G7 g7 o* n* Q/ S                                d_from_to_chart[j,i]:=0;
                        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];
, u8 a: n0 H" V3 c- |2 _. v& |2 J                                d_from_to_chart[j,i]:=abs(dx-dy);
1 d, f! d- s4 ]: [2 W                        end;
                next;
7 F$ C! e+ k; T& L( m/ l9 m        next;
* p) V0 m: o" J, s8 b       
        lines:=0;
        partstable.delete;
% k8 e4 Q; b' {9 O( s       
2 b& `, T' `4 {8 _7 t        for i:=1 to number_of_machine loop
0 U: r0 t1 ]/ D: @6 m' Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& s& I! c2 W4 E) T                machinesequence[2,i]:=rows;
5 l$ F; V3 W. k6 K                for j:=1 to number_of_machine loop
! q; p# o  E; S; m2 `* L7 V7 O                        if w_from_to_chart[j,rows]>0 then
# h  L1 h2 i% q1 ~                        lines:=lines+1;
' `6 f' v+ T. X& e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' A5 i* r6 w  g% F' B! c. g- f                        partstable[6,lines]:=j;
1 ^/ I3 j& t6 i" C- Z, `$ L                end;
  [, U6 T) ^- x0 i        next;
        machinename:=sprint("M",rows);
) N8 }3 a$ V/ ~1 `5 B4 @        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;标识符未知
8 J& M$ Q( T& l, o        machine.proctime:=5;
: S' g/ {' e2 n( L        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" [# t- i9 y" t3 M0 @       
        bufname:=sprint("BF",rows);
  h* N. {4 K6 k- _        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;
        buf.capacity:=5000;
$ s  b& o, m2 B3 H- S        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 `/ K2 T* l8 z+ D' c' a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  P3 o" k0 f6 c4 M( @dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;