PADS 自动排位号脚本

dsldsldsldsl

! D% N1 k* b7 Q: U
4 L4 Y9 C/ V' X  W! N# ]5 |        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
8 Q# O  J/ E+ J        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。
) f' q% U! T" n- G# a

) l% S" m) d  ]/ e) W1 _
. Z# b% X& M- ?$ b6 o, N+ _0 ?5 Y
% p- K& L. w1 ^. U9 o# ]. c

2015-5-29 jimmy补充：
* Q0 a" [9 f$ s4 h+ _

' y7 e: i7 U8 E$ e9 T: S《脚本使用方法》


1、加载脚本：
( ?. `  |7 S( d" Q
4 i3 j7 t. ~$ m( T- u' s
# {6 W1 k  r. O1 J* ?PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

; F- [3 ~9 Q0 I, E$ r4 k+ }
2、脚本使用：

" f$ F: R* O; `3 k4 c
, E$ n$ f$ g% J& @, fTool->Basic Scripts->Basic Scripts->Run.

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
一下排列到26层，就有点混乱了：请看图片

8 f, \0 @8 A" b: b9 n. n8 F你是说，你放在底层的器件的位号也跑到 Silkscreen Top 层了吗？ 之前还没遇到过，我家里的电脑装的是 9.3的，也测试过，不会这样。2007我也测试过，其他版本就没测试过了。不过你可以试试这个，会不会解决你的问题。放在装配层你的意思是放在 Assembly Drawing Top 和Assembly Drawing Bottom层吗？这个也是可以的。

paolo

测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

ppw2005

Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
8 E0 j, f5 t- a0 h, K: cDisplayColorsSetupDlg.Ok.Click()

Application.ModelessCommand("u")
5 A8 |+ e( H: p" BDlgModelessCmd.Command = "um"
  {# z5 I4 M4 R9 V# X$ l5 |, {DlgModelessCmd.OnOk()
" o( f1 Q2 {/ L
3 ~( ], d3 T5 e7 H0 lApplication.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
! T: V7 M2 f1 x4 i, PDlgModelessCmd.OnOk()
* V# N; B1 [1 ^( |4 t
/ F$ {4 x3 q. n* O$ Y: m* EApplication.ExecuteCommand("Filter")
9 H( q; Y8 N: k! z- j) JSelectionFilterDlg.Nothing.Click()
! t& A/ t$ m4 k; KSelectionFilterDlg.SelectionObjectsDlg.Parts = false
' q# p% p9 S/ ^SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
5 x4 X$ D4 M) I1 _- N$ RApplication.ExecuteCommand("Select All")
6 P! u) Q4 ?2 k# UApplication.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
! j. |  ]1 {7 |  C, O, s1 Y* Q$ SAddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
& }8 R) T% C# \9 v; H& dAddNewPartLabelDlg.Size = "30"
+ c& \/ y! Q7 J# t4 r8 nAddNewPartLabelDlg.HorizontalJustification = "Center"
# S3 `  d; @- c: E# fAddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
4 n* W6 m+ z' |% v+ BApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
9 `2 L' K- Y# o, m& K5 n/ nAddNewPartLabelDlg.FontFace = "Tahoma"
5 l% q$ G9 S7 f( \AddNewPartLabelDlg.X = "0"
7 g+ T3 |1 ~0 J  {4 R7 DAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
8 r* J9 e' U8 c+ \3 e; IAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
9 r: L, g& u2 n! w7 aAddNewPartLabelDlg.RightReading = 1
8 N2 d% }  _9 k3 yAddNewPartLabelDlg.Ok.Click()

0 g2 ?& R# o8 {5 j' ~

7 U1 `1 Y: b5 k' b+ @4 N能按这个宏命令写一个吗？？

i265

不错，希望可以帮到每次排位号的痛苦

dsldsldsldsl

修复了使用时要切换到 mil 为单位的 Bug，现在使用时不用再切换单位

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
/ S+ v8 C+ L5 Q. APADS9.0支持吗？

. ^  K. _/ q9 ^) r7 ]1 j$ I还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

这个功能很给力，谢谢分享!

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
PADS9.0支持吗？

  ]7 A" d- x0 l$ N5 D经测试，PADS9.2支持，9.0应该没问题

1_home

这个不错，楼主多开发类似的东西！

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
% v3 F1 w& c1 }- h% _% f" M经测试，PADS9.2支持，9.0应该没问题

9 ~( d9 X$ n* `# ]0 I* T9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
9.5怎么样？谢谢

我电脑没装9.5的，要是谁装了的话可以帮忙测试一下，使用方法很简单的。脚本这东西应该是通用的。

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
" S! Q2 R; C6 ]" z- A1 t( @1 G测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

可以的。为了便于阅读，我把位号的方向调成了从左到右。因为一般同一块PCB上位号不会超过两个方向，如果各个方向都有，不便于阅读。附件这个脚本可以让位号随器件旋转而旋转。