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

zooey

is
        mark:boolean;
" T4 d' J. c5 w. Z        dx,dy,ct:real;
; k" O4 [  A/ y4 x  n    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
$ s2 V1 m4 l6 R, O6 z, \        current.eraselayer(1);
+ H  H6 v3 U0 L) R6 \+ P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 `% r+ p( K) K& x8 @3 ?                inspect messagebox("设施数目不对！请核查...,",50,13)
( ~! g  z2 h1 ?/ {" Z$ h7 b' _( p                when 16 then
                        print"yes";
                when 32 then
% e8 N& U' d% g& }7 Y                        print"no";
& y! ^* \& T, L1 r* ~& l+ J                else
$ {( u: D$ \, j                        print"cancel";
4 |9 i& G6 d% p0 J                end;
7 T. U# i4 \6 k0 ~5 ]0 j7 v; J$ X0 L                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 q* q- @- J( p        if existsobject(machinename) then
' P: J! ~2 m. v0 N6 Z. \! V$ }1 e                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 Q  v+ |' t7 L6 C8 M4 ]7 y. E) x- S        end;
, \: Y, a* K$ l) ?; ^        bufname:=sprint("BF",i);
3 N7 E! F+ L* i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  g$ N) E- _6 {/ \                buf.deleteobject;
  @3 o8 m: O0 q        end;
0 g/ g0 O, c4 f" D( P6 h        next;
% |  K8 Y! J; M4 I/ G/ q       
9 B& L) h! X$ p+ ~- M# `        dx:=0;
        dy:=0;
, C: J' b2 _5 |        for i:=1 to number_of_machine loop
$ ^4 H# O4 L. k+ ?) t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; B6 p7 c7 O1 p+ ]& y                --mark:=false;
# f7 V$ q. z9 v) y0 h- ?& H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* T' o+ f! j1 Z. N4 z& T1 |* r8 v                then
" A% Y' A( R$ ?: d- R" q* K  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];
! u  J/ k& z% F7 F1 Z6 C                        activityspace[2,rows]:=activityspace[1,rows];
( w, ~* ?2 {) A- y2 p5 R' M                        activityspace[1,rows]:=ct;
7 C. X: E  q" ?. O                        mark:=true;
                        else*/
; Y6 w1 q2 ~- f; R                        y_max:=y_max+dy;
4 v* j# Y) E. v: _4 O, W  `                        dx:=0;
- N* D1 b* R9 Z+ T( B9 O! |                dy:=0;
                        --end;
* A8 B. z" K7 O' U  B# k7 Q* e; X- w                end;
) |2 l4 x. z/ e' R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  [' l9 f5 a  X8 P: i                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 H; n1 s6 B+ Y: Y9 Q, L  H& K            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
1 r% D8 x, q: z9 L2 g6 O                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
        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);
       
' h7 B" V. ]* n        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
3 C. }8 t( o- u+ D  d! h                for j:=1 to number_of_machine loop
/ M0 v/ U6 L% ^3 Y4 L7 K9 J                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 d* u  V6 A  S3 U% _# q; o2 H                        else
                                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];
3 ^) s# d- ]" f                                d_from_to_chart[j,i]:=abs(dx-dy);
! |$ @! ^! y: ^' n                        end;
                next;
        next;
/ w! c$ p$ x# a* C: L$ u# B       
# e+ l* \% q& d        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 P0 r$ Y( G$ Y/ _. W! ?, F0 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ W# F  o) {. P                machinesequence[2,i]:=rows;
. r. Z/ S- m' _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 M+ M2 D+ @& t7 V" R( w                        lines:=lines+1;
8 r% [" k) r/ N: X3 X+ {2 Q  Y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% x# F2 |, i' a1 ?$ d$ M                        partstable[3,lines]:=sprint("parts");
4 x1 F! `+ E7 x$ l                        partstable[5,lines]:=rows;
% P0 R& G* P/ Y, u2 y                        partstable[6,lines]:=j;
                end;
' ?7 e- `8 E1 E        next;
$ g+ k2 N* q6 T  \* O: j5 Y. y% h        machinename:=sprint("M",rows);
- t$ |) k# w+ |        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]);
. U2 A) q) q% f: H5 T        machine.name:=machinename;标识符未知
" I. g+ h+ n3 P3 n+ I/ G        machine.proctime:=5;
! ~8 d7 M# O4 {. |        machine.label:=activityspace[0,rows];
7 f! q% }! E8 e" [4 `/ o  a  p        machine.exitctrl:=ref(leave);
% q  g; |3 w4 L( j       
        bufname:=sprint("BF",rows);
/ ]2 ?" |3 l% x' |& Y; l) 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]);
" C$ e- ^5 @% n& I        buf.name:=bufname;
: U$ L' P3 X( g! K- ]0 w1 p        buf.capacity:=5000;
        buf.proctime:=0;
. r: A1 C* {* a& H; b+ X% B2 p        .materialflow.connector.connect(buf,machine);
       
3 R4 W" K5 u" l# V0 f, a* r' U        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;
3 [0 h5 K/ a: m  \+ Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;