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

zooey

is
        mark:boolean;
- \' M, q0 ]6 u! E5 f/ `9 {        dx,dy,ct:real;
, ~  B, F/ B1 {2 h# a4 O    i,j,rows,lines:integer;
" f# P! @7 Q7 ?+ l    machinename,bufname:string;
9 M1 v- Q9 c' W" ?    machine,buf:object;
do
        current.eraselayer(1);
" \0 @' m9 a2 @4 h- q       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ Z4 v( B5 @. {                inspect messagebox("设施数目不对！请核查...,",50,13)
$ i( R! H$ S6 V2 _* b* H) W                when 16 then
                        print"yes";
3 U/ S" \; }% N  p# C                when 32 then
& x( [2 S. D- w1 E  c9 @/ b$ X                        print"no";
5 v2 a0 _. W) `% Q/ ]                else
( b( b: d8 `) d- d% Q' ^+ w                        print"cancel";
                end;
, a' y" l! \5 ]4 B8 b% b" @- w7 p) T                eventcontroller.stop;
$ o+ d! G; L  J5 Q        end;
$ L# [3 q# v0 Z0 s8 T0 m       
6 {5 {8 H) W; V' Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 ^0 C. p) `4 |$ A! P( a7 k                machine.deleteobject;
! d' Q$ c0 v5 G( `5 j! W) Z0 r        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
' m; T3 u0 P3 T% O+ m+ m$ Q! ?        end;
        next;
0 \% P) ^7 y5 W) q& ~& S" j       
        dx:=0;
        dy:=0;
8 ]+ }9 [* J0 f& Y: @; o6 u9 R        for i:=1 to number_of_machine loop
& k, r2 R% M4 K6 J) t: b$ X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( T4 B7 v$ `  M  U) K3 e. k/ y8 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ p6 k, F: L- u# @/ T, [                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! ]$ ?$ A' t. @7 K                        and activityspace[1,rows]<(1.05*y_max) then
9 D; \! l+ N: n. A2 G! N                        print activityspace[1,rows],",",activityspace[2,rows];
: `/ q7 l+ n" s                        ct:=activityspace[2,rows];
! V: o" _1 I/ ]- I                        activityspace[2,rows]:=activityspace[1,rows];
: C6 R: V# h4 `, W' v3 Y8 x. M                        activityspace[1,rows]:=ct;
                        mark:=true;
4 A' T, ~/ r4 y" F2 F% U5 m                        else*/
# s/ c; @4 v+ g4 I  z                        y_max:=y_max+dy;
. L3 [/ F3 P, @2 ]  ~& u# {  w: u# R$ a, x                        dx:=0;
                dy:=0;
                        --end;
: a1 p, ~" O* S% x                end;
. n" l1 g& ]: D5 m                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ C5 C) M6 Z, y2 v+ h                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  i8 [; ?1 x  S- g% Y" `            if activityspace[2,rows]>dy then
. \: ^6 K- b* |5 }% ~& E0 c/ w; F                        dy:=activityspace[2,rows];
                end;
  t% }7 T1 v7 ]( Y1 Z& z9 L                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
9 n) t2 c  z- G* K# v" l/ U/ n                        activityspace[2,rows]:=activityspace[1,rows];
: ]5 U/ f+ _& i8 I1 _% Y# O" Y                        activityspace[1,rows]:=ct;
! H5 m* g* O: }3 t6 X                        end;*/
% Y$ A' _3 o9 S( C9 U        next;
        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);
. Y: ]. w$ n# d& }2 \$ k0 q- H        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);
' n/ ?+ b/ L* J2 D3 _  \2 w       
        rows:=0;
        lines:=0;
6 s; F7 ~# S3 U  i/ O3 S7 f! s  L        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' T- k, Q1 E! ^                        if j=i then
6 c7 q5 v! T9 M9 t, ]/ z                                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];
& `2 x0 W+ ~- v1 C0 Z1 e                                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, y( T( A" ?2 s# J                        end;
4 B+ d- s* y) y2 D& f7 Y6 N                next;
# I" f: _. V# d: c. P        next;
       
7 K9 v0 W( V* f4 t        lines:=0;
9 _3 D' C1 W+ T& a! x/ e        partstable.delete;
$ m: m* b. D) f9 n       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 E6 a9 j7 ]7 h                for j:=1 to number_of_machine loop
/ v# G" Q# p7 D- S9 u( a5 j" k+ r8 H                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 a% b/ Q0 {; n4 P+ j                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 S1 g2 Z+ T2 s& l  N' j# y# i                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
$ X9 T& v# y' O) z" j2 u6 b        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;标识符未知
# B$ \0 ?( O  t, q" b* _  G! F        machine.proctime:=5;
6 T# G; z; n" P- B, W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
# E9 h( ~0 g( o2 f8 f7 X3 V: V: 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]);
# `5 P1 A  ^7 j( n        buf.name:=bufname;
        buf.capacity:=5000;
: N4 L$ w  d/ Q6 E5 K/ k- ~        buf.proctime:=0;
3 L& b* j  L* z& C5 \% q        .materialflow.connector.connect(buf,machine);
       
        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;
; R3 S7 o3 S8 C! F% ^current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! e7 V( Q7 B5 L- g1 l; {end;