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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 U. Z' u; q3 `5 R0 L    i,j,rows,lines:integer;
    machinename,bufname:string;
2 M! a4 s' o) ~( r    machine,buf:object;
. B' Q+ c# P/ f  udo
; |- b1 m% ^' D! M$ [- ]% `" {" U        current.eraselayer(1);
! G- L" J/ F% z" [& B       
% c$ D3 R7 Y2 M* N8 B) [2 U  C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 K5 Z0 m7 _7 n5 W                when 16 then
4 |( e: \2 l  g1 o                        print"yes";
0 R) c' S. }! x3 H4 Y6 m& Y                when 32 then
                        print"no";
% y& G- o; y+ \) U! w9 c                else
                        print"cancel";
. D# G9 R9 ~; Y- r# m" }( A$ `+ D                end;
6 [; c/ O# n( }, {+ g: i# i; u                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
2 n, S" W0 H/ j# O- @: l% K        machinename:=sprint("M",i);
        if existsobject(machinename) then
( P. r2 s& }# s& I, k" J                machine:=str_to_obj(machinename);
" d% M/ A1 m) n, q& |                machine.deleteobject;
        end;
# y2 ^  w3 K8 a. R2 s& I0 \        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 h: E* _! K, E/ z( Y" ~3 I                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 B; x( c0 M  \7 }        end;
) F0 O3 ?0 U, Q        next;
& ~& Z7 ?5 t0 E0 ~       
        dx:=0;
5 ^' ~1 n! D  p0 ^        dy:=0;
: {4 ]/ X) d4 Y. u) s0 ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 x. f5 T7 q/ G, M) g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 D3 z5 h( r9 b) R) V! d! c3 \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' r" ^8 Z: o. \7 m- \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& P/ B( T9 L* z                        activityspace[2,rows]:=activityspace[1,rows];
( \$ _( {; |; K. O6 d4 m' a                        activityspace[1,rows]:=ct;
7 j& o1 ^( B2 L, g- h                        mark:=true;
                        else*/
8 o9 r2 E! X' Q1 U& h6 e, g                        y_max:=y_max+dy;
                        dx:=0;
% Q1 l- f3 ?: @7 ]# F% o0 Y                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;
            if activityspace[2,rows]>dy then
* |4 c; l( |, p5 Y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
( H% Z. X# e+ j- Z# d; O9 ^                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  m! H, t7 N' V- r: o4 Y3 p# ~' I7 a                        activityspace[1,rows]:=ct;
$ x$ G3 Y0 H1 h9 }$ e                        end;*/
+ Q5 D9 n3 M- {* Z- q6 ]- f        next;
% n( P& T7 \0 g% k        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);
: c: u" B* j/ i        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ I" h/ B; I9 Q+ d( Z! [; B4 Y2 d                        if j=i then
                                d_from_to_chart[j,i]:=0;
& F5 w  a+ J& }8 y                        else
' d$ g! ]0 f1 y+ \" a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ W: x1 t9 }- I                                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;
        next;
+ @$ [9 A" V/ ~) K" M5 m       
        lines:=0;
& w9 Q- B6 E7 W9 p; A% [( N        partstable.delete;
" c% G9 t& u0 t       
. Y' ?& O1 l' z1 k+ g2 h0 w        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' S$ ~4 {( m9 j/ h2 p" T2 l                        partstable[3,lines]:=sprint("parts");
, g3 ?/ W- ]/ S; q0 v0 R                        partstable[5,lines]:=rows;
# k) W0 o9 \2 D- h                        partstable[6,lines]:=j;
. ?% D0 K9 [2 w: v* G3 q( o) i                end;
2 D  x( v5 u& x! V% N  m% z        next;
2 x, U  D6 l$ F+ \" m        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]);
- n5 n' W% ?) ^7 H  J- ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
4 e+ m* F# R/ q+ J/ K' Y4 k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  I+ `) _5 X1 `1 h( E- h6 m, L. }  ~       
7 J! M; I/ e, K) Y, m. ~  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;
  a( H" A  O. z5 k        buf.capacity:=5000;
& n" J* o& r+ w  h! x        buf.proctime:=0;
: F8 o& ^& d# e7 ^- {! K8 g; j. L        .materialflow.connector.connect(buf,machine);
       
! n( T+ y4 X9 L9 a6 u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 a2 ]0 Q1 X! V! A* L$ ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 C: f' K* R; C/ x0 H- u& ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
4 t" i' G2 Q( u! mnext;
end;