这段代码是将文件文件"reflist.txt"中的元件值导入到pcb文件中的元件属性中,使用操作步骤:
1. 将代码复制到文本文件中,保存为loadBomValue2PCB.bas后缀的文件
2.更改代码中文件目录或者按代码创建对应目录
logfile="D:\padsScript\loadtextbom.log" 此为程序运行生成的日志文件
inputfile="D:\padsScript\reflist.txt" 此为输入文件,一个元件一行,每行的格式为(不含引号):"元件位置\t元件值",\t表示Tab为分隔符
3.打开PCB文件,在Tool - Basic Scripts - Basic Scripts 中加载刚刚保存的.bas文件,运行即可.使用前请先备份当前PCB文件,以免意外.
4.导入完成后,元件的属性会增加BOMValue这项,reflist中没有的元件,此项值为"xxx",表示不贴
Sub Main
Dim comps As Object
Dim refline As String
Dim position As Integer
Dim compname As String
Dim bomvalue As String
Dim inputfile As String
Dim logfile As String
Dim t As String
t=Chr$(9)
logfile="D:\padsScript\loadtextbom.log"
inputfile="D:\padsScript\reflist.txt"
Open inputfile For Input As #1
Open logfile For Output As #2
'