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

zooey

is
# M+ @7 R* B' n+ k$ T        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 Z+ O" A1 Y# h5 C' p" Xdo
# v6 F0 s6 P  `; F        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 o1 A- V& V# m5 Z                when 16 then
                        print"yes";
9 u* L5 n/ J( j1 o                when 32 then
$ f1 d; M1 P8 \/ T/ }                        print"no";
) J$ o/ d+ R1 K$ O  x                else
$ a0 Z- O% H1 J$ o  p' K                        print"cancel";
% P  s# {9 j. ]2 t                end;
                eventcontroller.stop;
        end;
" Z' J' Q& a! F9 {3 g$ E       
9 z% v2 O: H  {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; k7 h+ f9 M: I+ U8 G                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
9 y1 Z9 h% f! b. C7 z% V9 b" y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
! N, a, h1 q/ _  D: s' V        end;
        next;
       
        dx:=0;
# X" X2 c! d5 h8 G8 I  b        dy:=0;
# O6 K, _( ~- m% q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" x8 m: r( [5 Q" u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& l, `) u4 B4 c+ t1 f' m# I+ R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  f2 W( ]* @: p/ i4 n                        print activityspace[1,rows],",",activityspace[2,rows];
- ~0 C* G0 S% {8 q                        ct:=activityspace[2,rows];
- e( t( v: {+ J+ v( {# Q( k0 ^4 d3 F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& r  y' ^$ r5 u                        mark:=true;
$ a! f' f. j9 v8 Q. r                        else*/
# d  f; D4 v  W& b                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 ^3 C" t6 n$ M8 X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
4 V! I3 `- t/ R' Y                        dy:=activityspace[2,rows];
                end;
* H5 J9 }1 x4 ^1 L" R$ C) n                dx:=dx+activityspace[1,rows];
+ H7 M# R* Y3 X! i  v$ e( [                /*if mark=true then
                ct:=activityspace[2,rows];
# z2 M% @6 u; A3 _, k1 u+ Y& {9 g% g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
, R1 \: Y/ j4 y7 m9 u& 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);
- F$ z5 G* U/ k# @. p* V# U       
        rows:=0;
" ]0 |. L4 G3 J, N) `" `) n5 n        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 o2 K- m2 N' g, C3 C& d: {                                d_from_to_chart[j,i]:=0;
) q; o% d. K$ L0 o! J% b                        else
9 }& Y6 X% D" [/ {2 v4 E                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
  }/ k7 }: m/ S                        end;
                next;
        next;
4 P6 i+ j! e" e# P" r7 z$ A. i       
        lines:=0;
8 W+ X$ \7 y: M( h# P; y        partstable.delete;
       
4 H/ o# n+ I- D2 b3 h* c9 e1 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 U; Q1 T( A# h6 |3 ]8 m( M                machinesequence[2,i]:=rows;
2 G' t3 ~  _" p; J# c                for j:=1 to number_of_machine loop
9 h& b8 E% k+ F& I# ?; R                        if w_from_to_chart[j,rows]>0 then
- C* v- g2 U8 _$ c- m+ r' N: [7 |) P                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 x( ]% M3 a5 g& c: a' z                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 }$ c$ h: |% d% P: a                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. ?# k+ u  C( Q; o# `                end;
        next;
        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]);
7 \: ^, R: w% B) K3 E/ a        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' n1 u! ?7 H! X9 f: ^* U        machine.exitctrl:=ref(leave);
       
- Q- j2 ]; g! J: A& m* `: r# f) N+ _* r        bufname:=sprint("BF",rows);
! O; v: E9 r8 h8 g  {        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]);
* ?2 k. z2 {6 i4 e. o1 l        buf.name:=bufname;
        buf.capacity:=5000;
( l& d& {- \) ^9 x; w8 Z        buf.proctime:=0;
( L/ ~' \* }8 ^8 A4 z4 u- O        .materialflow.connector.connect(buf,machine);
       
7 U6 K& E3 Y5 O  s9 x3 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ ]) c5 Z0 R, _! N6 y# {( k1 Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ |$ v/ Z' ]9 p  a) u+ a" gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;