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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
: J+ p& \- Q( Q% e    i,j,rows,lines:integer;
5 C. C# b# t* r! @$ f, L5 h& }    machinename,bufname:string;
    machine,buf:object;
do
# q6 q& }9 p7 J        current.eraselayer(1);
% s: Q3 U2 ^8 N' A0 y; V       
; O# G# q9 C2 l' ?3 G0 a7 m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 O% U7 b( Y# ^; R. Q( u* y                when 16 then
4 W2 W0 F/ C1 M) e$ h                        print"yes";
                when 32 then
                        print"no";
4 C( Y0 t9 Q, f$ t8 T                else
                        print"cancel";
' G4 v. K1 }' B8 x4 s                end;
- r/ k" _" ~4 u5 E6 p2 l( P9 g                eventcontroller.stop;
2 U. o  i- H5 q  P! U( d8 ~/ ?        end;
       
        for i:=1 to number_of_machine loop
* P4 @8 ]: }- M  a6 G        machinename:=sprint("M",i);
/ t1 Q5 |* m7 Y# @) }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 ?/ O+ A6 D3 M* Z2 i# Q+ h                machine.deleteobject;
' O! W5 d6 {# |- R6 y+ h        end;
        bufname:=sprint("BF",i);
5 E+ A) F6 X' ^& X4 j5 _' f        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 p/ X& o$ F2 K4 r( x                buf.deleteobject;
        end;
  G: x. l8 A! j9 Z6 S5 ~. k        next;
       
9 ?/ |: M/ e. v& _; n2 i4 H8 g        dx:=0;
- ?. j1 }, Z2 P9 o, a) U        dy:=0;
9 g% r  ]; \  S4 {  z$ i        for i:=1 to number_of_machine loop
5 E: a" i; x) m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 F/ ~% Z; W. B0 z                        and activityspace[1,rows]<(1.05*y_max) then
5 p$ Q( T1 b$ b! a                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' ~" l& y" N, m2 d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
6 {/ ^" o5 @+ }3 E( ?! ?                        else*/
; o; R* {! K  t1 I                        y_max:=y_max+dy;
                        dx:=0;
3 w1 v( P; e. a8 ^. @                dy:=0;
                        --end;
& @9 G! ~% E2 I8 E& D2 U                end;
3 r: o- j5 W, U& x                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
" Z& ]$ A$ E& {                dx:=dx+activityspace[1,rows];
" y( I' B; j0 G8 c: Z+ m+ U                /*if mark=true then
0 B9 Y" t, E6 A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  [' x* K( v4 Q3 x5 K  u; A6 L* ]                        activityspace[1,rows]:=ct;
                        end;*/
* o9 v& r5 r9 G0 {2 S$ G        next;
6 O! W6 I! J9 U+ K        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);
8 ]0 z" W9 l- H0 I, c        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);
       
" c! h8 k" f5 z+ b- ~% \( s. j! Z        rows:=0;
. r* R+ G- ~! A        lines:=0;
: g. J5 [, {  n2 F. f# W        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; ^" L5 ^  K- V# v9 P  \: e                        if j=i then
" w6 c* P. R* T" O                                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];
" |, T; v7 n7 ~: K7 O                                d_from_to_chart[j,i]:=abs(dx-dy);
" m2 }# @! h4 `: e; b; e8 r                        end;
7 N/ U9 m0 u9 {9 }                next;
        next;
       
. w: G$ }: f* V+ u' r        lines:=0;
/ J7 _# D6 A' B) l8 E        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  ^1 S# _# b8 f& |" H+ c                machinesequence[2,i]:=rows;
: X+ j' K: s3 o. i+ s' x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; i& G: T$ `5 ]3 z" j- G5 B; a                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 }8 D6 S2 [4 s! f                        partstable[2,lines]:=w_from_to_chart[j,rows];
' T1 z1 ~' @1 S8 K: z                        partstable[3,lines]:=sprint("parts");
( o6 U( [5 R, G& E8 T                        partstable[5,lines]:=rows;
- L$ }6 ^* M# h1 w                        partstable[6,lines]:=j;
                end;
8 c8 H" c' ^$ e; [, b2 f* d        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]);
- d, `' x, r# ~3 {; y$ a2 x- J        machine.name:=machinename;标识符未知
- t7 d# C, `8 Q( Q        machine.proctime:=5;
1 G( A; j% D4 ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- w* Z1 Q. b5 U. e/ m        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]);
* O6 t% C. A4 i; l1 _# j6 G8 c        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# m: E7 t" o9 V6 l7 g       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; r) A$ B6 ?; z8 k- ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" P. h+ ~( r, f' e) ^9 F! Y& @current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;