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

zooey

is
        mark:boolean;
2 q0 |) I. e6 c. h) L, `5 V        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
. _- G* ]# C. I/ `4 \    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- h) `8 c7 h# i  f                        print"yes";
                when 32 then
5 R; p; r" S/ r# M4 d) \' o                        print"no";
) s8 ~! `7 t# K4 H2 ~: @' Y                else
+ x% R' ^% U6 {2 ^) V% i                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
9 a) |- D% l5 p5 f$ Z6 ~        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 o7 r" F3 Q$ Q* A: h1 U: E        if existsobject(bufname) then
/ x5 O- S& p7 V                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 r4 M4 g$ Q# M: X& |        end;
        next;
       
. O$ s8 D$ l/ b        dx:=0;
  J9 w0 k7 e6 Z        dy:=0;
' ]4 j0 r4 R* v        for i:=1 to number_of_machine loop
7 K: D5 C( ]0 F( {2 X8 D! Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; d5 Q! F4 i4 h; O( }: A8 @                --mark:=false;
9 f3 g9 v( }4 q/ O2 G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 T' V2 a$ _- S  y1 |                then
4 r) }( v. e& a9 v( Z5 @7 M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: y" O- r8 E. F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ R2 L9 v. f# v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
( N0 f$ r/ b4 b5 y/ s2 \                        y_max:=y_max+dy;
                        dx:=0;
+ K- w/ ?* K* c* @( [/ \                dy:=0;
                        --end;
  Y' q, c" {! j3 E9 F                end;
" p! \  |* g0 G* }+ p3 }                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
3 c  z/ B2 e, v& |5 s                        dy:=activityspace[2,rows];
- {+ O( h0 F* E' t( `' M$ _/ L8 E                end;
8 P" q% u$ h/ ]                dx:=dx+activityspace[1,rows];
- w4 s8 b2 E- j2 x; I; s& U                /*if mark=true then
  a% Y- U' f& S: z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: E8 D+ k9 ?1 L2 g                        end;*/
: {  N7 W! f$ F0 D        next;
6 D6 R9 o( y7 [        y_max:=y_max+dy;
" u6 W: e6 ^6 ^        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;
        lines:=0;
+ @0 j, H+ q  i        for i:=1 to number_of_machine loop
! U. j; T+ y- Z                for j:=1 to number_of_machine loop
) ]5 G2 M' v: ]2 m/ ~0 c                        if j=i then
                                d_from_to_chart[j,i]:=0;
& a2 P) `* G# K1 Z) U                        else
. f& D" a* W7 P9 C0 a. u/ a. w' g5 D  z# s                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 v: n* D5 x8 R9 ~. M* U                                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);
3 {2 i$ R3 @: r9 v9 N+ ~0 ^: b( i                        end;
# n8 W' P4 l1 z$ F3 L* L& G                next;
        next;
7 g0 R( {  Q, X# M       
* ]% M. R/ s; }& u        lines:=0;
        partstable.delete;
0 v: H) c. ^! L3 J( b6 c+ g       
        for i:=1 to number_of_machine loop
7 g7 v5 F- @; R4 V1 j! M$ k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 Z+ q3 u' n, s6 A1 |+ y                machinesequence[2,i]:=rows;
2 H9 t0 L1 V; c                for j:=1 to number_of_machine loop
7 M% [( E+ p: B, `) p* H                        if w_from_to_chart[j,rows]>0 then
5 \' q/ D" q; e0 _                        lines:=lines+1;
+ f, G$ a$ u; C% j9 W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 s+ [$ e1 k5 C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 Y, p7 }! F  K$ p( x                        partstable[6,lines]:=j;
                end;
        next;
. H. w3 c- K6 z        machinename:=sprint("M",rows);
; y2 j# [. R5 n; E; k; l) Y- a        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]);
: j' D7 a3 ^6 g- a% B7 V        machine.name:=machinename;标识符未知
" u9 w8 g5 t) s: R3 N# }        machine.proctime:=5;
" a& I! w. z8 L, u' S& h1 P        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 T8 j+ T* N, n  |4 z7 h4 \9 U       
5 d3 X. z7 B8 W: @9 D! C) W, ?: @        bufname:=sprint("BF",rows);
- B; f/ A( R3 I& r5 o) N9 b8 u        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]);
% U6 Y" O( {2 E* U) V& o        buf.name:=bufname;
2 k3 }6 U7 P: I# F$ `$ r        buf.capacity:=5000;
        buf.proctime:=0;
( _  V, C, u! u' p+ Y6 [        .materialflow.connector.connect(buf,machine);
3 F7 u8 u9 `9 A' Q6 P       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, ^' r+ x/ O; C1 `' J& z) G' h# q7 l3 vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* U' {- X: t$ s9 G( ?) i7 mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! F  M9 R" Q; P, m7 Z* D/ H3 F8 f, dend;