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

zooey

is
        mark:boolean;
1 e/ e" d2 ?5 m        dx,dy,ct:real;
% Q! |3 \! g) r  f! N) ]0 L" w9 U    i,j,rows,lines:integer;
4 {% w3 s$ p, g9 J( |$ ^+ j    machinename,bufname:string;
    machine,buf:object;
0 c4 V+ Q- [8 E, B# i# cdo
        current.eraselayer(1);
( ~  a7 w0 p1 G- R       
3 I' L$ C; C2 C5 d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
% K/ G( k, U+ L$ ^/ ~                        print"cancel";
                end;
; e; d$ @3 k0 X  C3 Y; i                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, n4 a+ \- ]3 |5 f+ X- b  A        if existsobject(machinename) then
! m" R& ?/ {' _# v! p                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  v. e( z$ q: ?        next;
       
& ~" P1 V% B( r0 A6 M1 \( G0 {        dx:=0;
        dy:=0;
! B3 Q& Y0 [, l7 t: C        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];
                        ct:=activityspace[2,rows];
' G3 j+ I7 V) Z5 `                        activityspace[2,rows]:=activityspace[1,rows];
* t9 S8 {6 h! {                        activityspace[1,rows]:=ct;
                        mark:=true;
& t" P7 m! G; _" P                        else*/
# g9 L# K+ y: e. I4 q                        y_max:=y_max+dy;
                        dx:=0;
* B3 b& Z& `: u9 U                dy:=0;
5 R; N1 _9 I# J) ^                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# A6 Y' H( b) B/ {& U  V% e3 s' P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
- K: ~5 s! P6 K" h" a                dx:=dx+activityspace[1,rows];
2 H1 [! A) R9 Q$ p                /*if mark=true then
9 x# d: {, ~8 ^0 d  t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 I  U7 C7 j/ E9 H7 a7 u4 ]        y_max:=y_max+dy;
' k- v/ Z: B# w/ w        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);
; G5 ]0 |1 r& \. U) r8 _3 v        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);
" ?1 _. X9 k/ z7 X+ D2 L/ ]: [, f       
, O3 `' m0 m  R' y6 N: X        rows:=0;
/ U( X+ V% T7 t8 }3 a        lines:=0;
        for i:=1 to number_of_machine loop
7 M: g- M$ E/ T* v7 W/ N: c                for j:=1 to number_of_machine loop
. _- g% C1 m- }7 e, [6 H9 \                        if j=i then
! h/ T& z+ \" O                                d_from_to_chart[j,i]:=0;
                        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];
/ R, ^8 h% Y6 e8 M1 Q                                d_from_to_chart[j,i]:=abs(dx-dy);
5 Y3 P5 J2 f( B6 |/ {( s$ W                        end;
                next;
5 t. |& T! s- c        next;
       
  c7 r, [9 r  h8 [        lines:=0;
* B( s" p/ }' j8 ^5 c0 n7 h- f        partstable.delete;
3 i3 D* ^, u) I( e# z       
1 w' p8 M' ?+ [' _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. J8 k. P+ O2 J5 R% U+ {5 {                machinesequence[2,i]:=rows;
0 h9 c3 r- x' o  g3 q                for j:=1 to number_of_machine loop
1 M; l( v. ]  [, }                        if w_from_to_chart[j,rows]>0 then
% Z" A! M# ]7 @7 }- d4 x                        lines:=lines+1;
: I' L; X. d4 P* t- F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 ]& T7 i5 a" }- W6 U                        partstable[3,lines]:=sprint("parts");
& u" u! _1 y$ H7 Q0 {* v                        partstable[5,lines]:=rows;
+ B/ a% ]" m: d6 [                        partstable[6,lines]:=j;
                end;
1 w! _2 W7 T3 s0 |) {4 k. q) C. m        next;
* Z+ H9 v& Y/ F; k0 w8 G3 N9 k" q        machinename:=sprint("M",rows);
! W4 K4 Z9 J" [, M' h        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]);
* X% T( q8 K; }" }% l6 |4 ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ Z, B& y) Z, Y        machine.label:=activityspace[0,rows];
" V2 K* V. G& v8 ~/ c        machine.exitctrl:=ref(leave);
: X' p. F' a  b" q  d# P7 l       
        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]);
. ^7 \' y, N; S# |* c        buf.name:=bufname;
        buf.capacity:=5000;
% E$ R7 y+ N5 B3 G        buf.proctime:=0;
4 ^$ F6 V) b" E# T        .materialflow.connector.connect(buf,machine);
* S& V5 m. {" w4 G7 H       
        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);
1 g: C: y! S# B4 A5 n  P0 f2 Knext;
end;