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

zooey

is
        mark:boolean;
  q+ w( ]/ L: D7 c# p        dx,dy,ct:real;
$ U! i. y1 z/ F7 ]) Y( I* V5 \    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
5 s! {/ Y5 }1 t! s  X; J- ~$ `% d       
        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
7 m" u% W9 |8 q# u3 p, C                        print"yes";
- S5 X8 E& b1 _( ?                when 32 then
                        print"no";
5 G4 r+ S* W) g& I! Z: P) y4 F                else
                        print"cancel";
                end;
                eventcontroller.stop;
4 l1 p, k7 {$ Z2 n  q        end;
       
! g; Q5 u: f4 j+ U        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# e9 H7 s2 W8 K5 m6 L) m        if existsobject(machinename) then
9 S# x4 L' {' w5 o                machine:=str_to_obj(machinename);
& j# G8 ^- `+ w9 `0 N4 S                machine.deleteobject;
) }9 `9 k: ]% L        end;
) O7 i5 Q( e, s' Y4 G/ s5 H7 `/ r' L) D        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 `8 B4 f; f1 F. _( R" N# x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 a4 \  I. i5 p& \. _        next;
- J; K* x, ^  a# `& p7 J       
0 v8 Z% q: z9 J% R: `4 ^1 @( g) k        dx:=0;
' B/ U. I/ R, |" V: U9 K* S        dy:=0;
1 y0 H7 g9 X6 Y, e1 u3 c        for i:=1 to number_of_machine loop
; `/ g+ k# k4 _: b4 }# M: \+ t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 f2 @" l6 h7 Y/ g( S4 a, `                        and activityspace[1,rows]<(1.05*y_max) then
) R* R8 v" W; {9 w2 S4 `                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 Z2 |) v( r' ^* U7 o                        activityspace[1,rows]:=ct;
                        mark:=true;
0 Z4 I* B% U4 \. i3 E                        else*/
0 Z+ t* @/ x: j$ b" [% o1 C- V+ Z                        y_max:=y_max+dy;
! h) k5 z3 g  |+ P                        dx:=0;
                dy:=0;
                        --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;
- Y. s$ c: |1 |) ~. ~            if activityspace[2,rows]>dy then
  S  p  ?# t/ W' d! [% w* F                        dy:=activityspace[2,rows];
# {  g9 q% B0 \# D8 E! T                end;
: }+ p; T* p( p5 l: E7 j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 {& M2 h+ l6 A0 [, p* o                ct:=activityspace[2,rows];
$ ^" @' M+ Y1 K3 r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 m: x/ [5 P  K* \% W0 D                        end;*/
" G# k( k" T1 e8 }0 L        next;
( T% F! {- B& x$ v5 a        y_max:=y_max+dy;
0 _* [& |7 r1 C        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);
( h; P# \0 e* j4 w6 [0 y/ h) P$ G        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);
       
% k8 \% M7 L# M. I2 `; A, ^; q        rows:=0;
/ C4 O7 [4 N: g& v" \7 m8 T        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 L, R+ W0 T9 W$ A9 }5 R2 _1 q                        if j=i then
2 y$ B; I& Z, t5 |1 d                                d_from_to_chart[j,i]:=0;
: B0 w% x2 k& c! V4 v4 S                        else
                                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];
1 q, [+ v) O8 }7 m* s. ]) X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
% m1 d4 q; [5 ~; e/ E+ n2 F        next;
, d% V* M9 S. r: h/ X1 `4 n       
        lines:=0;
        partstable.delete;
       
2 l* N; K" g: Q1 |4 ?, M/ Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; C7 d7 h( e5 ~                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; Y. p  N/ k; y6 }0 ~! G" P                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, ^" l: u( e" W                        partstable[5,lines]:=rows;
* A7 |% W5 r+ n4 ?                        partstable[6,lines]:=j;
. K5 V% @" G' p7 E% T/ P2 c% ^% v                end;
        next;
        machinename:=sprint("M",rows);
# M, R  x# c: s& L        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]);
$ j5 w. J2 E% C" W, R        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  ~6 _* c3 D$ u+ B7 U# e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
* q) B' k: @/ x3 o) @8 G  ?% v        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;
8 e8 F. j$ n- Y. ~) f/ _5 [/ u5 Q9 w/ D. ]        buf.capacity:=5000;
        buf.proctime:=0;
2 ~( A0 ?: n$ K7 O        .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;
& j' K" n; x6 w* n' D2 J" [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, m& L$ P5 t( qnext;
& y' R/ A  q4 h$ s/ Q; v5 ?1 u& N. o* Yend;