a=Blanklayer!
b=Blankdcode!

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

i#=0.200
k%=5
j#=0.5000
OpenForm #1,60,5, "手工加角線 V1.0", character, okcancel
AddForm #1, 0, 1, "請輸入線寬（mm）：", Input, i#
AddForm #1, 0, 2, "請輸入線的長度（mm）：", Input, k%
AddForm #1, 0, 3, "請輸入角線離板邊的距離（mm）：", Input, j#

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,"wokao"
setlayer@ a

aptable_compress@ 
update_dcodebar@ 

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

add_line@
setsnap@ 0
axy@ minx#-j#,miny#-j#
axy@ minx#-j#+k%,miny#-j#
back@
setsnap@ 1
axy@ minx#-j#,miny#-j#
axy@ minx#-j#,miny#-j#+k%
back@

add_line@
setsnap@ 0
axy@ maxx#+j#,maxy#+j#
axy@ maxx#+j#-k%,maxy#+j#
back@
setsnap@ 1
axy@ maxx#+j#,maxy#+j#
axy@ maxx#+j#,maxy#+j#-k%
back@

add_line@
setsnap@ 0
axy@ maxx#+j#,miny#-j#
axy@ maxx#+j#-k%,miny#-j#
back@
setsnap@ 1
axy@ maxx#+j#,miny#-j#
axy@ maxx#+j#,miny#-j#+k%
back@

add_line@
setsnap@ 0
axy@ minx#-j#,maxy#+j#
axy@ minx#-j#+k%,maxy#+j#
back@
setsnap@ 1
axy@ minx#-j#,maxy#+j#
axy@ minx#-j#,maxy#+j#-k%
back@

layer_alloff@ 1
view_all@
view_redraw@

999
print_msg "退出宏!"
delay 1000
end