;#####################################################################
axlCmdRegister("mult_drill" 'mult_drill )
(defun mult_drill ()
	name = "mutlDrillPad"
    drill_data = make_axlPadStackDrill(
		?holeType  'CIRCLE_DRILL
		?drillDiameter 5
		?plating 'PLATED
		?figure 'SQUARE
		?figureSize 60:60
		?drillChar "abc"
	)
	pad_list = nil
	pad = make_axlPadStackPad(?layer "TOP",
	?type 'REGULAR, ?figure 'CIRCLE,
	?figureSize 80:80)
	pad_list = cons(pad pad_list)
	pad = copy_axlPadStackPad(pad)
	pad->type = 'REGULAR
	pad->layer = "BOTTOM"
	pad->figure = 'CIRCLE
	pad->figureSize = 80:80
	pad_list = cons(pad pad_list)
	ps_id = axlDBCreatePadStack(name, drill_data, pad_list t)
	Out_File = outfile("./mult_drill.scr" "w")
	fprintf(Out_File "setwindow pcb\n")
	fprintf(Out_File "trapsize 16783\n")
	fprintf(Out_File "etchedit\n")
	fprintf(Out_File "padeditdb\n")
	fprintf(Out_File "setwindow form.mini\n")
	fprintf(Out_File "FORM mini padlist %s\n" name)
	fprintf(Out_File "setwindow pcb\n")
	fprintf(Out_File "padeditcur mult_drill_1.scr\n")
	fprintf(Out_File "prepopup 0.0 0.0\n")
	fprintf(Out_File "done\n")
	fprintf(Out_File "etchedit\n")
	close(Out_File)
	Out_File = outfile("./mult_drill_1.scr" "w")
	fprintf(Out_File "QtSignal GuidedTabsParent GuidedTabs currentChanged Drill\n")
	fprintf(Out_File "QtSignal GuidedDrillTab PatternStyle CurrentIndexChanged Polar\n")
	fprintf(Out_File "QtSignal GuidedDrillTab polarRadius editingFinished %L\n" 10.0)
	fprintf(Out_File "QtSignal GuidedDrillTab polarCopies editingFinished %d\n" 6)
	fprintf(Out_File "QtSignal MainWindow UpdateToDesignExit triggered\n")
	fprintf(Out_File "QtSignal pseCheckBrowser Close clicked\n")
	fprintf(Out_File "QtFillin Yes\n")
	close(Out_File)
	axlShellPost("replay mult_drill.scr")
	axlPadstackToDisk(name)
)
;#####################################################################