哪位大佬知道下面这种进度条是如何制作的 - EDA365电子论坛网

DBdoctor();导出之前检查PCB
if(dbCheckStatus
then
CAM_Valid = axlFormGetField(GerberExport_form "CAM_BOX")
SMD_Value = axlFormGetField(GerberExport_form "SMD_BOX")
PDF_Value = axlFormGetField(GerberExport_form "PDF_BOX")
DXF_Value = axlFormGetField(GerberExport_form "DXF_BOX")
ipc_value = axlFormGetField(GerberExport_form "checkbox_ipcversion")
;更新状态显示
when(CAM_Valid
Export_Film() ;导出光绘
Export_NCdrill() ;导出钻孔数据
Export_rou() ;导出槽孔数据
;导出IPC文件
when(ipc_value
case(ipc_value
("IPC-D-356A"
;调用ipc_out.exe导出->IPC-D-356A
Export_ipc356A()
)
("IPC-D-356"
;调用ipc_out.exe导出->IPC-D-356
Export_ipc356()
)
);end case
);end when
);end when
when(SMD_Value
Export_xy() ;导出坐标文件
Export_SMDPDF() ;导出贴片 pdf
);end when
when(PDF_Value
Export_PDF() ;导出贴片 pdf
);end when
when(DXF_Value
Export_DXF() ;导出贴片 DXF
);end when
else
axlUIConfirm("Error:Current design exit DRC")
);end if

复制代码

;-----------------------导出光绘/钻孔/槽孔/坐标/pdf/DXF/ipc文件----------------------------------------
;在进行导出相关文件之前，先运行DBdoctor检查设计有无错误
defun( DBdoctor ()
;调用dbdoctor.exe检查设计
sprintf(format "dbdoctor -$ -check_only %s" axlCurrentDesign())
dbCheckStatus = axlRunBatchDBProgram("Checking db records" format ?logfile "dbdoctor" ?noProgress t ?warnProgram t)
);end defun
;调用artwork.exe导出->光绘文件
defun( Export_Film ()
axlRunBatchDBProgram("export artwork" "artwork -$ %s" ?logfile "photoplot" ?noProgress t ?warnProgram t)
);end defun
;调用nctape.exe导出钻孔文件
defun( Export_NCdrill ()
sprintf(cmd "nctape -$ -b -o -n %s.drl %%s", axlCurrentDesign())
axlRunBatchDBProgram("Generating Drill Files..." cmd ?logfile "ncdrill" ?noProgress t ?warnProgram t)
);end defun
;调用ncroute.exe导出槽孔文件
defun( Export_rou ()
sprintf(cmd "ncroute -$ -o -n %%s.rou %s" axlCurrentDesign())
axlRunBatchDBProgram("Create ncroute" cmd ?logfile "ncroute" ?noProgress t ?warnProgram t)
);end defun
;调用plctxt.exe输出->坐标文件
defun( Export_xy ()
sprintf(cmd "plctxt -$ -c %%s %%s %s_xy_ByBodyCenter" axlCurrentDesign())
axlRunBatchDBProgram("Export place xy" cmd ?logfile "plctxt" ?noProgress t ?warnProgram t)
);end defun
;选择IPC版本时，导出IPC文件
defun( Export_ipc356A ()
sprintf(cmd "ipc356_out -$ -A %%s %s.ipc" axlCurrentDesign())
axlRunBatchDBProgram("Export IPC-D-356A" cmd ?logfile "ipc356_out" ?noProgress t ?warnProgram t)
);end defun
;选择IPC版本时，导出IPC文件
defun( Export_ipc356 ()
sprintf(cmdFmt "ipc356_out -$ %%s %s.ipc" axlCurrentDesign())
axlRunBatchDBProgram("Export IPC-D-356" cmdFmt ?logfile "ipc356_out" ?noProgress t ?warnProgram t)
);end defun
;导出所有光绘层PDF文件
defun( Export_PDF ()
;输出光绘层PDF
sprintf(cmd "pdf_out -$ -p -B %%s -o %s" axlCurrentDesign())
axlRunBatchDBProgram("Export PDF" cmd ?logfile "pdf_out" ?noProgress t ?warnProgram t)
);end defun
;导出贴片所需的PDF文件
defun( Export_SMDPDF ()
;输出SMD PDF
sprintf(cmd "pdf_out %%s -p -B -x -C -f ASM_TOP -f ASM_BOTTOM -o %s_SMD" axlCurrentDesign())
axlRunBatchDBProgram("Export SMD PDF" cmd ?logfile "pdf_out" ?noProgress t ?warnProgram t)
);end defun

复制代码