PADS 自动排位号脚本

dsldsldsldsl

3 n8 ]6 n4 P( J& u- k
$ I8 ]# J8 D% [; L; ?        最近写了个  PADS2007 的自动排位号的脚本，现与大家分享。
        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。

! e' s+ h" b3 j1 o( M& c- @



6 U1 V  `# n4 u  X/ ]( d3 x1 n
2015-5-29 jimmy补充：

$ [/ ?) p; p. m
《脚本使用方法》
0 _+ g: h! c* Q

1、加载脚本：

! f  W& Q! i  x* E
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

3 |7 m; A% Y* n7 Q+ V0 Z% h. [
2、脚本使用：


5 O( q- y, I2 U+ tTool->Basic Scripts->Basic Scripts->Run.
, u; ], P0 s1 ^) C3 F: C* G5 l8 A
  w3 a( d/ v& L) M- ]+ v- R( @

dsldsldsldsl

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

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

paolo

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

ppw2005

Application.ExecuteCommand("Display Colors Setup")
  n$ j* Z" _6 jDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
. Q0 a, z% `% X! gDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
& P& |( A# J. c! @% kDisplayColorsSetupDlg.Ok.Click()
  I3 M; L" t( T0 _" O
, p' G8 n- V$ V! _2 |" O! E5 XApplication.ModelessCommand("u")
: r, s; w0 y4 |! {1 A+ fDlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()

Application.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
- z& X; f0 s4 t3 `. V% w5 jDlgModelessCmd.OnOk()

1 ]: q" M% z5 o6 UApplication.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
' N9 `3 c$ L0 Y6 j1 FSelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
3 f/ x5 j7 U4 @Application.ExecuteCommand("Edit Delete Group")
, u+ L8 Y1 t. ~) nApplication.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
) H! W: j% r2 b. ]* M: OAddNewPartLabelDlg.FontFace = "Tahoma"
$ @4 N8 E9 `$ `0 d* c# Z. d7 {( hAddNewPartLabelDlg.X = "0"
' Y" E5 N) \" _( }& U( C! vAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
5 T. [% ^+ r# y2 p  aAddNewPartLabelDlg.HorizontalJustification = "Center"
- H4 U* r+ F; Y- m$ f% rAddNewPartLabelDlg.VerticalJustification = "Center"
$ y% [( t4 G: l9 _5 F$ c  |- l& IAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
AddNewPartLabelDlg.FontFace = "Tahoma"
6 y5 p" e3 G( o" C9 X) tAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
2 L6 I4 c( u% f: e4 ]AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()

, D' Q3 l. V2 a1 b% W! ]

5 q' A* x4 S7 {# s能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
2 ^* I8 ~8 t7 QPADS9.0支持吗？

还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

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

3 W& I8 V) e" d9 Z7 M$ y- ^经测试，PADS9.2支持，9.0应该没问题

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
经测试，PADS9.2支持，9.0应该没问题

5 N4 u! g3 |6 K8 M6 G& y9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
- ]. g) h5 G5 h; n7 g/ V9 O9.5怎么样？谢谢

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

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
) O/ y! ]: c  Q. f& L. {2 h测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

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