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

zooey

is
& v3 A9 B+ [  }2 r) I# J- c        mark:boolean;
; j4 ~# e+ g* j+ A7 A& z/ E        dx,dy,ct:real;
9 @. P8 a1 x  b  @; F    i,j,rows,lines:integer;
    machinename,bufname:string;
7 P8 G4 a/ e3 I: i    machine,buf:object;
) z2 j( s( p( Ado
: k% g+ w* D" {# C        current.eraselayer(1);
       
' ~2 F* A  z: c6 Y9 D& Z8 b        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
0 F/ Y9 A1 J3 r+ ^                        print"yes";
( d' c" q7 [! m4 c3 b9 A                when 32 then
1 c% e% Y1 u5 x. ]3 {& o. b                        print"no";
2 m" f* K& Q4 |, P                else
                        print"cancel";
6 c" }7 O$ o+ C1 t                end;
) Q, K2 _8 Z3 @6 B. j8 C$ @2 t6 I                eventcontroller.stop;
3 K; Y7 _" u5 a$ a        end;
1 Y( q# y6 c* Z       
        for i:=1 to number_of_machine loop
& V- M5 q2 ?0 d$ s        machinename:=sprint("M",i);
        if existsobject(machinename) then
, ]4 r" `8 n/ O" ~! i4 m9 k                machine:=str_to_obj(machinename);
2 w8 M" g. F7 P2 u: o" c$ _                machine.deleteobject;
# O4 Z; g7 c. q7 i        end;
* Q: g3 U8 P6 F! U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 ^, e# F% E8 y( {' n+ P1 e. [                buf.deleteobject;
! b! N; r8 ^1 b1 n* J7 k        end;
8 E9 y2 @* C. J6 q# [9 U        next;
       
; R$ S& d6 i/ \" }        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
5 F4 _" G  F/ j) `2 ^& d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 Q5 A% ~: P- l. U7 _$ f                --mark:=false;
0 F- N) w7 `5 J1 d; f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& W5 d5 R; e, }% B" V. P+ {. L+ r                then
+ H% I/ T1 l/ ?0 a: ~1 {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ h; C1 M" g1 L; W) r0 Q* Q- |: h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) w9 n) ?+ W; L0 m+ z. P4 k                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 Y9 \' g8 ]9 V8 \+ L( ]9 f                        mark:=true;
                        else*/
! \- `  f; q; |6 P$ T3 C, p" X                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
: a& [8 P5 b; @" v                        --end;
                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;
) \9 r& G+ s' Z! h+ B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* w% S! i6 h9 a0 A- F- a                end;
2 J' [! ]2 B0 g                dx:=dx+activityspace[1,rows];
                /*if mark=true then
' F, ~- x, S  V                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" h- h/ N/ ?% V. c                        activityspace[1,rows]:=ct;
                        end;*/
% x4 x' Z5 J" S' n) J' f  N        next;
" Q  X* H- r$ O6 q) M+ U- j# E' z% ]        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);
/ E. S. L" f) n% Y        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 Z9 F% k6 H  l6 B/ v       
8 Q7 Z  Y% T+ n/ ~6 Z, \/ `: }        rows:=0;
0 F3 Q6 N8 m9 k2 g7 F        lines:=0;
        for i:=1 to number_of_machine loop
0 N, y' B, G" ~/ g                for j:=1 to number_of_machine loop
. Y/ s* G' N; A7 J+ N' L1 ]/ M                        if j=i then
& E8 b7 _  s1 M: c; h6 U                                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];
( `$ g5 }: D! n& t& C3 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 C- `" W# t9 z, @* ?/ P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# b) M9 E1 O- U6 x! {$ h                next;
9 A  }7 x/ \$ C; F: z        next;
. E# `2 X  S+ m# h+ p7 g6 N       
        lines:=0;
        partstable.delete;
       
+ N" P9 u5 o5 R, O6 o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; |# i$ \9 v/ z- {                machinesequence[2,i]:=rows;
8 [, Y  z0 W7 F' @                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, S* z0 W+ l. v5 y2 U8 n" V4 m                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 o: d0 ^2 I3 ^) h8 I, }7 D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' H% z7 E) r: r                        partstable[5,lines]:=rows;
6 [& y: q% x+ m: z                        partstable[6,lines]:=j;
0 n0 }* v" }; {7 u. q                end;
$ h+ v0 r% a9 `* I# n, W6 p' U        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;标识符未知
        machine.proctime:=5;
2 J* u- m: R4 V# R8 G1 m        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ f5 h4 d/ U* D+ I# s% ^4 |3 I       
9 w# C, c& O2 [4 ?9 s        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;
% e3 y4 g9 t- i        buf.capacity:=5000;
) N/ N  J) |5 H0 Y  m9 ]% Q: [7 C        buf.proctime:=0;
! Q9 X  P. d" ?' S! I9 J" h! t        .materialflow.connector.connect(buf,machine);
       
- v% b" P* b' \/ E        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) G& Q$ d" K) enext;
end;
6 K6 K) b1 c1 t0 S  W