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

zooey

is
/ o1 I! W9 p5 C0 I        mark:boolean;
/ v& Y0 z( c' r/ y$ u  V        dx,dy,ct:real;
! A- _2 R& o6 \1 q- `) m2 \    i,j,rows,lines:integer;
# [! {+ A6 t% u/ _* ]    machinename,bufname:string;
" L: G; E  |2 L9 j    machine,buf:object;
0 ]- U) |& S$ w: k7 }do
1 f4 r/ F1 {* _' ?2 V% {        current.eraselayer(1);
       
+ \# w; m) h+ {. ]' l3 y1 y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; C/ }2 R6 z* F8 w3 r% u6 ?5 F+ @                when 16 then
+ r9 O9 T* o: k/ i3 ]                        print"yes";
2 X% n) h' J6 C                when 32 then
2 p: l* k% W: t                        print"no";
% r  w+ m5 u! F% f# `1 T                else
% U. g% F6 {8 N! _                        print"cancel";
                end;
                eventcontroller.stop;
( j0 V5 q/ w( j' }6 Y2 {        end;
! m6 @# o  g" v" Y       
        for i:=1 to number_of_machine loop
/ V* v) A0 X! {! z' y1 m' z# E        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 P8 Z) I# M" p0 |; R$ W8 E                machine:=str_to_obj(machinename);
                machine.deleteobject;
% [$ h" [: i2 \  ?, V2 C! \        end;
7 \0 T. B; K$ j) N        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! R% }0 I0 [& W        next;
/ G8 ~* h4 e2 |1 A& }! _! Q       
1 P' j/ i2 _5 s) |4 k1 {5 f  ?        dx:=0;
        dy:=0;
  A7 B/ V; p0 d/ A* V4 O        for i:=1 to number_of_machine loop
$ N' `; F$ l6 {& p& S4 T! q4 S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 C7 L4 g- Y# G. w: N0 q                --mark:=false;
4 }4 U( F4 ~. ?  O7 [" B/ q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) I! e7 B: j( I. _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 Y) \/ i" u3 D+ A8 G) _, c                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  E5 a/ h% n& X: d! w                        ct:=activityspace[2,rows];
* |' M1 y& C' w- d( h, I. D9 P                        activityspace[2,rows]:=activityspace[1,rows];
5 U3 j4 M- O( K1 u4 y: H( R1 H                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
* _' y- X$ ?6 N! c5 o5 Z                        y_max:=y_max+dy;
1 K$ T- }* Y8 x8 y$ A5 B. t                        dx:=0;
) d/ a  `9 @0 s+ U9 i, p                dy:=0;
                        --end;
0 g6 j  m2 B/ G6 h' K8 `                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 C0 m3 f/ O/ f' O; `" Y0 I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 J  }1 D9 z: _& G- a" B( R            if activityspace[2,rows]>dy then
( b; E& W2 Q! S6 ~! ]0 x- {! U                        dy:=activityspace[2,rows];
                end;
/ C3 S6 X2 S% |9 W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& v: I" K+ q6 h1 Y; y                ct:=activityspace[2,rows];
8 Q- T( U% v- \4 d7 x$ F, [                        activityspace[2,rows]:=activityspace[1,rows];
' f& n$ E- @. h                        activityspace[1,rows]:=ct;
7 W/ e6 J# S+ G" t                        end;*/
' Y& b) f. `7 }        next;
5 o# B) G& Z( k1 I3 ?* d" p  T  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);
% b  w8 w+ v4 T1 j& m; z4 m       
        rows:=0;
        lines:=0;
- a. ?* h( w/ q: ^7 |; @        for i:=1 to number_of_machine loop
* [% S# a: p" R. K                for j:=1 to number_of_machine loop
* y) G. ?+ w' K0 _  B2 L                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' I5 O" c( X# {' y7 ?( b% |5 d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 U8 w4 z* Z: n3 x' h% 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);
                        end;
0 E/ d( ]1 X* Z0 }& o- R; D0 F, e                next;
        next;
       
        lines:=0;
        partstable.delete;
       
; g) f7 x' `# X7 ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( s& m: Y1 I2 W5 X                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. i7 x: p  v) i. K) i+ G                        if w_from_to_chart[j,rows]>0 then
( Y3 r& p8 k( I% B) P) u                        lines:=lines+1;
# y( {# j6 P# M. C% v* |1 l                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; `, I8 x$ n* }- n$ W& b                        partstable[3,lines]:=sprint("parts");
9 @7 {6 z  w5 U) M3 b, c+ i5 P- w                        partstable[5,lines]:=rows;
& _3 S4 h0 ?6 L. [                        partstable[6,lines]:=j;
& V, n' T1 i: o* i+ q1 y                end;
1 c6 l! S9 J% A* P        next;
        machinename:=sprint("M",rows);
  ^/ `+ X# f# A. K3 W        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ X" E$ q; X, p9 r       
        bufname:=sprint("BF",rows);
) E3 f  @+ J4 S% _" Z* e. X        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]);
% L) F5 \, q4 @" J* h6 F4 v- i. R# e) B        buf.name:=bufname;
; a/ w+ u! A) Z& E        buf.capacity:=5000;
* E( K  E; Z9 I! Q0 b        buf.proctime:=0;
+ a' |0 S( b+ Q1 q7 a        .materialflow.connector.connect(buf,machine);
       
        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;
) F4 X  s  _. h& rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 W; D* j/ R2 n/ q5 `% G, o4 H, Lend;
* }" g. g  P$ e5 f# P$ G5 ?