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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 l% b$ m' z* P! _/ A7 h' v    machinename,bufname:string;
    machine,buf:object;
# M! Z7 ^' J; J2 Odo
* E! `. O# h7 R2 z( h* O  V        current.eraselayer(1);
( q; \! }, K+ C3 u       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! v, O: j3 h4 D$ L! h" v                when 16 then
* C( Q+ g5 c# r0 {1 K5 e                        print"yes";
) }0 P- L0 Y; J8 O. j* z                when 32 then
                        print"no";
6 z( y/ W3 B$ i9 q% g+ l  q                else
8 N4 w/ H9 @6 F- L. g                        print"cancel";
                end;
4 w: |9 k/ Z: _% ~# a6 T$ n3 c                eventcontroller.stop;
        end;
3 c$ k8 @7 ]# G( d" M6 X       
1 s0 h/ w  b. e7 _8 K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  |- c- `. e- o+ K' F4 _: s        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- v% t& Q: x; b5 X; Q. d; m2 K2 }                machine.deleteobject;
* p) o1 G) C' b' Y2 r) q0 D: I+ N0 K        end;
        bufname:=sprint("BF",i);
: y# l0 b2 D( q6 t; I# X! |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) u# r, ^  N, ^8 s- e                buf.deleteobject;
4 W# S" R# l, I  _% L, u        end;
        next;
       
        dx:=0;
        dy:=0;
# }5 d1 \" G( U! d, d9 b1 E        for i:=1 to number_of_machine loop
8 Y" @+ i: M# L# a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 _! A; j( i5 G! g7 ?: j0 f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 Q5 E5 h) e6 w/ E: t                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: |. }3 r4 _+ I- X  o! F5 v                        activityspace[2,rows]:=activityspace[1,rows];
  Q6 R' p# {& g8 W& M5 T& y                        activityspace[1,rows]:=ct;
  i( N$ R7 ]- C                        mark:=true;
6 |8 b6 y4 P9 o/ i# }. n6 o                        else*/
                        y_max:=y_max+dy;
7 F- y2 R( O. @                        dx:=0;
                dy:=0;
                        --end;
/ p$ G  F! Z4 {9 U7 x                end;
8 r* T' f2 @& b) V1 s4 j                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
4 |2 h& J# e1 g                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
6 X( O% W: v& D1 ?7 g" Y1 A                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ }6 h& H; a2 G4 y! B9 e! U# K( |        next;
" _" w# G0 H- W- {8 ?' x- D( T        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;
2 _5 v! f6 i3 I, [        lines:=0;
/ F0 p5 l4 v9 e9 r        for i:=1 to number_of_machine loop
  a3 `6 s" x) R: |% M0 s                for j:=1 to number_of_machine loop
                        if j=i then
; Q) l, M1 I# d7 H# D4 P5 G                                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];
9 ^, c  U& H- a1 E/ T" D                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 D. d3 z( ]" W  k! B! q                                d_from_to_chart[j,i]:=abs(dx-dy);
% E5 _& P; C6 n                        end;
" c* m; s$ q, a2 P& d0 j                next;
1 V% Y$ E9 h. N! p$ D* E1 L" w) n( ~( D9 p        next;
0 g+ ~# t9 @. E9 j" e6 b" C' D       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 p( [* y- ^7 i$ ]4 b& A* ?: ]: B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& t7 n( Y* S8 f6 `9 k( k$ J% e9 h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ Q; ^% v5 V  h+ e* ~! K8 a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  P& d3 T& {- z! o+ i& Q) e                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* V( S" ~7 ~! L& T3 v+ o$ S+ c) I                        partstable[6,lines]:=j;
5 A+ P* C  S/ }: P+ g                end;
        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]);
/ y- A, S) r- U$ g/ x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
* S0 L7 m) i! I! c) Y7 B        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 b2 w& ?, {6 @7 U/ ?       
        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]);
0 ?" B! H' L( G! |; X2 |, n9 _        buf.name:=bufname;
6 t* _& ]6 p! [) [; e% S4 A# c        buf.capacity:=5000;
' e' f: k, i8 k9 T4 e5 T# ~        buf.proctime:=0;
; K* o5 ]7 ]- V        .materialflow.connector.connect(buf,machine);
       
0 q% [' V9 V5 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ `- X; l# P* W4 G4 a( ^- Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 I9 }( E& ^8 b. qnext;
end;