cshell写的圆环转圆孔脚本，请支持

fei_ling

#!/bin/csh -f
#此脚本为圆环转圆孔
#把圆环单独放在新建层中
set ifile = /genesis/tmp/info.$$
alias DO_INFO \'COM info,out_file = $ifile,write_mode = replace,units=mm,args = \\!:*;source $ifile\'
COM units,type=mm
COM affected_layer,mode=all,affected=no
COM get_work_layer
set work_layer = $COMANS
if ($work_layer == ) then
PAUSE No work layer! exit...
exit
endif
COM sel_change_sym,symbol=r1,reset_angle=no
COM sel_reverse
COM chklist_single,action=valor_cleanup_ref_subst,show=yes
COM chklist_cupd,chklist=valor_cleanup_ref_subst,nact=1,params=((pp_layer=.affected)(pp_in_selected=All)(pp_tol=25.4)(pp_rot_mode=ALL)(pp_connected=Yes)(pp_work=Features)),mode=regular
COM chklist_run,chklist=valor_cleanup_ref_subst,nact=1,area=global
COM chklist_close,chklist=valor_cleanup_ref_subst,mode=hide
DO_INFO -t layer -e $job/$step/$work_layer
foreach ring($gSYMS_HISTsymbol)
if ($ring =~ donut*) then
  COM filter_set,filter_name=histogram,update_popup=no,active=yes,feat_types=pad,polarity=positive,include_syms=$ring
  COM filter_area_end,layer=$work_layer,filter_name=histogram,operation=select
  set name3 = `echo $ring|cut -dx -f2`
  COM sel_change_sym,symbol=r$name3,reset_angle=no
endif
end
COM sel_resize,size=1,corner_ctl=no
rm -if $ifile
COM delete_layer,layer=${work_layer}+++

956220

赞一个！很不错的脚本！期待楼主更多的好脚本！

956220

赞一个！很不错的脚本！期待楼主更多的好脚本！

604126466

很不错的脚本！期待楼主更多的好脚本！