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

zooey

is
  B- S2 |) H8 s+ V. j        mark:boolean;
% r: T0 O  N& O. m& f        dx,dy,ct:real;
# F! j5 V1 S" K$ S0 x4 P. p& f* Q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
4 F2 l; j  g7 C1 d! E2 Y5 N+ ]9 i        current.eraselayer(1);
5 N' v& i6 u; |' X' M7 t6 u       
5 g. A( d1 G" K% H; o/ n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; z. H2 Y' T1 W; o  w                inspect messagebox("设施数目不对！请核查...,",50,13)
! W& H" V+ [) a; X3 w/ ]' k                when 16 then
% h! O. t) T' Q1 I3 @                        print"yes";
" j* s* w: F7 V                when 32 then
; x: j' p2 l6 r3 N7 f                        print"no";
+ S& o( l3 \- c                else
                        print"cancel";
$ s: z/ E* I! _, ^                end;
                eventcontroller.stop;
$ ]& B1 N$ z7 y7 K+ l9 h6 L7 U) O6 c/ l        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
) K, b  R1 e. Z1 o( ]                machine:=str_to_obj(machinename);
% P7 M. R) g9 `7 F* A- `                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 F4 L' D: V1 r$ c; y3 i% y% O                buf.deleteobject;
$ Z7 Z, B% I$ e) ?, Q        end;
" v& Z. ?' [" m        next;
  d) W. ^5 o- ]3 |: k. t( _; L2 e       
1 w! ~# k5 N, _! `+ b        dx:=0;
( |3 Y9 H" U5 G3 l8 |& V        dy:=0;
        for i:=1 to number_of_machine loop
+ p0 q0 J* o1 N; t4 ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 X9 {. K& {: }4 S# E: H                --mark:=false;
* B$ u' L9 g: Q4 H* T" I* F# Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; j+ j! Q- u' Z7 \5 B- I                        and activityspace[1,rows]<(1.05*y_max) then
, Z" m( B0 N. N7 H7 {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' V* ?: r" [: E  c* X' H# [, g                        activityspace[2,rows]:=activityspace[1,rows];
" X8 I) Y9 Y! U( J5 C                        activityspace[1,rows]:=ct;
                        mark:=true;
9 d7 Y# e( v0 }" a" H, L3 d) h                        else*/
2 T$ J5 H, t$ }+ D& ~                        y_max:=y_max+dy;
$ }0 l) P, D0 b, }0 h% p                        dx:=0;
/ I4 n1 y6 P& v& Z" g                dy:=0;
/ ]( I+ \' `  r* ^                        --end;
                end;
' Z* [; w8 D6 Z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% K4 W% k" u2 }0 }0 e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; l/ D0 \# S$ U* |6 p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* q% ]" f8 ~3 |. j$ R0 e9 |8 A                end;
                dx:=dx+activityspace[1,rows];
' x$ E# ?  |* k                /*if mark=true then
, C/ R+ r8 `5 J5 B6 L& B                ct:=activityspace[2,rows];
7 I! w- v' U- {! e- Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
( M/ D. _% y- P9 U9 h        next;
# \0 E+ `  g" Z. A. j' }8 U) a+ L        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);
       
, i+ S0 U& E5 M, g/ M: m' \% X5 J        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
' V  _3 Z& O: D4 e# ~' V  }                for j:=1 to number_of_machine loop
/ r/ P2 F% V& O                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 X7 e3 K9 n  Z" n. f1 @                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ ~9 p2 @" @9 Q4 e- M* g                                d_from_to_chart[j,i]:=abs(dx-dy);
) }2 o. m3 G3 @& Q# I4 n                        end;
+ A" s0 E/ l$ P: ]$ h1 |9 I                next;
* |4 Q, ]/ S5 {        next;
       
        lines:=0;
+ Z) {  ]9 J8 m( G        partstable.delete;
1 `& I  B; L+ O6 Z) r- Y5 ~       
+ J$ {9 C- l. Y  F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" `& s# y4 }- f" A! m                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& Y  ]& }0 {1 U1 p, ]                        lines:=lines+1;
2 M+ J' X' W% ]8 n1 E; ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# e9 h; v8 G3 u+ M4 i                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ y/ M! x; G$ n1 `! q  R                        partstable[5,lines]:=rows;
) C3 s& J- L% |( F% B                        partstable[6,lines]:=j;
                end;
0 `4 h7 h( ]# {/ C/ D) `! S2 K        next;
        machinename:=sprint("M",rows);
7 M# @& [7 d2 j2 `7 Y; P        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]);
* i0 v# Z6 K2 M$ W% H        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 ~0 m& n9 Y" D# O5 W        machine.label:=activityspace[0,rows];
7 u" d" P' y" I6 S8 o        machine.exitctrl:=ref(leave);
* D& Q$ D) W1 _' J+ v4 W       
" O4 I) A; j2 g4 s! y2 V        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;
  O& O5 _/ X' G3 k: x        buf.capacity:=5000;
$ H7 z2 I% V6 h2 _1 a! V2 V        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: y: b7 k7 B- t5 S. R# S- T       
9 j$ ]" v0 i" E  A" h; D  M' C        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. m1 G7 d* }- e& g7 ]next;
end;