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

zooey

is
- o' I+ G: A1 |: `2 @1 I        mark:boolean;
        dx,dy,ct:real;
( I" a1 [* {- k) o    i,j,rows,lines:integer;
* _0 g1 W" O- G" e8 x4 J    machinename,bufname:string;
    machine,buf:object;
4 y& v) s% D- sdo
; W* M) E4 l+ B        current.eraselayer(1);
& H8 m8 g6 k0 r* r6 e" ]" a       
$ p7 _# |3 s, L( E$ v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 ^3 w( u( d. e% o" H0 [9 X) Q                when 16 then
                        print"yes";
                when 32 then
) w) W% s0 w6 [( L. S1 |' R6 \                        print"no";
                else
                        print"cancel";
                end;
) ^2 n& P/ x0 ~  v7 o3 Y                eventcontroller.stop;
3 |4 x4 Y; L' |  u" `        end;
  P# H# S" G) }4 N4 q6 m3 P* L$ g       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 {" A# M) V7 o' q3 m, V0 s7 f6 j        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* G4 ~- Z1 N$ G( E                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ G& {9 v# p' M& |        if existsobject(bufname) then
# s; q2 F5 r9 h: O" J  f                buf:=str_to_obj(bufname);
                buf.deleteobject;
( ]& p& A) e4 a1 n) [        end;
; Z4 h. I" y0 v8 X# E2 }        next;
       
8 Z# z# W" _! a$ Y        dx:=0;
# P! D7 x( }6 X, k" A8 E        dy:=0;
        for i:=1 to number_of_machine loop
9 v$ }2 J* _& N: j6 ]  L* I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: P" Y; f+ M3 I/ J- _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" k- \6 l; O1 ]% R2 e7 K                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 g1 H; O- o  {; Q                        and activityspace[1,rows]<(1.05*y_max) then
. g: j# }* r+ M% q. Z2 m. T5 c                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" B' d2 ?! {1 o- h; p* p                        activityspace[2,rows]:=activityspace[1,rows];
; l' J$ ]+ B; h3 Z" u6 a                        activityspace[1,rows]:=ct;
2 l% B  r3 F" @$ }) L( j4 B                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
" ^" h2 N, }$ E8 {* B) o                        --end;
                end;
2 j  b1 H+ P; Z5 ?# {, a3 H1 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! Q1 I' s2 p( r' J/ S1 E$ P2 z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- d/ q4 a6 T3 e6 J4 V: S            if activityspace[2,rows]>dy then
. ~. v) [, k1 x' C( I                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: E2 O4 G9 u3 F' I. x                /*if mark=true then
: a9 h9 _9 p/ k" K& ~) q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' x# m7 K, |1 j0 `6 N* q. e7 h% R                        activityspace[1,rows]:=ct;
, p4 q" D, z* o. k8 p& l                        end;*/
4 W. W0 @+ _, B9 f) \  ?        next;
* e) Y* q0 W4 \; O2 n        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;
: t5 a- h! t( c& m7 e+ @+ s        lines:=0;
        for i:=1 to number_of_machine loop
0 T7 A1 x5 O$ R2 j7 m1 [* D                for j:=1 to number_of_machine loop
                        if j=i then
; T, z' @9 ~- x  y) E6 ^7 K0 p: Y$ K                                d_from_to_chart[j,i]:=0;
                        else
/ N8 A$ s) l' k# U) R6 `                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 P9 O1 A9 d) @, s3 T                                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);
  @) t+ `0 X. ^  s0 x# a                        end;
                next;
8 d0 |- n6 f/ T- u        next;
7 w% h. W! u5 [" A' o; L5 q! V       
" s2 P( V; u! }( V' ?        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 {* ]" o1 T5 |/ }1 N                machinesequence[2,i]:=rows;
6 G" Y; z  X, P                for j:=1 to number_of_machine loop
( C  K9 U/ M+ q# E, ]* v5 M5 v& t                        if w_from_to_chart[j,rows]>0 then
; M0 W6 f0 U, `+ E: p; x, U( _                        lines:=lines+1;
; Y. F4 |3 P% K2 D/ l, N) z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; }6 y; y- n7 b( t% }- D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
! I6 J4 m6 _! d  N" ^, j' l: T4 v        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]);
        machine.name:=machinename;标识符未知
/ L% e$ r9 l! [6 q5 ^3 c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- P$ p8 Y5 K. a  c+ q       
& g: c  Z3 O" x7 S- y$ A, z        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
& H: Q% q' x  ^6 H, r2 ]        buf.proctime:=0;
7 h2 p4 l) Q: g4 S$ J; x        .materialflow.connector.connect(buf,machine);
       
" A1 a5 d0 w8 M  u( R! a' E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" s0 g' g% m# A1 D% q  P. a' `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. A6 |' j% D; f0 ]  ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& r# ?: e/ W) ]/ l; }" U! Z/ Tend;