自动加边框.scr

来自「CAM350宏全集」· SCR 代码 · 共 118 行

a=Blanklayer!
b=Blankdcode!

util_camed@ 
setunit@ 1 
update_dcodebar@
update_buttonbars@
setresolution@ 1000 
update_dcodebar@

i#=0.200
j#=2.0
h#=7.0
q#=7.0
OpenForm #1,60,5, "自动加边框 V1.0", character, okcancel
AddForm #1, 0, 1, "请输入线宽（mm）：", Input, i#
AddForm #1, 0, 2, "请输入内边框离板边的距离（mm）：", Input, j#
AddForm #1, 0, 3, "请输入外边框X方向离板边的距离（mm）：", Input, h#
AddForm #1, 0, 4, "请输入外边框y方向离板边的距离（mm）：", Input, q#


DisplayForm #1
Canceled% = formCancel(1)
DeleteForm #1
if Canceled% then goto 999

maxx#=vismaxx! '最大点坐标#
maxy#=vismaxy!
minx#=visminx! '最小点坐标#
miny#=visminy!

edit_layer@ a,2,2,4,0,"OUT"
setlayer@ a

aptable_compress@ 
update_dcodebar@ 

edit_aperture@ b,1,i#,i#,b,""
setdcode@ b

add_rectangle@
setsnap@ 0
axy@ minx#-j#,miny#-j#
axy@ maxx#+j#,maxy#+j#
back@
add_rectangle@
setsnap@ 0
axy@ minx#-h#,miny#-q#
axy@ maxx#+h#,maxy#+q#
back@

a=Blanklayer!
b=Blankdcode!

util_camed@ 
setunit@ 1 
update_dcodebar@
update_buttonbars@
setresolution@ 1000 
update_dcodebar@

f#=2.6
e#=5.0
m#=3.3
OpenForm #1,60,5, "自动加板边孔 V1.0", character, okcancel
AddForm #1, 0, 1, "请输入焊盘大小（mm）", Input, f#
AddForm #1, 0, 2, "请输入焊盘X方向离板边的距离（mm）：", Input, e#
AddForm #1, 0, 3, "请输入焊盘y方向离板边的距离（mm）：", Input, m#


DisplayForm #1
Canceled% = formCancel(1)
DeleteForm #1
if Canceled% then goto 999

maxx#=vismaxx! '最大点坐标#
maxy#=vismaxy!
minx#=visminx! '最小点坐标#
miny#=visminy!

edit_layer@ a,2,2,4,0,"TEXT"
setlayer@ a

aptable_compress@ 
update_dcodebar@ 

edit_aperture@ b,1,f#,f#,b,""
setdcode@ b

add_flash@
setsnap@ 0
axy@ minx#+e#,miny#+m#
back@
add_flash@
setsnap@ 0
axy@ minx#+e#,maxy#-m#
back@
add_flash@
setsnap@ 0
axy@ maxx#-e#,miny#+m#
back@
add_flash@
setsnap@ 0
axy@ maxx#-e#,maxy#-m#
back@

layer_alloff@ 1
view_all@
view_redraw@

999
print_msg "退出宏!"
delay 1000
end