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

zooey

is
% }, o2 H) s: V4 h$ b  @! X5 m( k        mark:boolean;
: u0 n& d& n' n# M+ W8 x& g        dx,dy,ct:real;
6 x" j# Y! F, o) E  Y    i,j,rows,lines:integer;
2 F. V. ]! F% w. ]% W4 b# g0 y% g    machinename,bufname:string;
+ b  y/ t2 j5 V! V/ ]% Q3 V' V    machine,buf:object;
do
& E% G4 h. o' m1 y2 E: l# S: D        current.eraselayer(1);
6 h( L/ |& \9 Y& E5 W       
        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";
* t4 C7 ]- U  O/ o* F2 }! ^                when 32 then
6 ]8 z% q7 t5 n0 O                        print"no";
+ [7 q$ e! s. g# I6 K% R0 y                else
                        print"cancel";
                end;
                eventcontroller.stop;
' b: b1 r; L7 i7 c        end;
       
- f0 G& u  M- o; {4 I. G* c& G" n        for i:=1 to number_of_machine loop
7 U% A: h2 t0 e9 L- D9 L4 f4 U7 M        machinename:=sprint("M",i);
0 K3 m% R' G* t) f# d3 [7 @) h2 Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 p2 B* |9 a) X1 Z6 t- a  ~9 V        end;
/ i/ e% z4 M5 B2 V" l4 u        bufname:=sprint("BF",i);
5 K- U/ j7 s, V; Z' ~$ l        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
5 h* {7 s3 W0 ]7 X  o) X       
" m* O% r! g+ U* U, l        dx:=0;
        dy:=0;
- r  R  l0 b+ N# l% J$ n        for i:=1 to number_of_machine loop
, U) Q% M8 X+ V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& ^0 }1 G& e  q4 I7 K# w                --mark:=false;
4 c0 b# G! }3 S  u( y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) Y% W  W) E0 s                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. Y+ w# f$ y4 C3 {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
! H) k2 L" S/ ]; |9 a7 R  Z- `! t3 J                        y_max:=y_max+dy;
2 g- \1 v. [  E+ J4 U3 h! v                        dx:=0;
: [; k- A* _( o# Q/ W( J4 R3 m                dy:=0;
                        --end;
                end;
0 A, X' q0 b6 ^" K) ]8 j9 M                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
- A5 H% n6 x. g% i                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
2 ]' t" s- E7 c- t3 m+ T) ]                /*if mark=true then
# m% ?! P3 u7 C                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, C/ U6 B1 y9 z* a                        activityspace[1,rows]:=ct;
                        end;*/
, y3 ~5 n/ K8 w1 w+ Q) l3 l        next;
* |# x. H& m: j. a/ q2 X( ]        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);
! ~8 E. e2 y- S6 r" V1 G" Y) X        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);
/ i( @% E4 X. t' t- G7 I6 B7 l       
) z! k$ w. _" K. I7 u$ P6 \        rows:=0;
- r3 c2 c# d% I4 R6 e9 O        lines:=0;
* y; J1 O( r" T/ ]. e+ E        for i:=1 to number_of_machine loop
2 [- m2 y( B$ k  y  M( z" O                for j:=1 to number_of_machine loop
                        if j=i then
: R5 M+ v) C' C% a2 Z# ~7 F                                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];
( D: z) O% G" X. B, H1 {! I- w                                d_from_to_chart[j,i]:=abs(dx-dy);
8 k$ j/ h6 d- ~; z- N" R7 l                        end;
. [$ A, f( Z0 s. @5 y                next;
        next;
/ P( Y0 ^  T, {       
        lines:=0;
        partstable.delete;
8 f. c! Q1 A+ |) l       
3 D7 x# [% r  B5 X1 G- Z        for i:=1 to number_of_machine loop
; T" t* y" W) Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. m2 |; L& V9 T* P                for j:=1 to number_of_machine loop
8 q) x% L* F0 e" x; q7 B) z$ F                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( g2 K  X" e6 \, Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 j8 _) L! R3 i! H% h+ }' g                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 _; ]+ J! I6 H" r                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 `0 T/ I" p2 W$ W  M; x                        partstable[6,lines]:=j;
                end;
4 y; v; s; @! I# W; G1 B& L        next;
        machinename:=sprint("M",rows);
9 c9 }0 S# U6 N# F  f, 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;
' I9 k1 R1 [* R0 _! v        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
0 Y8 J7 P. M. D! b2 a0 `8 K" k- W        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]);
. r$ k( u; [5 ^3 k/ W: Z        buf.name:=bufname;
! @. ~/ }' s2 O8 g2 C        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  S# q9 x; j+ g* ^' ^; ]/ I       
+ V) {# t) P0 N0 \4 R. H+ a1 x) m$ k/ D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" N7 I! D4 N' A! D$ ]2 C$ \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);
/ z# p) U9 J& e, b- }' Z# |6 enext;
end;