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

zooey

is
        mark:boolean;
# k# T9 \; g6 T        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
/ q. @4 s6 n. B  gdo
" d6 V3 F4 a9 j' A9 x4 {& x  a, Z        current.eraselayer(1);
       
: x8 h2 H8 z' n6 }* x        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
, q" t8 J6 p: }                        print"yes";
8 }0 m# w+ O' G+ j                when 32 then
, F% Z8 e: B; J# K0 `                        print"no";
/ p9 i, }( _: O7 c) \0 k: z# c                else
                        print"cancel";
                end;
' O4 C( A. _- g                eventcontroller.stop;
        end;
/ t8 a9 P* o1 j$ t0 y       
1 s% Z% B' b4 e$ w        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
; O. y* ?, p4 u; u: P/ a; D8 C        end;
& p4 W- q* Z& V3 e' n* c! N2 T( i/ W        bufname:=sprint("BF",i);
; s1 `+ B" r3 ~0 N        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 K* n3 n" h& C& H2 b) s        next;
9 e; I8 j3 ~' W2 F" e" S" Y2 m       
        dx:=0;
        dy:=0;
1 H( f$ y! Q% G) _! E* L0 i; }        for i:=1 to number_of_machine loop
: F. O) [; ~6 ]* a6 \) [; s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 u7 e5 x( k( S" a9 H* ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 A6 W, k" F8 r6 X$ x3 V5 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 p' C- R, c; Q" A                        print activityspace[1,rows],",",activityspace[2,rows];
1 z# k! u8 \# C9 I. J4 N                        ct:=activityspace[2,rows];
9 k' O2 ~& ~' ]% J                        activityspace[2,rows]:=activityspace[1,rows];
; t  [6 K& ~9 _0 N, d                        activityspace[1,rows]:=ct;
$ a, y. Y# s  Z7 X                        mark:=true;
5 M5 i; k5 J: T3 J4 \                        else*/
- `6 K& \  `+ x1 B                        y_max:=y_max+dy;
" b5 k3 c- d, G! X2 ]2 a& c                        dx:=0;
' N4 S/ p: B; S9 s! {2 l, K6 B                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# I2 p7 o, H4 t4 y; a2 L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 z  [! S2 l  {9 }3 y1 b            if activityspace[2,rows]>dy then
- ]' `2 ?. r2 M3 p$ i0 s                        dy:=activityspace[2,rows];
6 h' ^' F  m/ D9 J+ o5 ~                end;
0 E& p% z5 B2 ?8 o7 A                dx:=dx+activityspace[1,rows];
, g* S0 _* R! p* F0 o+ q+ b                /*if mark=true then
2 S6 m1 w* f/ S& m                ct:=activityspace[2,rows];
# L% m6 r6 [5 E4 x; i                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
) ]  O' ~# u5 r3 n* O       
2 y5 g8 m) E1 i3 U  a2 [7 l        rows:=0;
: T- H4 W+ e; j5 k        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* f! n$ ~3 [6 [0 J; d" Z$ W                        if j=i then
& |2 o/ L3 `, U- X1 {                                d_from_to_chart[j,i]:=0;
                        else
* w" ?/ |4 G9 e5 ~0 X" Z! C                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* M+ e$ A- n( [" y$ a3 W                                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);
' ]- _$ k# B$ C5 @' W2 Y                        end;
                next;
        next;
  K; j% r. |$ l  T/ L' }% _# ?2 F       
        lines:=0;
& v8 X3 I& B! f/ F" D6 S$ P        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ `$ q2 w2 I0 d* ^+ D* e4 z9 H& E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 K' [( q# @' @* x6 m1 y                machinesequence[2,i]:=rows;
- _7 Z  i: s. M  D# R                for j:=1 to number_of_machine loop
  v: Y0 R6 a" \7 ^. `& e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        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;
                        partstable[6,lines]:=j;
; M7 X% n; s" c4 n6 |& W  w3 f                end;
! d; D/ t2 @: V! n4 {6 Y  Y/ X. u        next;
/ n) q  |3 L) h' q! P        machinename:=sprint("M",rows);
7 U  U* a9 @% G        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]);
4 S2 E* c# ~  T7 x: L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 `7 w6 y) J+ W3 W. {6 P        machine.exitctrl:=ref(leave);
       
        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;
        buf.capacity:=5000;
" u! n( q- |# M( w3 s        buf.proctime:=0;
+ k% p. f0 p2 D: _: T( K        .materialflow.connector.connect(buf,machine);
       
9 R; F$ C7 V% u1 }: v$ O8 c* Y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" I# P/ w( q- E6 @: Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ o  N0 `2 k2 Y- R. G: N7 e, v& @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 y  C6 k) u7 a' f$ G- F$ x6 Znext;
end;