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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
6 e; O' ~1 x) H$ `. Ido
$ E6 ?7 h1 x. r        current.eraselayer(1);
! s7 D$ `% s7 ?2 U# Z6 g       
, Z# n* @  |3 ]0 U8 q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 y2 Y1 ?8 Q  m$ W% Z5 ]2 u                inspect messagebox("设施数目不对！请核查...,",50,13)
# i9 g( @' H1 E4 g" Y' q" j5 I                when 16 then
                        print"yes";
                when 32 then
' `; n) V' ~/ H. P2 H6 d: e                        print"no";
  T, x. S; j2 ~0 x6 F: D                else
                        print"cancel";
                end;
! _5 s6 V/ _- {0 Y) E                eventcontroller.stop;
' K7 ^2 [' l# f& {/ }        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 s* h( H8 U! k2 V5 S        end;
7 f, k! N% V6 M7 Z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
& H8 C/ i  X2 ]) u        end;
        next;
       
        dx:=0;
        dy:=0;
& Q; R9 x1 X: f1 W* i        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( g4 w9 F4 W% m3 V, S                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
# p4 D. W) `( Z" c! p. w$ R                        print activityspace[1,rows],",",activityspace[2,rows];
; T1 _: Q2 L/ \! r+ z& Y4 l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 Q* D" C% s" |                        activityspace[1,rows]:=ct;
" b( q& |) b! i/ N! z5 y1 a                        mark:=true;
                        else*/
! v2 R7 V: y9 S# X( ?* P4 ?                        y_max:=y_max+dy;
  Y1 b8 L+ J8 G# [3 I/ ]                        dx:=0;
+ h" a2 R  t3 o' W* q( \                dy:=0;
                        --end;
, [  T9 }6 q. _$ u4 E7 M: [                end;
0 |( v0 n$ @! J0 A# \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) V" N& n! J! L; a0 h                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];
9 a1 F- @0 V/ ~5 v6 D2 c                end;
' k0 z0 M2 Y: ~9 M! o; l                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 X% a: M7 l! O7 w. Z& n6 H                ct:=activityspace[2,rows];
; R1 N% P3 T/ b4 ~& W3 ]- M) ]                        activityspace[2,rows]:=activityspace[1,rows];
0 Z9 m6 L. J( m$ G0 n7 g                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, F: Q( B2 |8 ~( Z9 q* `% u+ q        y_max:=y_max+dy;
; u( k  f; t  t4 B        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);
: z. V) w" {6 d' c4 B        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;
; N9 S4 n) |. l2 M5 ^        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ K2 p+ |' _3 V% d  h1 o) |, Z                        if j=i then
# \( h2 E/ G2 `+ L                                d_from_to_chart[j,i]:=0;
7 j: S3 w$ g. b" W: D' I9 |% o                        else
+ z; u* w/ A* m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 h- s( U2 g# h3 v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 o7 W. j, e( q/ ]3 L3 z1 ]* P3 H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
" ^* ~+ W4 H6 ^* l        next;
       
        lines:=0;
7 {, P$ Z0 C) ]1 [" v' {" t        partstable.delete;
2 m* a' p  U, ^9 p& C       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( s+ v5 e) M# T                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        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];
! G9 ?9 \7 Y! p5 h                        partstable[3,lines]:=sprint("parts");
5 ]9 s) F$ V& y" H% R4 k. `$ g                        partstable[5,lines]:=rows;
( O* J4 [7 t2 ^& \                        partstable[6,lines]:=j;
- |8 h. `8 R% }4 X" O                end;
! a1 l. z4 R5 W9 W0 Z        next;
        machinename:=sprint("M",rows);
, `. g8 `# \- \% H        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;标识符未知
# L* p4 O! R; W; Z4 K# N, J8 c4 f$ x        machine.proctime:=5;
1 S: l8 z1 y8 j/ M/ X        machine.label:=activityspace[0,rows];
5 N, ^5 I5 w" w) B        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;
4 p6 |% @( G; {* k        buf.proctime:=0;
9 P3 r2 [$ W1 n" K; T* P1 {* y        .materialflow.connector.connect(buf,machine);
       
, t% _7 [7 F. O( N) ?4 |        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;
6 H* a1 G5 |) q8 s" Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! T4 R! `# C2 gend;