PADS输出坐标文件[适配嘉立创贴片]

PADS输出坐标文件

1.打开导出坐标文件的选项：

2.配置导出设置，这里最后做的是excel的文件，顶层配置如下做图，底层配置如下右图：

3.各自点击运行后提示如下左图，到相应的目录看到的文件如下右图：

4.把生成的".BP"格式的文件改成“.xls”格式即可，最后修改如下：

5.《DYNPROSB.xls》和《DYNPROST.xls》文件的大体内容如下：

    这两个确实就是坐标文件，把这两个文件拷贝走就可以了！
 

适配嘉立创贴片

上面生成的坐标文件不能够适配嘉立创的贴片下单平台,会报这样的错误:

生成的坐标文件如下:

这里修改如下PADS的脚本如下:

主要是修改列的名称和增加上mm的单位

修改后的脚本如下:

' Sample 17: Excel Part List Report.BAS
' 
'This is a completely revised version of the same file renamed to: old_X-Y Part Location Report.bas
'This script has been generated by PowerPCB's VB Script Wizard on 8/23/2007 3:19:25 PM
'It will create reports in Microsoft Excel Format.
'You can use the following code as a skeleton for your own VB scripts

'Array of column names. You can modify it to rename columns
Const Columns = Array("PartType", "RefDes", "Footprint", "Pins", "Layer", "Rotation", "Mid X", "Mid Y", "SMD", "Glued")

Sub Main
	tempFile = DefaultFilePath & "\temp.txt"
	Open tempFile For Output As #1

	'Output table header
	For i = 0 to UBound(Columns)
		OutCell Columns(i)
	Next
	Print #1
	'Output table rows
	For Each part in ActiveDocument.Components
		OutCell part.PartType
		OutCell part.Name
		OutCell part.Decal
		OutCell part.Pins.Count
		OutCell ActiveDocument.LayerName(part.layer)
		OutCell part.orientation
		OutCell Format(part.PositionX, "0.000mm")
		OutCell Format(part.PositionY, "0.000mm")
		OutCell Format(part.IsSMD, "Yes/No")
		OutCell Format(part.Glued, "Yes/No")
		Print #1
	Next part

	Close #1
	ExportToExcel
End Sub

Sub ExportToExcel
	FillClipboard
	Dim xl As Object
	On Error Resume Next
	Set xl =  GetObject(,"Excel.Application")
	On Error GoTo ExcelError	' Enable error trapping.
	If xl Is Nothing Then
		Set xl =  CreateObject("Excel.Application")
	End If
	xl.Visible = True
	xl.Workbooks.Add
	xl.Range("A:C").NumberFormat = "@"
	xl.Range("D1:J1").NumberFormat = "@"
	xl.ActiveSheet.Paste
	xl.Range("A1:J1").Font.Bold = True
	xl.Range("A1:J1").NumberFormat = "@"
	xl.ActiveSheet.UsedRange.Columns.AutoFit
	xl.Range("A1").Select
	On Error GoTo 0 ' Disable error trapping. 
	Exit Sub    

ExcelError:
	MsgBox Err.Description, vbExclamation, "Error Running Excel"
	On Error GoTo 0 ' Disable error trapping.    
	Exit Sub
End Sub

Sub OutCell (txt As String)
	Print #1, txt; vbTab;
End Sub

Sub FillClipboard
	' Load whole file to string variable    
	tempFile = DefaultFilePath & "\temp.txt"
	Open tempFile  For Input As #1
	L = LOF(1)
	AllData$ = Input$(L,1)
	Close #1
	'Copy whole data to clipboard
	Clipboard AllData$ 
	Kill tempFile
End Sub

这时候生成的坐标格式如下:

这时候就可以被嘉立创下单平台识别了!

嘉立创下单的时候选择这个模式:

本文摘录于：【教程】PADS如何导出SMT贴片机用的坐标文件 - 立创社区 (szlcsc.com)只是做学习备份之用，绝无抄袭之意，有疑惑请联系本人！