如上圖所示，圖中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