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

zooey

is
7 j- [. f9 y0 U* g/ S6 ]        mark:boolean;
0 J# ]9 r' a9 X4 |        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# B8 }5 ?( D0 Q3 odo
, M' R$ M6 j7 w$ d. B# q  L+ V! l$ e/ ]        current.eraselayer(1);
, [  L' ^3 l% `2 ~9 s       
$ s% q, V! S! p6 N( i        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' Q0 U" |6 o. g0 J( [                inspect messagebox("设施数目不对！请核查...,",50,13)
0 d# A+ H  V( ?! u& x9 u                when 16 then
                        print"yes";
                when 32 then
4 c" L1 N; W8 O3 g& }                        print"no";
$ [+ d5 S% U  M2 v/ H7 d$ E                else
                        print"cancel";
                end;
# N# O* B) v9 N3 O9 f. p$ w                eventcontroller.stop;
        end;
( M* d( K+ ~  M4 J, N" t5 b4 K       
        for i:=1 to number_of_machine loop
9 T' B! D! m7 Z& R        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
: R+ g  {4 ], q/ q5 Z        end;
        bufname:=sprint("BF",i);
! i5 W5 R4 C0 l$ U+ @8 F% |/ q        if existsobject(bufname) then
6 O; I/ H+ w3 L  x: U, m% X                buf:=str_to_obj(bufname);
/ I7 T/ G6 W7 K* A                buf.deleteobject;
4 d+ E* @7 `0 H3 h9 D5 l        end;
- x& a5 j* w9 j        next;
       
        dx:=0;
& a/ Q+ J- g6 e+ z0 @) c, p        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 l/ n$ ^4 x, v9 S( b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) K" z; v3 b; P( `5 A5 O2 `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" k/ ^) ^9 j5 x- l2 i8 Q                        and activityspace[1,rows]<(1.05*y_max) then
6 K/ m( G  m( c, Z' ^/ Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 _& l+ F$ H9 v& Q0 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 n8 Q, l. d% z, D7 w                        mark:=true;
) Z- T7 A& X7 |' ^8 y                        else*/
                        y_max:=y_max+dy;
- e4 L' \- t/ L7 p                        dx:=0;
                dy:=0;
                        --end;
                end;
) C: n" R: p. D$ I+ G                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;
- Z& m  i, R# t9 m            if activityspace[2,rows]>dy then
$ h; X' [) K( @5 Q( D# H                        dy:=activityspace[2,rows];
                end;
$ m" e) ^9 }1 A: h; P: E                dx:=dx+activityspace[1,rows];
# c5 D7 C4 v3 r, P: r9 u                /*if mark=true then
* i  l( `9 Q4 D8 |  w$ K                ct:=activityspace[2,rows];
6 X- ]  |& [$ W: l" T                        activityspace[2,rows]:=activityspace[1,rows];
$ J- m+ V- z0 ~- v, ?, V                        activityspace[1,rows]:=ct;
/ D3 g) B* _: W7 w$ n. A; v* `                        end;*/
, G9 E, ~  p; f( x; Z: s4 W* t        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);
+ Y# \7 [0 J1 e) s% `/ h        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);
       
/ _7 k- ^- S. i        rows:=0;
: R2 s3 y# @, V% Z% r% C        lines:=0;
        for i:=1 to number_of_machine loop
8 k" L, ~0 b! v1 z. s# |                for j:=1 to number_of_machine loop
                        if j=i then
) i5 L6 p& ?! T# _2 w                                d_from_to_chart[j,i]:=0;
                        else
5 J0 S8 C9 w" _) U3 V$ y: g1 W9 R                                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];
+ e. _; B! B2 ]. T                                d_from_to_chart[j,i]:=abs(dx-dy);
; w% P/ M/ Q1 |+ t+ Z) L0 e" t                        end;
1 L9 z1 Y2 ~& Q0 {: U8 c  r                next;
        next;
3 G( ~2 x/ P, }* h       
( k0 B# n* s1 M; t        lines:=0;
7 q% P+ X" @2 ~" \        partstable.delete;
       
$ b* [% W8 \; q( h$ r6 c  h% |        for i:=1 to number_of_machine loop
0 P9 l% e. x+ e: y% P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. m0 Q: [9 W: Z# t8 L$ }! I+ c                machinesequence[2,i]:=rows;
% v0 ~  t* k, x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ I, I5 W2 Q+ q1 {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ S7 K& J0 s8 e- ^: f                        partstable[3,lines]:=sprint("parts");
9 N2 C  M6 B' B& s, V                        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]);
) m; L/ f7 U6 Q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 V" r: c" V3 w3 j5 u        machine.exitctrl:=ref(leave);
  f8 |& e7 o- n+ o% G$ z0 s5 Q: {       
7 W- b! C7 m. J8 H8 g3 u( f) M; b9 |        bufname:=sprint("BF",rows);
$ n& q4 T  S6 U5 i" ^5 p5 F0 V        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;
        buf.proctime:=0;
4 ]. k: }$ }/ |        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ \, ]& ?# P5 A, F- `* m9 kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 @3 ], e5 ^1 I% a2 T9 D, V3 I0 Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
% j$ b+ V# S, D% yend;
! x1 j4 ~0 _- T* l- |$ F- P