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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. r* v$ `8 r% t0 y' T    i,j,rows,lines:integer;
    machinename,bufname:string;
- x+ n$ J3 ?5 ]; Q, @" D6 \    machine,buf:object;
8 ~; [) a, l9 X! S( I. m3 c% {3 pdo
% z& U9 X& e5 K* t- Z0 g( h        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! p! m# {; t' Q" U" v0 F                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
# q- m: y+ }2 g                        print"yes";
# N; u/ a9 a. ^6 F                when 32 then
0 U6 ^! R" b8 j                        print"no";
2 e: G8 q) r# _* O0 ~2 M" I# f7 K                else
; i. N( P8 M7 g! s                        print"cancel";
/ L  M$ z+ Y( U- z0 h% k                end;
                eventcontroller.stop;
        end;
# x- Y5 j9 c3 l* T  p       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" P. l/ W- D, u6 n; j- Q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 m5 D3 m5 `5 i( m1 h) j1 d/ z8 R                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 _" M9 [3 B  a% Z+ ?                buf.deleteobject;
# P" Q, F/ E/ n9 l2 U  j* W        end;
        next;
- @# s6 t: P% @7 K3 ^- ~: K       
        dx:=0;
! [, ~6 y) ~" C7 [; V$ i        dy:=0;
+ L/ a$ m8 `' f9 S- E, F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# b1 E$ I1 V8 o: Z9 g                --mark:=false;
6 q4 a4 k2 q! E- y+ C+ A$ T( J: ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' X- u  U6 l2 x  n" \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. d9 m+ g9 o; c! g; C                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 H5 c# K/ W# S$ c% t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: m( P! ]/ `' W1 S, p                        activityspace[1,rows]:=ct;
( h+ u" x  F% y7 d, |. E' ?" ]& |                        mark:=true;
                        else*/
+ M5 u- \0 D, T5 h% b! _                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
1 Z9 U9 e8 ~( Z% w' s. d: H                end;
) M% P! j3 y# x$ g1 ^                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;
' l4 H0 P  [. \9 B& ^: I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
% ?( ?. \9 K" t6 s- N% u) e                end;
) n; q4 J% J6 _3 H) g' ?                dx:=dx+activityspace[1,rows];
4 Z" A) c; q1 d                /*if mark=true then
2 i9 g* }4 t& p+ p; M( }                ct:=activityspace[2,rows];
) ?* K1 e" a8 V- D" K% m+ v                        activityspace[2,rows]:=activityspace[1,rows];
' a, G; @) x# f$ W' L                        activityspace[1,rows]:=ct;
                        end;*/
! s8 @7 T) m' U* S& \( \7 a        next;
/ a0 f0 [( D% L: Q( N, \' O# C0 f        y_max:=y_max+dy;
1 h5 M! u4 n8 D8 \+ L        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);
# N. h& r3 {3 U+ q" w3 o        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);
       
2 X- T' d) O  h6 Y: B$ X        rows:=0;
+ u% s# @! ~! T% g! U) B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  U( m; x+ O4 ?! w0 O8 t, s                        if j=i then
                                d_from_to_chart[j,i]:=0;
  u3 y( w9 A+ L3 `- s                        else
, n% M( M# c  `9 S+ r9 E7 l4 N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( D* @) A1 o4 s- h                                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);
                        end;
                next;
. l' {) [* I1 [        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
3 B. [1 M* R$ q2 N1 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- Y+ ?6 _, G5 c9 N, d                machinesequence[2,i]:=rows;
0 d- v/ t- ^0 ^$ f4 c' S" y: V                for j:=1 to number_of_machine loop
8 D* K& r! u, v& D/ Z3 q                        if w_from_to_chart[j,rows]>0 then
; s# E; {  I( D2 q                        lines:=lines+1;
" ~( ]' o( x( u                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' m. m1 q# }5 Q2 b0 J; o                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 s6 i3 a) D* m. P# v! R                end;
* {2 d  k7 x8 o        next;
        machinename:=sprint("M",rows);
; W" n) C) t% y$ l5 w' ]        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]);
1 K  z, A- C" F" p* ^6 g7 s        machine.name:=machinename;标识符未知
- L; _) m, [8 |( `. R        machine.proctime:=5;
* M) N# W# z3 N        machine.label:=activityspace[0,rows];
; ~6 L- w3 A- r! W/ M& P        machine.exitctrl:=ref(leave);
  [5 s3 q. B1 V       
) Y( c$ l: B! K& ^% ^, t        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;
        .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;
end;