'WRITTEN: Dmin ---2004.05.25
' $Workfile: 自动加尾孔程序 $
' $Revision: 2.0 $
' $Modtime: 25 May 2004 09:40:58 $
' $Date: 25 May 2003 09:43:54 $
' $Owner: Dmin $
setunit@ 0
util_nced@
setlayer@ drilllayer!
holespace = 4
OpenForm #1,45,5, "Auto Add Last Drill Hits V2.0", character, okcancel
AddForm #1, 0, 0, "欢迎使用自动加尾孔程序！",Print
AddForm #1, 5, 1, "版本V2.0 Dmin 2004.5.25。",Print
AddForm #1, 0, 2, "'版权所有哦，翻录必究哦！！！' ",Print
AddForm #1, 0, 3, "请输入尾孔间距（mm）：", Input, holespace
DisplayForm #1
Canceled% = formCancel(1)
DeleteForm #1
if Canceled% then goto 110
Getmousepos@ "Select Starting Point (Right Button Exits)"
B = 0
100
For A = 1 to highestuseddrillnum!
set_drill_tool@ A
nc_add_drill_hit@
axy@ mouseposX!, mouseposY!-B
C = drillsize!
set_drill_tool@ A 1
D = drillsize!
B =B C/2 D/2 holespace*40
next
back@
110
util_camed@
setunit@ 1
end
保存成.SCR的文件即可