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

zooey

is
        mark:boolean;
) I$ I" {* W* H; N5 Y, _        dx,dy,ct:real;
9 i$ R# P" U& v9 p7 f* A    i,j,rows,lines:integer;
' a3 ?% h: u! b, j# b1 ^    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        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
                        print"cancel";
, G7 x2 f: {7 U; t- S- |                end;
7 W& V. d; _) B& V. x7 S                eventcontroller.stop;
        end;
% r8 i& C0 H4 C# D: i/ B; h       
        for i:=1 to number_of_machine loop
& J3 T2 S0 f; }! m' ~6 G6 Z& Q        machinename:=sprint("M",i);
$ G, B( L1 s; U% y3 g        if existsobject(machinename) then
& l* `6 V/ n/ Q. i. H# Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
) m/ D3 r& _- z. y( K( X6 Z! ~7 Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
* {1 Y# Q; z! ~# e8 d7 D' J        dx:=0;
: P! _. h: p0 X* f3 i0 K        dy:=0;
9 Z! w2 u' k1 `" Y6 l        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
/ d5 G  p; L; j5 w% H0 A1 F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ R6 _4 \+ ?& C7 T0 y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 `* g7 @- K) c4 c" G0 G( N+ [/ r3 {0 M                        activityspace[2,rows]:=activityspace[1,rows];
- U4 v  f) q; ?2 O8 V8 y# D                        activityspace[1,rows]:=ct;
                        mark:=true;
5 }3 c: L8 O" H                        else*/
$ |; F" m7 `, u% l1 f6 n! D                        y_max:=y_max+dy;
$ E( M! r( P) k, Y& }2 k. ^) U: t                        dx:=0;
                dy:=0;
                        --end;
                end;
& X3 X$ b0 Q/ \3 c% Y+ T! }0 C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 J( h( f: Y9 w0 ~0 z! O% O                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& _. k3 T/ w: Z            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
, S0 A+ n. Z# k) K" N/ a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
' }: L' _+ ]6 h  u        next;
        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);
6 ?& |4 N+ J+ i9 I/ B% {& e0 t       
3 p: P4 A3 q( \. A0 h, t4 s( X9 k        rows:=0;
6 C2 R1 b4 f* K- c6 Y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. u' U; A. b* T8 M                        if j=i then
4 A# \% A. ?& W# e& N                                d_from_to_chart[j,i]:=0;
) T" @) n1 N! z; z! P8 w2 h( ?1 B                        else
% w. p% |! c/ m' ]. l( I$ s% Q0 ^# N/ n                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
8 j& z. i0 P2 d0 h! e                        end;
                next;
! V% _- Q% n+ W. j" m, K8 ?        next;
. }5 \. M6 f$ d% ]       
. p' x$ A. N2 t& i- Y! ^+ F        lines:=0;
        partstable.delete;
       
( c9 Z- g# F2 X$ o* _        for i:=1 to number_of_machine loop
) I2 M6 Z0 B- ]  M8 l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 T$ d1 h/ T! l! T8 h                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 z+ E5 M1 |5 i7 Z& W& u! p' O1 q                        lines:=lines+1;
, J5 m# y+ s0 Q: F8 b1 K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 X- ~, K2 G4 R9 v/ @6 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ s1 f' {. f; I$ ?! J/ b. N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  I' p8 K- v$ V& v- V: v3 D$ ?  K        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]);
3 ^5 b3 S5 C; ]- U1 f3 S' E" J        machine.name:=machinename;标识符未知
2 |' @( T0 O2 T/ p, e+ z5 G9 X# ]        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
3 A5 K" z' M" P) F5 {        bufname:=sprint("BF",rows);
" Z3 w) I0 @  g; [; g( t        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;
4 K+ ]. s$ @6 g5 G        buf.capacity:=5000;
' |. Q2 z$ y) t5 |( t$ Y' R        buf.proctime:=0;
9 B- \0 T  [8 u* P/ Z  m        .materialflow.connector.connect(buf,machine);
       
        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;
( g$ W  i" O2 V5 ?6 Z# xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;