利用脚本将原理图中元器件和规格书一一关联起来，查看规格书非常快捷和方便

原创 PCB和原理图设计与共享 2023-12-21 08:04

TI MCU方案：电动汽车实时控制 【TI资料】基于新型C29内核的MCU技术资料

我们在查看原理图时，经常时不时都要查看一下元器件的规格，每次要查看相应的元器件的规格书时，有个提前条件是要必须要记得对应的规格书放在哪个盘，哪个文件夹里，然后打开对应的盘对应的文件夹，一个一个文件查找。如果忘记了，就要在电脑里搜索或者在网上重新搜索下载，非常的不方便。那么有没有一种方法可以在操作原理图的时候，就能直接把对应的规格书打开了呢？经过了几个月的摸索，终于找到了一种方法，就是利用脚本的方法，将元器件和规格书一一对应关联起来，这样就可以在原理图里直接把规格书打开，非常快捷方便。具体操方法如下。

首先，在元器件的属性里添加好元器件的规格书所在的路径。

然后，打开原理图的脚本编辑器，编写以下代码。

Sub Main
   Set parts = ActiveDocument.GetObjects(plogObjectTypeComponent,"",True)
   compName = parts.Item(1).Name
   Dim sPath ,ref,label As String
  'sPath = parts.Attributes(Value)
For Each part In ActiveDocument.Components
sPath = AttrVal(part, "Source_Path")
ref=part.Name
label=AttrVal(part, "Description")
 If ref= compName Then
   Exit For
 End If
Next part
  Dim xl As Object
  Set xl =  GetObject(,"Excel.Application")
xl.Workbooks.Add
'xl.ActiveWorkbook.SaveAs Filename:="D:\myfile.xlsx"
xl.Range("a1")=sPath
'CreateObject("Wscript.Shell").Run ("D:\RK3288.pdf"
CreateObject("Wscript.Shell").Run (sPath&".pdf")
'CreateObject("Wscript.Shell").Run ("D:\"&sPath&".pdf")
End Sub
Function AttrVal (obj As Object, nm As String)
AttrVal = IIf(obj.Attributes(nm) Is Nothing, "", obj.Attributes(nm))
End Function