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

zooey

is
) `( s& t( n( b' T+ D" u- P" h: A        mark:boolean;
, a1 y3 n) W0 b, v3 [: F! H% V        dx,dy,ct:real;
6 T+ _8 n% Y9 w+ V    i,j,rows,lines:integer;
" b2 B& |  L2 a6 Z! e    machinename,bufname:string;
    machine,buf:object;
do
( x! L1 |5 N% I% r% {$ Z3 h        current.eraselayer(1);
/ u6 J# A# m! w  z% P9 n       
- _# \3 R/ J" J1 D2 I: M# l; o        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";
4 S; ^/ t- H* o7 N* i                when 32 then
' U( Q1 _5 H7 f                        print"no";
' P' }' `# }1 D1 O- J                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
' V4 Z5 N+ F: m" W# O- b" y) I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' E- N5 S; W8 V5 z' D        if existsobject(machinename) then
" I# f7 ]5 s3 a& Z                machine:=str_to_obj(machinename);
; N, V! o& ~0 x" A                machine.deleteobject;
        end;
& E. \; z" Q& v+ n        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 Z& J) e5 C0 p                buf.deleteobject;
' }" U4 q2 E0 {2 f        end;
! L) D7 f, E% W$ _8 K5 w+ u( b8 N- r        next;
) J8 c1 \% f# |       
7 N# S4 y  V0 T* b  Z* G5 I9 ]        dx:=0;
1 [: B! n: k3 c1 R        dy:=0;
/ p4 G% p! p- }; p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 [! p8 u; z# O. K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 S/ |% m3 r3 o! V& x& c! Z                then
$ G" S9 X$ M0 [8 O2 q5 X2 e4 r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' W& e8 J1 h2 r( \( Y8 r9 {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 p$ V) K* S, }                        ct:=activityspace[2,rows];
& y* p! T' x6 ?( M9 N8 J                        activityspace[2,rows]:=activityspace[1,rows];
1 g( v/ F: ]" \, _0 q; L                        activityspace[1,rows]:=ct;
! t5 o% @, J9 C0 ^$ C' `                        mark:=true;
. d# a! R9 X2 S$ R7 h0 J                        else*/
                        y_max:=y_max+dy;
! M) a$ r8 o% |  b                        dx:=0;
                dy:=0;
                        --end;
                end;
' h; e& Z& c1 \, c' w1 t4 x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ P! c& O: C" K9 m' H0 H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 D0 ^! O* b, Y/ E+ Q" e                        dy:=activityspace[2,rows];
                end;
: s, Q$ |8 h- b                dx:=dx+activityspace[1,rows];
* S" L" w/ i3 _! r$ }2 N                /*if mark=true then
4 b/ ]& @2 O. f. U                ct:=activityspace[2,rows];
% j9 E: y5 X  d% y; _; t! g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% i$ J0 u( s5 I8 K$ p) e( g: `( F                        end;*/
        next;
) L9 n. H* K0 Q, 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);
: t8 @0 j, {' X$ b        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);
       
* B! b0 ]5 [  \4 G# V( ^        rows:=0;
        lines:=0;
4 Q" ]: N+ K7 o8 R5 `        for i:=1 to number_of_machine loop
6 i/ d+ a3 h4 b4 k5 U; \* t; Z                for j:=1 to number_of_machine loop
) |- d: S% I# h                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 y5 s/ a  u& i8 ?                        else
  b4 B1 q: r0 E. A* \% F                                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];
4 @) @7 y8 Z$ n9 N& s$ s3 f+ w) q                                d_from_to_chart[j,i]:=abs(dx-dy);
: d. {0 _2 ~2 |- U( n                        end;
                next;
0 j7 n, D2 `8 w$ X1 r        next;
. S* N2 t9 ]: ]+ ~+ T       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 v- h+ h) _* W                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 ^7 v: o% C& M, y; Y( N                        if w_from_to_chart[j,rows]>0 then
+ D8 K5 |1 Z* w: J1 L                        lines:=lines+1;
5 u$ y2 s  K' t3 @, E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 M# q1 S0 O% d) a4 Q9 Q( `; P                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
: m9 J1 A: [4 r; R2 j) s5 j        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;标识符未知
4 }2 c; a+ S' N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ t! k  ~+ p. J6 w/ n" D        machine.exitctrl:=ref(leave);
% H( E. x! v" z4 U; `       
. l& M; A' n6 U/ `4 x# R& C        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;
        buf.proctime:=0;
& h/ a3 x. M+ X- |( l" ~# Y5 u- r        .materialflow.connector.connect(buf,machine);
       
6 [+ M1 N0 x% R+ _- |        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 e# Q' p8 Y! }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! |% V  H5 J6 q5 E3 T: Acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! p& X1 a% y9 d) X, P' Cend;