如上图所示,图中PCB的元器件的编号还没有摆放好,看起来很乱。如何快速将元器件编号摆放好?可以编写一个脚本,一键就能快速摆放好。
首先,打开PCB脚本编辑器,编写以下脚本。
参考代码:
Sub Main
Dim partFi As Double
Dim DocumentUnit,x As Integer
DocumentUnit = ActiveDocument.unit
ActiveDocument.unit = ppcbUnitMils
For Each part In ActiveDocument.Components
If part.Labels.Count > 0 Then
If GetPartType(part) = "CON" Or GetPartType(part) = "J" Then
For x = 1 To part.Labels.Count
If part.Labels(x Then
partFi = (((part.PositionX-part.Pins(1).PositionX)^2) + ((part.PositionY-part.Pins(1).PositionY)^2) + ((part.PositionX-part.Pins(part.Pins.Count).PositionX)^2) + ((part.PositionY-part.Pins(part.Pins.Count).PositionY)^2))/2
If partFi<= 5000 Then
part.Labels(x).Height=47
part.Labels(x).LineWidth=4
ElseIf PartFi <= 10000 And PartFi > 5000 Then
part.Labels(x).Height=47