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

zooey

is
3 Z0 v+ z, `8 e$ g9 I1 ?        mark:boolean;
$ @7 F; o* [* }; `        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
5 p. y5 g2 _" z/ k! F    machine,buf:object;
1 _% f4 m4 p  X6 @do
        current.eraselayer(1);
( u$ H3 {9 j$ m  r" V       
+ U& a9 x7 Z$ U/ N# O3 q4 Z* 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
                        print"yes";
                when 32 then
. r! f, w# J/ c                        print"no";
% \5 O& D$ P/ f% C5 m' J6 W4 y  e                else
+ m+ ~. x+ k/ m                        print"cancel";
; u  S! W) `4 @* Z                end;
                eventcontroller.stop;
4 ]$ b6 A' K4 ~. A$ }# A: W        end;
       
2 W: j( X; y& s  A        for i:=1 to number_of_machine loop
" l1 a8 B- I" V; y8 ?4 z        machinename:=sprint("M",i);
/ L! i% q6 `/ }1 J        if existsobject(machinename) then
+ _' Z0 I; m; U$ v% M9 J5 L0 g                machine:=str_to_obj(machinename);
7 ?1 z( g0 e' B' ~) v                machine.deleteobject;
! a& U4 i1 d& j! ^# e! k9 G* r        end;
! S3 G5 i+ A1 P; i3 P- l# a        bufname:=sprint("BF",i);
# n4 g) H( N. X! T        if existsobject(bufname) then
5 {3 _8 y- ^+ s                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ @4 {$ `" {" K1 k        end;
# q: E+ X: s! w* b* \- T; a        next;
! s' V& K) f; V* _3 X       
% h0 v. [- d+ E- N; ]% c% k/ n3 d( q        dx:=0;
- K* o6 V1 g7 p! w        dy:=0;
- t& H' s2 w4 e( r/ r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  Y  Y/ U. ~1 Z: G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: [$ j: c7 C+ o0 c2 }. x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! G2 x5 R9 E* Z' P7 W0 T. ^3 ~" D                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 P8 B- i% ?6 s; U/ S  y2 x                        activityspace[1,rows]:=ct;
2 ^4 \. s! @4 m+ H& e+ E# [5 I                        mark:=true;
/ J( e# d+ [5 c2 W6 d9 L' v                        else*/
                        y_max:=y_max+dy;
4 [% H) v0 A/ D' j) P" C# h                        dx:=0;
                dy:=0;
% f) ]0 W8 J# @                        --end;
% D% M! d2 {" V                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;
3 x: F! `' S& E0 F6 N" a9 n! i            if activityspace[2,rows]>dy then
  f) \- r. A7 w8 l                        dy:=activityspace[2,rows];
$ \# A5 |, M. d+ e) d2 T1 |) P                end;
                dx:=dx+activityspace[1,rows];
- u5 z% q9 [- z$ |: Q7 _2 z                /*if mark=true then
                ct:=activityspace[2,rows];
4 E& D9 K$ Y9 M                        activityspace[2,rows]:=activityspace[1,rows];
+ X9 ]" [5 D3 V8 G. T7 S                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ G/ V& I" j9 N+ I* i( e6 B/ c        y_max:=y_max+dy;
- a+ k# {( }7 N" J        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);
6 I! E4 d" ]7 y9 H! D# o, M1 a        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);
9 `( c/ X+ P% O" ]$ i       
9 U. _# n6 J( @        rows:=0;
* a5 c$ u: d, L0 s- _: q* J' p, I        lines:=0;
0 X4 l2 x; X# c# ?- U2 T8 ?5 V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! h* a- T# @9 J  p+ P1 B) [4 ?! w                        if j=i then
% l0 n: I, u/ F% o: D" @" G& X                                d_from_to_chart[j,i]:=0;
3 ]8 _8 l; N9 M+ F                        else
, v! R1 S# P1 j. y. J# j                                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];
+ L' w1 e: S, h7 o/ [  J/ @                                d_from_to_chart[j,i]:=abs(dx-dy);
% W$ m3 |; Q1 K- k                        end;
                next;
        next;
       
# t7 k! y) U, P7 Z( [0 O        lines:=0;
8 Y" ~* w, t3 x! u        partstable.delete;
; g, ]- M, Y) G5 z       
        for i:=1 to number_of_machine loop
8 D# v! }0 U- z# R2 ?; U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 m2 r8 D% i8 a+ M( w8 R                machinesequence[2,i]:=rows;
" ]0 F( n+ V& F8 j% [1 {                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- k! k2 _. s& c4 a1 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  K/ z/ ^& ]5 O' s) k9 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
. y: l4 `9 A, q; o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 M" ^3 G% o4 J" q                        partstable[6,lines]:=j;
                end;
1 b" _4 c( j! ?% h# `% f        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]);
' @0 c+ k  H( y( m: e        machine.name:=machinename;标识符未知
- [( ?- F. \: w! n+ c        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. I4 c0 ]( @! _( i        machine.exitctrl:=ref(leave);
7 \# G- ^! l# A! J$ \: N       
        bufname:=sprint("BF",rows);
" U/ }% O! R; d  Z2 P  c2 Q        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]);
! m5 H4 n$ k* g/ t" k: H4 U: o        buf.name:=bufname;
        buf.capacity:=5000;
" M5 e, H- O9 _" H$ I        buf.proctime:=0;
; }5 {. @8 h  K3 M1 J9 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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! @8 k8 H3 R6 f) }5 G9 Xend;