怎样把板内最小的孔变成一个文字用的变量？

怎样把板内最小的孔的大小变成一个文字用的变量?

set min = 'MIN='
COM add_text,attributes=no,type=string,x=$txtx1,y=txty1,\
text=$min$dirll,x_size=0.1,y_size=0.1,w_factor=0.8333333135,polarity=positive,\
angle=0,mirror=no,fontname=standard,bar_type=UPC39,bar_char_set=full_ascii,\
bar_checksum=no,bar_background=yes,bar_add_string=yes,bar_add_string_pos=top,\
bar_width=0.008,bar_height=0.2,ver=1

就是$dirll为板内最小的一个孔，怎么样把它变成文字?

set min = 'MIN='$dirll

text=$min$dirll 改成 text=$min

问题是怎么样自动把板内最小的一个孔找出来啊?如果找不出来,那么$drill就没有意义了嘛...

DO_INFO 语句查找物件管理器，

 输出文件,在cat

难就难再找出最小的孔径，不好判断啊。

set n = 2

set a = $gTOOdrill_size[1]

while ($n < = $#gTOOdrill_size)

if ( $a < $gTOOdrill_size[$n] ) then

else

set a = $gTOOdrill_size[$n]

@ n++

end

Look look 我这个……   我们不玩虚的……

DO_INFO -t layer -e $JOB/pcs/$drl_layer
foreach  drlsymb ( $gSYMS_HISTsymbol )
    echo $drlsymb >> c:/tmp/drl_symbol
end
cat c:/tmp/drl_symbol |cut -c2- | sort -n  > c:/tmp/drl_symbol_new
set mindrl_size = `sed -n 1p c:/tmp/drl_symbol_new`
#PAUSE $mindrl_size
\rm c:/tmp/drl_symbol*

COM add_text,attributes=no,type=string,x=$txtx1,y=txty1,\
text=$mindrl_size,x_size=0.1,y_size=0.1,w_factor=0.8333333135,polarity=positive,\
angle=0,mirror=no,fontname=standard,bar_type=UPC39,bar_char_set=full_ascii,\
bar_checksum=no,bar_background=yes,bar_add_string=yes,bar_add_string_pos=top,\
bar_width=0.008,bar_height=0.2,ver=1

DDD