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

zooey

is
- u9 ]4 h3 P) P+ J! S        mark:boolean;
        dx,dy,ct:real;
3 ^* l, z" ?" O6 N! Y  F! b  E- A    i,j,rows,lines:integer;
$ V# {9 R- M$ D. I. n! c3 i    machinename,bufname:string;
$ K. L0 T) Z% K" s6 z    machine,buf:object;
do
        current.eraselayer(1);
+ g0 w4 w2 w5 O  T9 I5 T# k: ]       
' w- H/ C9 [: B8 j1 V! V' s9 ~        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% d! l# ^) _4 l3 ^; G" N                inspect messagebox("设施数目不对！请核查...,",50,13)
9 [; W4 E  ], S                when 16 then
, ~6 ~+ r* U9 g) I* x4 N                        print"yes";
                when 32 then
8 s' {  c9 h2 X4 i- K9 z# s                        print"no";
                else
6 b6 e' J( N# c% D4 Y                        print"cancel";
                end;
                eventcontroller.stop;
2 w5 J; k% h2 e$ v! D9 ^9 A        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; A- x3 y' `0 g1 f- p3 F                machine:=str_to_obj(machinename);
, G) g! Y) b: f, ^, U0 Q                machine.deleteobject;
& @% i" U3 A  j/ ~! t        end;
) h, E) n3 `+ [# F; |3 }        bufname:=sprint("BF",i);
- _* k" y5 T5 @5 p        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
# ]7 R9 j- A. A) V: b( _9 B        end;
$ |+ Z2 C& f: \( r8 i        next;
0 ^; j' T" N' M       
! F1 c8 E8 A0 }, e) T        dx:=0;
- i8 k6 z. c/ @- q6 i2 O6 {$ B        dy:=0;
        for i:=1 to number_of_machine loop
7 l& _+ i- d, Q& |. p: d+ Z' ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  `' a8 i* I' m4 D' H                then
3 B$ }3 h: ]7 Q- p" G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( F0 O# D- h- C                        and activityspace[1,rows]<(1.05*y_max) then
/ Y; n; W: m( c* r                        print activityspace[1,rows],",",activityspace[2,rows];
/ |4 e; X4 P) i5 p! J! ~% R2 Z& E                        ct:=activityspace[2,rows];
+ u/ [" E$ d% J. |. z$ H8 O+ {                        activityspace[2,rows]:=activityspace[1,rows];
' K1 F7 V6 N7 w5 l5 J4 c' r                        activityspace[1,rows]:=ct;
: y. T* A# G# r                        mark:=true;
2 s$ D5 B+ b2 G- z# p* Y; J                        else*/
) W/ I, ?1 L, `2 P# Y- U+ a                        y_max:=y_max+dy;
3 y4 X+ x/ u# E- R" e5 a                        dx:=0;
& p! E' b( |/ _% u: z! E, w- k. n                dy:=0;
: D% U' X4 Q+ m. s. f/ q6 e                        --end;
5 ^9 ?* p, |& ^- C- P: R2 L                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;
& k# _) r4 s3 d$ i, L8 {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; S6 z; M, ?/ V+ |. P                /*if mark=true then
  m9 F6 H# r1 I0 K+ Y0 |1 t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 Z9 s% g0 ~5 R+ q, f) W+ R) d, h5 a- ?                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  I3 D' D! H  m; o, U% w5 [        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);
       
        rows:=0;
        lines:=0;
* G* Q' W2 l% {' k1 _. Q* H; K& R        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, u1 d! P* \: W6 q+ Q! S                        if j=i then
* l4 O# o" e5 N                                d_from_to_chart[j,i]:=0;
; Y2 p7 \1 `+ t7 G& h  @                        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_from_to_chart[j,i]:=abs(dx-dy);
. l# [7 {& X( _                        end;
3 N6 z9 |* `( E- U                next;
$ j9 n# }! e% F        next;
       
1 }1 N7 C7 ]! d) H: @, }2 g5 b        lines:=0;
1 Z0 ?  W! V) [% d        partstable.delete;
       
. M* c9 S6 W) v) A: p7 o, t: Z& z        for i:=1 to number_of_machine loop
* v3 \: h. {& z1 i5 p2 ~" q. z7 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 Z$ O9 P: r, A1 ]( Q2 Q  P                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: b9 |6 Y' Z% F' T                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 [- r) m& H8 Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 d! I; B- Z7 M3 p9 t( I* I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 S$ L% T- U# R+ X5 S/ c                end;
. l( l) t* ^4 T: [        next;
3 h0 Y; Z/ k$ g        machinename:=sprint("M",rows);
7 H- {" N: A. Y! N7 X$ f        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]);
) v& J/ j6 l- Y6 z  O2 C5 Z        machine.name:=machinename;标识符未知
" |6 G" |3 A: c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; M/ z3 o% ~2 L9 ?7 B+ C6 c: W        machine.exitctrl:=ref(leave);
       
. q9 C4 T) ?: D1 A$ t4 {6 \  F/ D        bufname:=sprint("BF",rows);
) m" w1 k% g2 G' ^0 Y2 }7 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;
        buf.capacity:=5000;
; c* n, h/ u. _4 |0 I        buf.proctime:=0;
! R/ ~2 v$ }  L! V6 r/ ~, T) {        .materialflow.connector.connect(buf,machine);
       
7 {* s% q! O9 Z) e* t0 E. y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 D+ L5 z3 j1 I8 N! L# bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) H4 ]$ C  A( Z6 s' U: W  fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
7 K7 A2 J  w( C: M$ ?end;