原理图中如何连线_如何利用脚本把更改后的BOM的元器参数一次性导入原理图中...

在研发阶段，做硬件调试时，有很多元器件的参数可能不满足要求，需要更换参数，或者某些元器件的规格描述要改成和物料库里的一致，如果BOM改动很大，涉及的元器件有上百个时。这时如果要一个一个元器件去修改参数的话，那么工作量就非常大了，也容易改错或漏改，给研发工作带来巨大的麻烦。下面教大家一个一次性就能把参数改好的方法，非常方便快捷。

第一步，先打开已经修改好参数的BOM。

第二步，全选原理图里的元器件，把属性里的参数统统删除。

第三步，打脚本编辑器，编写以下代码。

Sub Main

Dim xl As Object

Dim S_Components As String

Dim LastRow1 As Long

Set xl= GetObject(,"Excel.Application")

x1="D:DL020-MAIN-PCB-BOM V01_20200514.xlsx"

'CreateObject("Wscript.Shell").Run ("D:DL020-MAIN-PCB-BOM V01_20200514.xlsx")

'LastRow1 = xl.ActiveSheet.Range("A65536").End(xlUp).Row

'On Error Resume Next

'MsgBox LastRow1

For i= 4 To 200

If xl.ActiveSheet.cells(i,5)<>"" Then

S_Components =xl.ActiveSheet.cells(i,5)

On Error Resume Next

ActiveDocument.SelectObjects(plogObjectTypeAll, "", False)

S_Components = Replace$(S_Components, Chr$(9), " ")

ActiveDocument.SelectObjects(plogObjectTypeComponent, S_Components, True)

Set parts = ActiveDocument.GetObjects(plogObjectTypeComponent,"",True)

'MsgBox AttrVal(parts(1), "Description")

Dim attrs As Attributes

Dim a As String

For Each part In parts

Set attrs = part.Attributes

a=xl.ActiveSheet.cells(i,4)

On Error Resume Next

attrs("Description") =a

Next part

End If

Next i

End Sub

第四步，运行代码后，几秒钟的时间，整个BOM里的元器件的参数在原理图里一一对应地被更新了，非常高效。