if Layertype! = 21 then goto 999

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

aptable_compress@ 
update_dcodebar@ 
update_dcodebar@ 
update_dcodebar@ 
back@

i#=2.000
K#=0.200
'OpenForm #1,60,3, "焊盤標注 V1.0", character, okcancel
'AddForm #1, 0, 0, "$我心永恒$",Print
'AddForm #1, 0, 1, "請輸入字符高度（mm）：", Input, i#
'AddForm #1, 0, 2, "請輸入線寬（mm）：", Input, K#

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

b=Blankdcode!
edit_aperture@ b,1,K#,K#,b,"" 
update_dcodebar@  
 

100

query_all@
setsnap@ 1
setsnapdist@ 14
getmousepos@ "左鍵點擊焊盤，右鍵退出，任意鍵切換模式"
if Button!=2 then goto 999
If Button!=0 then goto 400
axy@ mouseposx!,mouseposy!
back@

c=Activedcode!
setdcode@ c

Hilite_dcode_on@ 

ts$=DcodeDescript!	             
select case Dcodeshape!

		case 1
			ts1$=mid$(ts$,9,4) 		
		case 2
			ts2$=mid$(ts$,10,4)
                        ts3$=mid$(ts$,10,4)
                        ts1$=ts2$+"*"+ts3$		
		case 3
			ts2$=mid$(ts$,16,4) 
                        ts3$=mid$(ts$,24,4)
                        ts1$=ts2$+"*"+ts3$		
		case 4
			ts1$=mid$(ts$,10,5) 		
		case 5
			ts1$=mid$(ts$,16,23) 		
		case 6
			ts1$=mid$(ts$,11) 		
		case 7
			ts1$=mid$(ts$,11) 		
		case 8
			ts1$=mid$(ts$,15,5) 		
		case 9
			ts2$=mid$(ts$,10,4) 
                        ts3$=mid$(ts$,18,4)
                        ts1$=ts2$+"*"+ts3$
end select                
tstr1$="^ "+ts1$	

setdcode@ b

getmousepos@ "左鍵確定位置，右鍵退出，任意鍵切換模式"
if Button!=2 then goto 999
If Button!=0 then goto 400

textfullheight@ i#
textjust@ 33

add_text@                         
addtext@ mouseposx!,mouseposy!,tstr1$            
back@  

view_redraw@

goto 100

400
   Getmousepos@ "左鍵放大,右鍵縮小，任意鍵切換模式"
   If Button! = 2  then 
	view_zoomout@
	axy@ mouseposX!,mouseposy!
	back@
	goto 400
elseif Button! = 1  then 
	view_zoomin@
	axy@ mouseposX!,mouseposy!
	back@
	goto 400
else
	goto 100
end if

999
Hilite_dcode_off@
setsnapdist@ 10
print_msg "退出宏!"
delay 300
end