设计原理图时,常常会遇到这样的问题。就是很多元器件的位号不是按顺序编号的,中间空了很多号没有用,有时候编号跨度很大。
比如上面的一个原理图,从中我们可以看到电阻的位号从R385一下子跨到了R4000,电阻只有300多个,但编号却编到了4000多。虽然位号对设计结果没有任何影响,但是查看原理图或者整理BOM时,会觉很乱,还有出贴片图时,编号数过大,元器件的外框放不下,有些数字会被丝印框挡住,看不清楚,或者被误读,给生产带来不便和风险。在PADS软件里尝试一个一个改过来,但是不好改,因为如果原理图页码多,元器件成百上千时,那真是无从下手了。所以,以前遇到这种事,都是保持现状。不过后来我学会了利用脚本的方法,编写好一个脚本,运行一下,一眨眼的功夫就把元器件的编号重新编排好了,而且是按顺序,中间没有断层。
下面详细讲解这个方法。
第一步,可以先写一个脚本查看一下原理图里哪些号是用上的,哪些号是没有用上的。打开脚本编辑器编写以下脚本并运行脚本,就可以弹出文档显示哪些号有用上,哪些号没有用上。
第二步,再打开脚本编辑器,编写以下代码。
参考代码:
Sub Main
Dim Rcount As Integer
Dim Ccount As Integer
Dim Lcount As Integer
Dim Dcount As Integer
Dim Qcount As Integer
Dim Jcount As Integer
Dim Ucount As Integer
Dim part_name As String
Dim sheets_count As Integer
sheets_count= ActiveDocument.Sheets.Count
'MsgBox sheets_count