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

zooey

is
6 ?2 x# c# ]) f' w( |. P        mark:boolean;
$ T4 L7 W9 f* S        dx,dy,ct:real;
7 b$ ~' l( O2 s( h    i,j,rows,lines:integer;
/ w; r4 ]& ?4 v0 h: ?- C    machinename,bufname:string;
- B, R& j, ~. x9 Q# Z2 z    machine,buf:object;
do
        current.eraselayer(1);
( X- u2 I  C# x5 S2 p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) i: J! N/ j7 g9 b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
' B7 t4 H& b! G& n) r        end;
       
        for i:=1 to number_of_machine loop
  T6 X: W/ x7 T" ?* q        machinename:=sprint("M",i);
9 g# Z$ y) E+ c1 N" {% N* s/ U        if existsobject(machinename) then
6 r/ C# B5 I+ I$ F, j3 h+ `. {$ J) _                machine:=str_to_obj(machinename);
3 |* O5 b& F3 U: U% P9 x                machine.deleteobject;
9 r& x9 c+ H3 i0 ~: N2 X        end;
        bufname:=sprint("BF",i);
* G' g! p3 F2 E2 u        if existsobject(bufname) then
& I8 E5 `$ A) ^0 ~                buf:=str_to_obj(bufname);
                buf.deleteobject;
- ?* N4 b; t  ~1 F        end;
        next;
       
: I* Q: k5 P8 I        dx:=0;
! E7 b9 p8 [, u0 F, U& H: `2 }        dy:=0;
: \3 i( g2 H. E: Z5 I: m        for i:=1 to number_of_machine loop
# j& _/ P& w8 g) A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( k9 Q4 p$ Q2 h7 `+ L' [( J6 G                then
. m3 ]# r( G# i( X) o6 @                        /*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];
0 e% o8 Z" N( K" ~* F                        activityspace[2,rows]:=activityspace[1,rows];
% r1 P8 Z- t/ y/ n9 ?! p                        activityspace[1,rows]:=ct;
+ N: X7 N- D5 ~2 N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* \$ F, t9 t/ E+ D$ C; U% k                        dx:=0;
                dy:=0;
                        --end;
, a) R) }, {% \0 o% t1 B2 v* A) O6 F                end;
" ^6 |9 L- ~9 w, P* r  k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 {0 p8 J) X0 p! b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ H8 H1 G+ u. R! O; e) ?: K            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( c+ t7 u$ v& c                end;
4 G- K4 @! Z2 M' `4 X                dx:=dx+activityspace[1,rows];
+ o, P7 m/ H$ N* h" v3 {6 z. V                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ T. ~  s: r2 ]/ }0 U                        activityspace[1,rows]:=ct;
                        end;*/
. T* n. q0 A" @) D! Y2 ^6 q        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);
        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;
/ H- |" T9 h. }# d5 w  J- V        lines:=0;
        for i:=1 to number_of_machine loop
( _' C3 Q% Z/ [# V1 n1 p- y$ ?                for j:=1 to number_of_machine loop
' X1 C* ^) z2 }9 M                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 l6 f9 Z/ M9 X                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: m# S' q7 y/ I                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- T4 J4 w3 G( Z5 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
. W( v0 K+ _1 B* q, U       
! e$ {/ c& p0 B5 v- \' F        lines:=0;
        partstable.delete;
1 u4 N1 b4 T5 e8 G& {5 j8 e& ^& x       
+ G/ y* _+ L9 ~3 ^6 e9 B        for i:=1 to number_of_machine loop
) h( r4 `3 b6 \% C4 F( t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  d  v9 z5 ^! e; K                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! [+ ?) V. Y0 Y; e! t7 S                        lines:=lines+1;
& _* _2 E1 ]4 I. _, X' ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 Z. V+ J: u# `* r/ P                        partstable[2,lines]:=w_from_to_chart[j,rows];
- r! g+ _2 f& Y# r5 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 g7 ]. [; p1 c% ]0 U! `                end;
% k& w' V7 Z3 u$ K        next;
+ E0 h3 V. U8 A' X* ^        machinename:=sprint("M",rows);
! s" O7 h& n) [- m$ D7 ^: L        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;标识符未知
/ q: T& T* G# l( b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* k% o  Q0 ~; K4 i, T       
: e5 `2 P4 K$ u0 l; I& w8 I        bufname:=sprint("BF",rows);
3 |% Y( ^* A  ^, O        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;
        .materialflow.connector.connect(buf,machine);
       
1 S' c" L5 T5 S/ I, v        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;
, g- U* j$ F5 L8 B  @' |. N+ P; Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
( @* v9 L# Q& n# N