PADS 如何快速的使元件丝印居中

① 问题：PADS 绘制完PCB后，如何快速的使元件丝印居中？

---

当我们使用PADS画完一个板子之后，元器件的位号可能都是乱糟糟的。其实我们可以通过 几个简单的操作，就能居中。

当然，也可以使用脚本来实现，经常看到有小伙伴在找脚本，实际上这个功能很简单。不用脚本也可以快速搞定。

② 解决此类问题的方法

---

方法一： 不要脚本的方法

第一步： 打开刚绘制好的PCB文件，然后 “Ctrl + Alt + F” 打开Object
第二步： 然后只勾选Labels即可。（如下图所示）

第三步： 选中所有元器件位号（不用去右键选择文本），然后进入特性窗口。将坐标设置为0，size 看你自己的习惯了，一般推荐 30/25mil，位置选择居中就Ok了。

第四步： 选择应用，元器件的位号就会居中了

方法二： 使用脚本的方法

将下面代码复制粘贴到文本然后将后缀改为.bas,然后在软件中开此脚本运行就OK了。

Dim ListComps$()

Sub Main

    'Design_Unit = ActiveDocument.unit
    
    'ActiveDocument.unit = ppcbUnitMils 

	totalComps = ActiveDocument.Components.Count
	
	ReDim ListComps$(totalComps)
	
	indexPins = 0
    indexVias = 0
    indexComponents = 0
    gX = ActiveDocument.GridX(1)
    gY = ActiveDocument.GridY(1)
	
	Dim nextComp As Object
    For Each nextComp In ActiveDocument.Components
    For Each nextlabel In nextComp.Labels 
        x = nextComp.PositionX
        y = nextComp.PositionY
        statX = ((x/gX) = Fix(x/gX))
        statY = ((y/gY) = Fix(y/gY))
        
        'nextlabel.PositionX(ppcbUnitMils) = x
        'nextlabel.PositionY(ppcbUnitMils) = y
        
        nextlabel.PositionX = x
        nextlabel.PositionY = y
        
        nextlabel.layer = 126
        nextlabel.Height(ppcbUnitMils) = 30 
        nextlabel.LineWidth(ppcbUnitMils) = 2 
        nextlabel.HorzJustification = ppcbJustifyHCenter
        nextlabel.VertJustification = ppcbJustifyVCenter
        nextlabel.RightReading = ppcbRightReadingNone'ppcbRightReadingOrthogonal

    Next nextlabel
    Next nextComp
    
    'ActiveDocument.unit = Design_Unit
    
End Sub