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

zooey

is
        mark:boolean;
1 _1 Y* p. T9 L- j+ y9 W, S        dx,dy,ct:real;
2 y+ C& B; K. X! i9 |# k    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
* ?# {1 y6 z  M$ R2 k) |& Cdo
9 @: h& P/ [# P  l        current.eraselayer(1);
/ {8 O% Y# c% q3 G; e. X2 Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# @+ s) K4 @" W% r& h! Z                when 16 then
                        print"yes";
                when 32 then
- Z6 G# F6 e4 \) G4 Q  V- L9 T( S                        print"no";
0 ^: H# Q1 c' m' r$ u& `                else
                        print"cancel";
. o$ F. _* M$ ?                end;
( E! ]  x7 H* @                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
( N; f$ }! j4 G) s! _        machinename:=sprint("M",i);
/ ~' l6 p1 w4 F) \5 Q9 T4 K8 z) s% n        if existsobject(machinename) then
# U1 j; e1 A& s2 k% p( R                machine:=str_to_obj(machinename);
  p/ N  l. u4 d  _1 D! y                machine.deleteobject;
0 y% l$ o3 d3 \9 K, z0 T        end;
" i- h  N; |) i6 t3 U% c# ]$ {: u2 l        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 `6 E2 ?' ]  h5 d. V                buf:=str_to_obj(bufname);
  U; Z. N6 l+ {3 s! t% i                buf.deleteobject;
  M' H6 U6 v$ f- q, z3 k5 y4 U" |        end;
" @+ c$ O8 J3 D$ S        next;
% @6 |+ ^) n" c/ [       
        dx:=0;
        dy:=0;
1 S* N  m2 h0 B/ _" Y$ o8 _' J        for i:=1 to number_of_machine loop
# R2 ^+ M! [% w2 g8 s7 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! z& y0 T. E: s" W, Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& S# b9 E3 H4 W8 Y% _                then
* y  b$ J9 w4 Z- U0 p, M: P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 L7 Q9 P1 G" H# d                        and activityspace[1,rows]<(1.05*y_max) then
3 x" y: I; a/ F7 j8 K                        print activityspace[1,rows],",",activityspace[2,rows];
& m  U: l* `. N9 g+ z/ o                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  N) }* Q% r1 P                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
8 W5 B0 b* z5 I- F$ ]! A# S                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* J' n1 {$ N3 E8 j3 v$ P6 R; L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
: ~6 `& r1 o! w5 ?' l0 A9 X                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 r% ~) \$ E1 W. E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 `8 C3 P3 r! _" b, Z        next;
        y_max:=y_max+dy;
; \) u5 d! c" q1 G$ S& C& A* 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);
5 f0 u, B, u0 q- ~, }9 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);
& [0 Q5 T: ~9 `  D! x) G4 @5 L       
        rows:=0;
$ O3 w- ]- ]; @" _# W8 ?        lines:=0;
: u1 d7 E1 g/ X        for i:=1 to number_of_machine loop
* w! R* S) o3 e. K6 q% ^$ g                for j:=1 to number_of_machine loop
  Q6 C/ L3 i- C1 g8 |                        if j=i then
& L2 U* Q1 K$ _: a2 ^* o9 V                                d_from_to_chart[j,i]:=0;
* x6 M* C" ]1 a                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  E7 z8 {9 B& ?                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ j2 p2 H4 x, S- Z% q) L+ y' P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 g- @5 P! f2 a4 D' ?; D7 m: Z& N% o                next;
        next;
       
% G+ }# ~$ b# s$ K( c: w        lines:=0;
* @# h* H. I( {0 a' z1 A( ~% |        partstable.delete;
       
+ f0 @: p- v: g( w4 d# q% k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 d7 I7 X  X8 i$ c; h0 ^3 t0 A                machinesequence[2,i]:=rows;
6 z& k- R, H, r4 v. b' N                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 B* a, v7 e+ q2 @( N* E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! h) i7 `5 ~9 m7 y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
" O# y( `7 J* p) Q  s        next;
        machinename:=sprint("M",rows);
3 r$ F2 i# M: N; c6 i2 M2 S        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]);
! `/ p5 ~2 t) H4 U5 W4 S        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 g7 p5 J& O" M        machine.exitctrl:=ref(leave);
1 v4 I: S- V+ [& l) x       
        bufname:=sprint("BF",rows);
9 b; C, ]8 m# J: B, T: _7 s8 z        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;
$ s4 {. |+ @9 r% S$ s, V" m8 O1 P        buf.capacity:=5000;
        buf.proctime:=0;
" J% [8 K- F6 g$ [) t4 M$ w        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ W& c' O& ^# h2 H3 {' Edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( p% A2 t& E3 c. C9 H5 Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
: W" J* `7 \% k$ U2 e, v. J% i" Mend;