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

zooey

is
- D: L! k+ P) g2 E7 G: {0 B        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) s! T: ?" N' W- n. \. b! Odo
        current.eraselayer(1);
* U% I+ E9 c" C2 v/ S9 X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 S6 ?4 m2 A. E& C% v* }                inspect messagebox("设施数目不对！请核查...,",50,13)
! o+ ]9 v$ T+ v8 n: T, V# Y6 k* q                when 16 then
* }2 Y* T) N  r3 a                        print"yes";
2 }1 s: x) G$ v9 t9 |                when 32 then
  n) e0 u( J0 x                        print"no";
                else
                        print"cancel";
$ A) L& U$ ]! }2 A$ U& Y9 c                end;
8 y$ J5 {+ R" B9 I& J" t8 Q3 |3 P                eventcontroller.stop;
& h  `5 ^& m- l        end;
- l" L& M( n4 r# X, W9 k8 W4 K       
        for i:=1 to number_of_machine loop
! N! `, q2 H" P8 S        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 i" _; K' N: q- }, N/ P                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 G( X+ c; B& |' C  N0 q, K        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* ^2 }4 P0 f9 D' I/ f                buf.deleteobject;
" p2 ~# @0 }' K) G- Q( z4 r' U        end;
        next;
! F" E7 c1 J8 P* }: E       
        dx:=0;
3 h  E! H% ^! e6 q' W        dy:=0;
: j1 w3 V7 h. i3 E0 U4 X1 ]        for i:=1 to number_of_machine loop
. b9 O# K, D0 u& T- k* Y2 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 X0 p% t6 @( ?0 I, \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 C! u- [, {4 x* W" V$ o                then
- r. j% ?- D% l* c                        /*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];
$ D" I& J5 ]' H5 f                        ct:=activityspace[2,rows];
) _- T, I5 K: |9 H( d                        activityspace[2,rows]:=activityspace[1,rows];
' z" y1 a- {7 `! {8 c0 K$ `1 c                        activityspace[1,rows]:=ct;
) c6 n7 m2 \; R2 |- }                        mark:=true;
& w4 a! X& R# ^3 T                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
/ Y8 i0 V; X' R# m6 x; T            if activityspace[2,rows]>dy then
, ~" w, o8 u+ K5 {  ]                        dy:=activityspace[2,rows];
                end;
6 c* E6 t: P4 F! ]: j                dx:=dx+activityspace[1,rows];
. s5 |+ s" n/ t. k) s* Z! Q$ d                /*if mark=true then
. M. R* e3 `+ Z& K% T$ N; J7 M! S                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
9 K6 O( K, Y; H1 @) M3 \        next;
8 _9 x, I5 @  [8 R! U        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);
: V0 z+ R7 D' H" e9 U        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);
       
        rows:=0;
1 H, }4 V& A7 Y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
" J, B- j/ q/ |2 C                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) A* D% D! b+ S& }0 X" h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 P. x3 z' o1 [4 K9 k: ]# W% ^                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
& @; q1 B( G# h& g% E2 m                next;
        next;
6 P1 b/ q2 ?" N" E: Q; Q7 q/ [       
; c% [: E) J' O$ u        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
$ j* r8 K* ]: X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* o$ R. b  k* A4 s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) x6 p  S2 p! O" T9 V+ ^5 q( q                        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");
  |& t" r) i9 n# }5 [: ~                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
6 K/ e2 V4 K1 P' Y) D* `        machinename:=sprint("M",rows);
9 }3 M% L. d: G* w7 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;标识符未知
1 k! D3 a0 ]. y        machine.proctime:=5;
1 q8 \% Z; z6 V2 T5 d+ V        machine.label:=activityspace[0,rows];
4 s4 I1 r" R& V$ q9 [) \        machine.exitctrl:=ref(leave);
9 F! b3 O8 L: G0 L7 J       
+ ?6 i- Z% \: J' Q- ?        bufname:=sprint("BF",rows);
5 D$ V' d7 p, U& ]) d" _        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;
* w- y% T! F! M        buf.capacity:=5000;
8 {& c' _. ?. }; `        buf.proctime:=0;
. w. r$ {4 h" k        .materialflow.connector.connect(buf,machine);
       
        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;
. p' ~! S$ S, L9 X7 i. ?1 ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 r! t; t% J5 D5 ?: Xend;