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

zooey

is
( r! B! U7 N0 ~1 H9 `( m        mark:boolean;
/ c5 G% [! z: c+ N) W* C( l        dx,dy,ct:real;
& \& e9 J: [/ @4 z  e. t; c    i,j,rows,lines:integer;
( @2 M* N9 a# L% E5 N# ~& [4 W2 J6 E  \    machinename,bufname:string;
% t& F! e# r1 g, i    machine,buf:object;
do
        current.eraselayer(1);
       
1 k, t* G% V3 v2 j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. [0 u" M/ v2 x( P0 G7 e- ]                inspect messagebox("设施数目不对！请核查...,",50,13)
- P# C# d( b* x* e$ w! R. @                when 16 then
* n; y6 C) ~6 ~0 }1 H1 [                        print"yes";
                when 32 then
                        print"no";
+ i* x: g' H- a                else
7 Y" t' a" ?# S6 B' T( ?3 H                        print"cancel";
                end;
1 {  W  B. r) y! k( u9 r3 j                eventcontroller.stop;
        end;
7 o4 Q& U, r( S0 R3 C& ~. t. B       
: k9 k5 P- b! ]; v* M        for i:=1 to number_of_machine loop
5 u- ^2 \$ [, Y. n1 |        machinename:=sprint("M",i);
  k, F% x; L6 l: Y6 h8 U: p        if existsobject(machinename) then
1 C& X$ R" M" C" }& i/ b                machine:=str_to_obj(machinename);
; ]" k$ R5 l; K9 g                machine.deleteobject;
9 {. s2 w$ @; r+ L        end;
        bufname:=sprint("BF",i);
4 u! K' A6 g# x0 S3 ]7 s- k        if existsobject(bufname) then
7 h9 [: f# T2 `/ z2 C/ w# W5 \                buf:=str_to_obj(bufname);
: d! ]- y1 M# `7 V/ W; e                buf.deleteobject;
2 F8 o2 I1 }8 _; S% Y# D+ W% c! r7 X        end;
8 g8 |$ J% K/ O" E        next;
  V6 |% h; K, U* c) H4 {9 C       
        dx:=0;
' K  v" L7 M& O$ H' ]! T        dy:=0;
        for i:=1 to number_of_machine loop
" j9 N7 J6 n6 x7 V( g5 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 [$ a  d5 J$ s! V  F& I                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 ]0 m" m5 b+ M' I3 {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ @. S' C; y+ ]' M) I6 I                        and activityspace[1,rows]<(1.05*y_max) then
$ q: [: x* w  W# n+ `% ]# Z                        print activityspace[1,rows],",",activityspace[2,rows];
+ E6 X5 _5 {0 w" P. A! b9 i% Q2 V                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 v8 o5 r6 f' O                        activityspace[1,rows]:=ct;
- D; e/ a: b0 }, z/ Y) _; b! e! |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ ?2 V4 O2 p6 |                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 g" P) W& H4 P! R' |5 ?) Y1 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# P, v7 ~/ @3 a) ~- y% V                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# G( I$ `7 v: m                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ ?9 C2 |8 v4 K' D5 ]        next;
, W' S; w! A" ^% m        y_max:=y_max+dy;
3 C1 o1 |, H- d  G: ~* G        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);
* `7 {. Q* n& O" {5 j( v- q: 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;
0 b* A4 W, q* k/ H+ v        lines:=0;
0 z$ _. N; n- {  \" f7 R        for i:=1 to number_of_machine loop
8 j& l3 F4 h7 D6 A" e" z                for j:=1 to number_of_machine loop
                        if j=i then
! [2 ~! A" }- @% }                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: A' W& c/ k0 H6 `9 D                                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;
1 [! B) Y0 B$ Q( p. J6 V                next;
        next;
       
7 v- X6 d2 a/ \1 p        lines:=0;
        partstable.delete;
9 Q$ @$ N* W: p/ x       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 h/ _. l$ d8 h' Z! Q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( h2 v, o( u; R3 P                        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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ v' c$ S+ g7 @- F( T                        partstable[6,lines]:=j;
                end;
        next;
) L% ]  ]& |9 r+ v$ n0 }        machinename:=sprint("M",rows);
8 Y2 Z/ ?( E4 c2 u; r" t        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]);
/ ~6 W+ k0 [0 `$ h: i9 b' e5 H        machine.name:=machinename;标识符未知
/ X* p  _" K" K* \& {6 p3 ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 q) G! Z3 R! g' 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]);
0 S( i7 _8 Q! J# E        buf.name:=bufname;
* x6 K6 b/ `) _        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
) h5 J! V( \9 d# s  N        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;
! D, G) N+ u9 C% k7 O) j  L' s7 z/ t; Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
( l4 V0 O- O" A% ]9 Fnext;
end;
2 L2 N3 C% I/ G+ I  d  _) u; `