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

zooey

is
. F4 t* p: C( r0 P6 B        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 j. p$ w4 j- K# E8 F) O$ G7 j& @8 m    machinename,bufname:string;
    machine,buf:object;
) v$ Y* q( H# Hdo
  V& O4 Z' u1 w* T, l2 D        current.eraselayer(1);
6 p3 ^0 F: q' b) V       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 E! g7 T+ k2 M6 \& e                inspect messagebox("设施数目不对！请核查...,",50,13)
# K  ]8 `' i+ n0 \4 Z7 s# i0 h                when 16 then
! H; }3 e; N, Q* L6 R4 t3 K$ `; B                        print"yes";
$ Z1 e9 S* ?" R3 s9 x                when 32 then
                        print"no";
' g3 Q. \% S7 L! b                else
9 V; y( N" O8 G8 ~2 ^                        print"cancel";
                end;
                eventcontroller.stop;
2 g4 q; X- ~2 q& X2 X        end;
" ]6 j8 Z+ L% _       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 `  M7 X  r1 h) r" ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
- o4 A0 m% Y& y& S        end;
$ c8 P+ v' z8 U; [5 [8 m+ }% [+ W        bufname:=sprint("BF",i);
/ C$ F1 p  k# D; p7 }) w* E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
0 j7 Q( c2 P7 ]. P6 Y: J       
7 Z# V. M* e4 z8 U0 o        dx:=0;
6 Y' q- S" i4 M9 N# d6 {$ x+ X        dy:=0;
! E" @) d% p0 g        for i:=1 to number_of_machine loop
% Z* q, x0 i7 s& H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& p4 a' ?  U; V  ]& Q+ K                then
! @1 w8 t( W' z3 \9 B8 `! x8 S                        /*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];
9 A2 d' J- L. [' F: m( `3 o# u) \                        activityspace[2,rows]:=activityspace[1,rows];
0 \) l) J& p4 Z0 i: B7 |8 g                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 q9 V: _9 h& `6 |3 t% L1 ~! Y                        y_max:=y_max+dy;
& T0 u; a( q1 l                        dx:=0;
+ X5 d+ h% l2 x# Z6 j! h                dy:=0;
                        --end;
9 w6 _2 b9 E$ E0 X- J  {                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  B9 k. p  @8 w* y1 t                end;
                dx:=dx+activityspace[1,rows];
; \! f2 N" n8 I7 N                /*if mark=true then
  `0 K( W3 L& T* G0 u' H                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) b: J, D+ Z; w4 N  W- b; j                        activityspace[1,rows]:=ct;
7 _2 b4 P' g5 I1 \) e, a                        end;*/
) ?2 a6 i7 H5 \7 L$ o, n  g        next;
. U' V" \: G9 P- Z4 ]        y_max:=y_max+dy;
( h$ F! h: u2 \% G        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);
0 V, ~. R' z+ }2 X$ O" w: |  y       
: j9 W. M; C+ l6 V+ ?        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
% |9 I- S- Z* C$ p' v, C                for j:=1 to number_of_machine loop
                        if j=i then
, ~8 s: _  ]2 w/ E# J                                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];
( ^) n5 M, K% `! a# _8 x                                d_from_to_chart[j,i]:=abs(dx-dy);
( b# \& @7 D- u2 r8 d  n8 {                        end;
                next;
        next;
       
' I, x# k9 _3 I% |1 w" O. V        lines:=0;
        partstable.delete;
       
$ n/ P( P5 K7 c) k) z  X        for i:=1 to number_of_machine loop
+ N: [. S# p7 |3 L( A. O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! \) E. n" J, J. {8 A1 h7 N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- D. W; z1 X4 L3 o' ~7 {                end;
        next;
1 e4 o; Z' N* q; ]+ F1 h( \        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]);
) l' ?( r& k8 \; r) V0 S+ A        machine.name:=machinename;标识符未知
& m8 I! o% `7 U        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 k) {/ o' m, D        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ D( ~, B. k& J! z9 L, S" a( Y$ G        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;
        buf.capacity:=5000;
        buf.proctime:=0;
. a" \6 s' X8 e. S. w' N; T4 ?        .materialflow.connector.connect(buf,machine);
$ C& y, n5 {& {% Y  g       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 x) R5 f" `1 _" \% _0 M6 Vdy:=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);
; Y/ g  ^& R- T4 ynext;
- [( }+ w' M- j6 send;