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

zooey

is
# P5 b+ j9 ^& D% a9 A        mark:boolean;
        dx,dy,ct:real;
  ]9 x7 T$ H+ a- e0 \4 |& C    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 ?2 \/ s2 D# V8 n8 q, i) ?do
        current.eraselayer(1);
5 U* x& J" ^3 j" t4 I       
6 M$ {$ y' c, t9 P% q" H7 T. T; x4 k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( |. Y4 l! q* E+ W5 J7 o; F* j8 b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ a/ x+ H4 M0 }' [" Z! u                        print"yes";
                when 32 then
3 H' @  K0 M% s1 ~0 N% o; v+ n' r                        print"no";
  x) c0 E1 G8 A5 m$ i6 N& m3 C                else
$ V  C( [0 \, p2 O0 M$ r- c                        print"cancel";
& \0 P) r: P0 g4 g! \* V% S" M; R                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; h/ V2 C& ^; V. B" Y2 s! d" J. H                machine:=str_to_obj(machinename);
8 q% K! b% R7 w' ?" |; j                machine.deleteobject;
+ ^1 c# {4 t# y( y. r  f7 C) W" l; u        end;
1 l% w2 J) B& _; C4 v* E7 T        bufname:=sprint("BF",i);
7 i1 d6 N6 y3 ]: _0 R5 Q% F        if existsobject(bufname) then
, ~/ I2 U! p" K, g                buf:=str_to_obj(bufname);
( A3 l" ?, A: v9 }: o- o                buf.deleteobject;
        end;
! }6 S- ]# t. X9 Z5 r  h        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ i, O" N+ f* D2 P% G; D3 ]% s- L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ {. G! q7 k4 }& F- b                        and activityspace[1,rows]<(1.05*y_max) then
$ M9 i) d0 E) @& S5 o                        print activityspace[1,rows],",",activityspace[2,rows];
( x6 O$ l2 a9 g" t/ ]8 N                        ct:=activityspace[2,rows];
& c; w- E5 K+ E9 d3 U& e! W$ f+ t                        activityspace[2,rows]:=activityspace[1,rows];
: o( ^8 ^) q* ^1 i' w( B                        activityspace[1,rows]:=ct;
                        mark:=true;
1 L" v6 x  O3 P( r6 P& L                        else*/
4 j3 a5 n5 a, i9 u/ q* @; N& T                        y_max:=y_max+dy;
& @" X1 L5 U6 U, l! |2 u                        dx:=0;
9 F# z, q2 N9 h" [# r  _, F+ {                dy:=0;
* `0 a9 ^6 _) x8 N% |! x% v1 t$ U                        --end;
                end;
: C  e4 r: z6 D; @% E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( ~1 `* h! }" A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- Q& o& h- h2 e8 F            if activityspace[2,rows]>dy then
4 D6 q3 a1 z) m) r+ w, a                        dy:=activityspace[2,rows];
0 x% n! _# T& g8 b& f' `, X                end;
                dx:=dx+activityspace[1,rows];
  q* H* L5 ]' M0 \9 U9 q$ i- x                /*if mark=true then
* j; C" k* f# O. V3 O& \8 c7 B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" Z" M2 f3 a, C/ D. y2 b                        end;*/
! N1 c4 Z( L% t! M: a  d% v5 S        next;
% e6 n5 j* i1 ]$ J& d8 {        y_max:=y_max+dy;
, t: m, Z7 V) b% O& N        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);
* t! r; M% X; H/ a5 K1 N( I: a' L" }        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);
+ a1 I5 ]. Y( o8 P" t2 o! a% p" |       
        rows:=0;
        lines:=0;
# t- k* B/ v0 L        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 {  |0 ]6 a/ |6 Y2 S                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 ^( u2 {8 Y" T- D1 A5 R1 Y                        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];
* d6 @, b' }6 `: t9 U$ C                                d_from_to_chart[j,i]:=abs(dx-dy);
! j) p8 u! C/ H+ b  [% b                        end;
                next;
% {7 @/ q9 `1 m6 u, O        next;
       
0 P5 E+ S6 @6 ~        lines:=0;
        partstable.delete;
6 v1 v/ B6 L" P  q; L# j0 w       
        for i:=1 to number_of_machine loop
6 n' G$ U& \* g4 J) s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ J+ e6 `- \9 V                for j:=1 to number_of_machine loop
9 D9 o% F2 l, f+ Z( S                        if w_from_to_chart[j,rows]>0 then
. [9 S: T  z: o' C) k4 O                        lines:=lines+1;
6 M4 l( Z8 R6 |7 r6 D  s: N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' u% Q9 C9 n& e1 m: l* d/ \& p                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 O6 d: E5 y; A& l, U) r3 }: J  [                        partstable[6,lines]:=j;
  m/ |0 g8 v4 R2 B& S; @                end;
) W/ b! _- m* M; W! I7 m        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]);
, v/ J0 S. h1 c: b" h$ N/ E        machine.name:=machinename;标识符未知
1 Q' k% R: H7 ]. A9 y* _; @        machine.proctime:=5;
) s  M3 s4 G/ o8 f        machine.label:=activityspace[0,rows];
: x- }  U- t* _- `: ?4 }        machine.exitctrl:=ref(leave);
4 D# V% a5 {/ u' M: M0 c* E       
/ E7 q* K6 a$ l        bufname:=sprint("BF",rows);
0 ]2 W. k. n% C1 c- V$ _- ^        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]);
5 p% U5 X! w5 \4 |( L        buf.name:=bufname;
  Z1 |* ]6 Z- l; c; g        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
" @. o; n1 I) W9 S& k' ?' c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' L4 g! w- c) r3 T9 zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# z$ j9 v4 R& P4 K, X9 a5 |  Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 S9 ~5 T. l; m" Oend;