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

zooey

is
/ @# l/ f1 [& x0 C        mark:boolean;
        dx,dy,ct:real;
) R% s$ \9 m+ V2 b    i,j,rows,lines:integer;
. u& ]; M2 b  D! O4 W& g- W1 V    machinename,bufname:string;
$ x: Q$ t, E! W2 Y: r    machine,buf:object;
  z9 p# i) |1 D7 M8 Zdo
2 h1 d' A- j) \3 `+ o& K        current.eraselayer(1);
: U7 i! z( u& ~4 F7 j4 p2 K5 g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' s% v) |! O  ^                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 V5 R3 s5 a9 G/ I2 m4 e                        print"no";
                else
3 v8 z" g' p6 ^- [, P& F$ O+ h                        print"cancel";
                end;
# ^' l' _) ~+ t( S. w                eventcontroller.stop;
  t4 ?8 A% L5 l5 A7 L/ x        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 u- @; i' A# _5 d6 v        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# ], S/ Q/ \# H1 _$ L6 k1 {4 e* `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
" K. r0 c( {) g: f& L) Y        end;
        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;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 h7 Q$ ~& [+ L, H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( R6 o: I- H9 g( \1 n  m                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
2 b/ t* J5 G- m2 G% t+ q2 z                        y_max:=y_max+dy;
6 _. B7 U6 z3 Y7 ^3 t                        dx:=0;
$ H  H; ^2 o0 Z6 A6 O                dy:=0;
                        --end;
9 K  w: q# ]1 U1 U# p  J5 d                end;
% H% X8 u, C4 p) g                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ ^1 q0 a& I3 x9 ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, A1 T9 [) p0 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
# k- p7 E, o. O+ D& {                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, @0 I1 Z6 t6 M5 j# {3 _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 A7 T2 h# H& a5 o% P5 s                        activityspace[1,rows]:=ct;
$ O. }6 r0 d+ n2 Y  z; W3 a                        end;*/
        next;
        y_max:=y_max+dy;
( Y6 M7 p6 A$ x- o5 e        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 I: h1 p7 L/ q+ x5 M7 U        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 \$ J. I4 w7 C       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
0 d& J5 G9 ?. i                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% X* J: |/ w  m                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* W% z5 G* ], B8 z! [0 i' `- W                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 }) K9 r$ O% Z" H* B; V6 X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
% {5 r; r" b" c% D6 n* ^  U        next;
8 x2 {& n* [9 F; |7 J       
0 v+ _0 |2 \) p% H        lines:=0;
2 B) ~; ], H1 [        partstable.delete;
& W* K$ ]8 D! x( k       
        for i:=1 to number_of_machine loop
5 j% I4 L* ^- s" i& [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, S1 U6 m& Y+ G1 r& h- j1 ~" Z' l; r                for j:=1 to number_of_machine loop
- d9 y' O5 S( G2 J7 `% M6 n2 {                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# U, t0 w) \6 \3 s  f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  N6 {  W% i( Z3 U! ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ l/ _  M* y, j& O                end;
3 A& ^5 B7 Q! P# m5 w- }  B        next;
; s1 K+ f, @% U! }5 T        machinename:=sprint("M",rows);
0 F1 a" v0 T9 a  F/ a' g        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];
% l0 ~# l; y4 Y4 D7 @; v- c  w$ T        machine.exitctrl:=ref(leave);
" z# ~( j5 G( f- q6 d/ `       
6 e  }" O5 d2 h% B  z- q        bufname:=sprint("BF",rows);
& G' ?% q/ c$ h) 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]);
        buf.name:=bufname;
6 A* c5 f% G8 p* p        buf.capacity:=5000;
+ `* i. K% {: n5 F        buf.proctime:=0;
" b1 y: `- E4 M2 k/ i2 y6 m+ I        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, p$ v9 k/ |% [0 f6 A  ^  Ndy:=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);
- G! ^5 n, M9 Rnext;
% g- q/ w! E+ Z/ e2 uend;
  j& g) f+ g, I" a5 H0 M, z5 {