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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 G: f' T& s) m  e! m+ J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
. v6 m1 ?; p  W                when 32 then
, z  w9 R+ u! J7 N  R' k4 ]                        print"no";
8 e1 z$ j8 V6 \7 ?, i: A                else
                        print"cancel";
* O: i( i% B2 b' ?3 u: }* u                end;
                eventcontroller.stop;
" e9 e5 E& `6 F& s9 {3 U$ t        end;
+ J' ^" e0 q" g7 j) U6 I       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ g) T5 D/ r5 Y) o. I- K) @9 S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
+ l5 ~" x9 y. H3 N( j5 A7 ~                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. M1 ]: \2 B+ y                buf.deleteobject;
2 w( V" O* n" Q8 y        end;
        next;
3 j5 g# r* ^- T2 X       
  s" Y7 l0 w& \" d; N' i        dx:=0;
% F4 M" ~7 `# x! Q8 G  m        dy:=0;
! ]% r( x5 U1 \& |, W" z2 o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. D8 r8 [; y. G( |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; X* U# u! T  w5 ]3 J" V& e                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# S( s+ ^) d) D( G& c                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
/ b' A* s+ d- L4 X' g2 J                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" a) D  ~3 A6 q2 Z/ G' R0 Z' Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 H& e$ S5 q4 T3 x: T! ^            if activityspace[2,rows]>dy then
. [: r, y$ @) x, Y3 B9 n                        dy:=activityspace[2,rows];
! \; f  n  v& Y                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& o, r( M9 T% q% ~' N- B! a" g                ct:=activityspace[2,rows];
" D; l1 Z: ~4 p% ^                        activityspace[2,rows]:=activityspace[1,rows];
% v5 \2 y7 n3 \& x! g$ N                        activityspace[1,rows]:=ct;
, B4 r1 f* v! V. Z$ J6 R2 h5 D2 O0 v                        end;*/
5 b/ g( Y: F, Y        next;
        y_max:=y_max+dy;
% s) Y1 Q) j) m& Q1 y" v/ `        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);
        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;
' n% i1 V( v6 `        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 M4 R/ Q: n: n                        else
. |0 s6 A4 J0 _& v" N/ B  x5 e- ]; p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. i4 O' V8 t2 K0 P1 ^# W5 `                                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;
! s) w+ K8 W' `9 H) m$ Z       
: {+ \- {% V1 S* O        lines:=0;
5 ^8 x( u7 D0 M( A  ?0 T2 g        partstable.delete;
8 M% w1 d' h! R( W       
        for i:=1 to number_of_machine loop
+ q: a" O# H. J; w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 F1 y' A- V$ V; E# b2 S0 U                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' c. R9 w, m/ ^/ X5 I. Z" O& z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 U  F+ v$ o2 q5 a$ `! @                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. P8 f: ]  j9 u! X. S7 a8 D                        partstable[5,lines]:=rows;
/ Z8 T# x7 O/ I8 W/ ^4 S; Q! @                        partstable[6,lines]:=j;
                end;
: z0 D  j6 x% B! |8 f1 O9 \9 y: @        next;
        machinename:=sprint("M",rows);
; X# v1 d* H$ M6 q& F5 R( z' Y        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]);
" P: Q, o) a* k+ r+ ?+ j  R        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# q$ @( G: W' Q- F$ y        machine.label:=activityspace[0,rows];
9 v, d8 ]' S/ s5 i        machine.exitctrl:=ref(leave);
       
6 Z. f+ x* c' h% m  u        bufname:=sprint("BF",rows);
) B2 G: _" X' e) Y# {4 A- m* Q( i5 K        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;
+ g+ Y6 l# C# }. _. f, Jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' o) P4 ]1 |' h$ j' s7 Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- j. W' e1 {/ {  u5 `/ N! C2 s1 qend;
/ v2 H" Q- ?. m  r8 Y: @( Y& }