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

zooey

is
        mark:boolean;
, G. n8 n) V* R3 L. O0 l, z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
3 E+ Y* H6 i% t9 V2 c) ^do
9 S! R, T& h1 c2 v$ ^$ o; F* E        current.eraselayer(1);
& h# j- L# Q2 b- {% @: [& ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 R9 P4 H2 G0 n0 L% x# T7 V                inspect messagebox("设施数目不对！请核查...,",50,13)
, N' L$ |6 `- f                when 16 then
                        print"yes";
                when 32 then
% D. r" }0 P- x5 s0 P* B3 b" z& H5 G                        print"no";
9 J7 D+ x) ?2 a+ Y7 l1 F# X8 F                else
) d6 o- ?. n9 O                        print"cancel";
' n: m* s# R% Q0 ?% w                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% _) U. F/ F4 C9 L) x        machinename:=sprint("M",i);
8 V0 c' c. T# y& |+ d: F# M        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& U9 T% {/ Q- z  Y                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 b  v7 a8 h: X9 Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 I0 s: C6 H7 k4 [                buf.deleteobject;
4 u5 \5 C' X! `        end;
        next;
# F$ w& w) Q& N       
" D) T% l6 Z$ r+ g% R. a( O        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
% k5 _- }. F' ]. y! b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 }/ n, R- K; u* [; L* [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 c8 @. g9 `+ F: e& 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];
                        ct:=activityspace[2,rows];
3 N5 x  a2 F2 {3 j+ y5 u                        activityspace[2,rows]:=activityspace[1,rows];
" v! q9 u9 y2 N  {- Q4 {                        activityspace[1,rows]:=ct;
7 i, n. A  u* n& \$ y( e! [                        mark:=true;
  w6 j9 q' }, w1 \                        else*/
                        y_max:=y_max+dy;
0 C3 I: c" p  X$ h, r                        dx:=0;
                dy:=0;
2 \/ A8 S: a) p* u# S                        --end;
                end;
$ I" F: B% l/ b, E                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;
6 f  M, L. e. s9 }- E) T' W            if activityspace[2,rows]>dy then
8 T: U, Y% W( Z  ?& T                        dy:=activityspace[2,rows];
                end;
6 w  d1 v, S% n1 a5 j$ S) S5 z                dx:=dx+activityspace[1,rows];
$ ^( b. V# d9 R0 f0 n                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
; V3 Q' Z$ \! F: U+ c# K, d        next;
& H8 A! w" U. [/ O        y_max:=y_max+dy;
$ n1 q4 b) P1 E$ Z" Y0 q# r; _        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);
' M0 I) l! ^! {( b2 o- p' Q+ a, D        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);
       
0 r; H8 ^3 Q1 `        rows:=0;
5 c- Q  T4 z0 i" C1 z$ |        lines:=0;
        for i:=1 to number_of_machine loop
% }: t- t0 w) N" J) K                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; E- {" }. J  L/ ]. k$ a$ Q6 t                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# y! |4 U, M* L, d6 ~7 {% 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);
/ h3 D) g( }% ~+ B4 i/ g. G- d                        end;
  X1 w4 I( h2 P  e# g                next;
        next;
       
        lines:=0;
3 b! [1 g: w5 k* v! I        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 h, v9 Y% n1 x( b                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* `1 q5 w9 e) F1 `0 _, Q$ V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; k# \. g  I7 ?9 G  ^                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" q* h5 C& v& ^  P9 [                end;
3 Q, l) O6 W4 j% L/ K4 p3 a2 z$ J4 N        next;
8 R  v: N& ^& `3 J' `        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]);
  K. E) F; P( c9 _2 n2 [        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 D1 C/ @+ ?6 o8 l' T3 X+ V- h( P) T- \: E        machine.exitctrl:=ref(leave);
0 L! U- g! K+ m0 ?7 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;
        buf.capacity:=5000;
8 `7 O  x" @' T        buf.proctime:=0;
3 |: o8 `; c5 Y/ ^; b" n        .materialflow.connector.connect(buf,machine);
+ M' c) V& ]# R; `1 }       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 z: H3 {0 g: y3 Ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
% v( ~6 q- D+ i9 q9 Ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
2 ?# S; c! ~: }: bend;