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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 V7 @* \! q: L( U( `    machinename,bufname:string;
    machine,buf:object;
  n; n8 z0 V/ w$ \5 P8 zdo
) s# K+ ]& D; L2 @- e& W! b' A6 K        current.eraselayer(1);
       
; r% c7 q. }' v' k! G        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! r! x( C6 R/ h                when 16 then
- n( K8 g" }' `1 k7 Z- [                        print"yes";
0 n1 _) h/ C# p' {8 M1 U5 j0 g/ Y                when 32 then
% q: k% \. p6 l6 t2 {                        print"no";
' a5 S, c2 c9 q# z1 |                else
. K0 o4 g7 l: Q" B0 w' d                        print"cancel";
+ ~2 n; G: r2 \0 d. k1 n                end;
                eventcontroller.stop;
' L* J0 _: L5 e2 W$ V5 W/ n        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 X* a: e4 y% n8 C1 C/ n        if existsobject(machinename) then
+ C* m. C6 J! A. a8 E' l, q: Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# G( X: I1 A9 o  V5 F        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 P0 e: o: g4 t! r0 p% B. n3 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
& _3 I" d; `& M. B  o8 |        end;
7 m+ I! k9 q: r5 ?        next;
) R" y8 M$ u( E2 Z' m       
4 L3 N! m9 k7 H. G1 X        dx:=0;
        dy:=0;
9 P" C2 M" F& B- X        for i:=1 to number_of_machine loop
/ n9 D' x4 B# n) y# L6 B4 ]+ L9 p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, D6 F9 _+ _* s# h$ a1 n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( }4 b; y: K9 R% H$ H8 G                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' M9 E# g0 n/ ]9 k' l                        print activityspace[1,rows],",",activityspace[2,rows];
4 k* g& @7 {/ ^3 X                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 ?2 t# k3 J9 J8 Q6 k0 K0 d9 r                        activityspace[1,rows]:=ct;
                        mark:=true;
: D+ s# O$ w/ c! [4 J2 x* f0 p                        else*/
5 l8 A9 l( e) u7 f! n" Z                        y_max:=y_max+dy;
                        dx:=0;
7 M7 X# x) A2 \# I3 m' A* x" s" l                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 k2 L( N$ G/ L9 w$ ]+ v2 H) }; R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! U8 N% j. ^+ D, @* Z9 m6 N            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 C: c6 X% ]( ]% e( w) ?  X0 y) d                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# y5 D* @! R$ W' s                        activityspace[1,rows]:=ct;
( }) X4 L# |& |, ]. a                        end;*/
0 F3 |3 ]" L- F$ |        next;
        y_max:=y_max+dy;
7 O* O/ h8 G6 S/ ?" k. b8 Q        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);
( L6 Y# R6 R& M4 i2 [$ Y* s- x( Q        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;
) Q% Y" u1 N' D$ h+ J# [        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ a8 Z) U. P9 s: t6 s                                d_from_to_chart[j,i]:=0;
4 k- r. ~4 _+ e/ S) o' e' C6 @3 E                        else
& n, l: l6 \6 z, m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  y' Y) Q; G  u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 N0 N: J' t' K' g! C6 x5 W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 W# q% J$ ]$ V, e; D                next;
        next;
       
* D8 A: v: Q$ v' z- [- f        lines:=0;
/ B5 i! t! W8 h1 \& |        partstable.delete;
       
( L; S! J6 P/ K4 @$ A9 I0 t        for i:=1 to number_of_machine loop
$ G& Z$ o" o( r* y2 Z# [: I9 \6 ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ ^3 z* e% R/ ~% `% l3 K9 J$ t6 j                machinesequence[2,i]:=rows;
6 q6 m, Q. Q% z9 U9 c7 a7 K                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, t, T" x- ^0 i8 r2 ?- f4 P                        lines:=lines+1;
# H1 C" d0 _$ H! p6 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* v/ {5 G# D! y- g* [- u0 o                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
  h# _: x) R, S        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]);
% ]/ a, V. T- O+ H: s2 q        machine.name:=machinename;标识符未知
1 p, i4 o0 k" p  }% W) e/ W: r        machine.proctime:=5;
# @( {2 C, g4 t  e: }* O        machine.label:=activityspace[0,rows];
) q- M9 k5 o; i3 o        machine.exitctrl:=ref(leave);
       
        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]);
1 U8 s1 F" A8 u( y$ j1 P! ^        buf.name:=bufname;
        buf.capacity:=5000;
8 g6 w  q$ L9 n        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;
3 c+ x4 `+ l/ @( q0 Q* J2 mdy:=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);
. Y( E$ K! R; c; c+ a$ ~# y/ ]* Pnext;
end;
' V' W) T+ h3 X* G$ _. ]0 P