PADS 自动排位号脚本

dsldsldsldsl

: V9 L8 s  `: U
! b8 u; Z7 `; W) I% M0 |& v: E( ?        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
" v0 w3 \; t# R5 j6 Y( |0 L3 f        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
& c9 k# q8 g+ ^# ]6 A1 G4 h" |, t" ]  T        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。

2 _" K0 r$ y: F) L  D

- t0 D; Z1 U$ E' R6 D! [; }. {

( I1 f! \& ~2 J  B9 K7 @% x# s
2015-5-29 jimmy补充：


《脚本使用方法》

, C: ?0 l9 o! ~8 Y
2 r6 O( }6 t" b: S5 Z/ |0 W8 k1、加载脚本：

) }- X. x1 E! L2 `% A) X$ r3 Y
$ u$ V$ S- \2 M1 `& WPADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

" q& v; E& X# l# r
/ T6 V2 s4 R* s2、脚本使用：
3 o0 ]- @+ d1 U  U- S% u& F
' @" \5 P$ s# b. w
Tool->Basic Scripts->Basic Scripts->Run.

/ m& l. ~+ }" _4 Z  W& v& Y

dsldsldsldsl

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

* N: M; O+ `3 K+ |3 J4 g) O你是说，你放在底层的器件的位号也跑到 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"
1 j& i; A" T9 Q: {DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()

& w; D$ P% R+ }+ yApplication.ModelessCommand("u")
DlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()

Application.ModelessCommand("z")
. {5 B: B# d$ t5 DDlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()
- x4 \8 V4 l" G: L/ A6 [) B. X
8 }1 M" @) i: @' eApplication.ExecuteCommand("Filter")
& ~. ]  V% H, x' J7 sSelectionFilterDlg.Nothing.Click()
8 H- v& x3 r; H. ESelectionFilterDlg.SelectionObjectsDlg.Parts = false
7 O1 s- @  k0 r* k& |% g9 {SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
) u, P7 A+ s# T, N9 M0 GApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
7 x$ o, Z. f- w1 h: ?/ ZApplication.ExecuteCommand("Select All")
: _" D& {1 a1 ]/ x8 ?" z( k6 CApplication.ExecuteCommand("Add New Part Label")
: I8 X5 q" k! |8 M% [AddNewPartLabelDlg.FontFace = "Tahoma"
4 h  Z% z9 X- u/ TAddNewPartLabelDlg.X = "0"
' l# W* T9 G8 X  U* \2 {" sAddNewPartLabelDlg.Y = "0"
3 W( m1 @4 ^7 W7 Y7 tAddNewPartLabelDlg.Size = "30"
; ?( V% T& |6 z! \AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
. ~) Y$ q. i6 L" r' Y. H- [0 SApplication.ExecuteCommand("Add New Part Label")
' [6 k* _6 r: z/ ~; e$ L$ `0 i  n! I, FAddNewPartLabelDlg.Attribute = "Value"
AddNewPartLabelDlg.FontFace = "Tahoma"
: |4 P. u! b0 KAddNewPartLabelDlg.X = "0"
  t" ~# N- a: W4 ?3 y; A( KAddNewPartLabelDlg.Y = "0"
1 m6 c$ P0 B; ]" @AddNewPartLabelDlg.Size = "30"
$ X  a* D( g" z+ ?5 xAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
: D3 J. Y  }% [1 @AddNewPartLabelDlg.RightReading = 1
6 @4 _! u8 ~) `( x+ J# FAddNewPartLabelDlg.Ok.Click()



' O: e7 J/ r  c/ M& \$ K; ^# S7 u; H能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

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

6 ]3 ]- i) p% J  Q  {& h  B  T还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
$ C1 D# D7 _) }+ r/ X5 J. |PADS9.0支持吗？

经测试，PADS9.2支持，9.0应该没问题

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
: `  i) \+ A8 l, x* ?经测试，PADS9.2支持，9.0应该没问题

9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
* i4 N  ?! r9 ~: ~; t, w5 e9.5怎么样？谢谢

; z; l1 G* x! k/ f, x我电脑没装9.5的，要是谁装了的话可以帮忙测试一下，使用方法很简单的。脚本这东西应该是通用的。

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
2 m+ E, [$ X& s/ k& C7 e0 B测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

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