[原创]CAM350加角线宏

sandylin

sandylin

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, 0, "$我心永恒$",Print 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

sandylin

i#=0.200 线宽（mm） k%=5 线的长度（mm） j#=0.5000 角线离板边的距离（mm）

把宏中的相关数值改成自己常用的，然后保存就可以了。对于临时的更改，只要在运行宏时输入相应的数值就可以了。

sandylin

版权没有，拷贝自由。

更多的内容，欢迎查看我的主页。

approx

不错！！支持原创！。加精！！

yypcb

好啊。。。。。ＤＩＮＧ你。。。。

yypcb

请教一下楼主。。。。。如果还在其中再加一条画对边“中线”如何加上去。。

sandylin

是在中间切一条线下来吗？贴张图上来看看

yypcb

如圈中所示几根中线。。。

uuwxfwei

好的，谢了