PADS 自动排位号脚本

dsldsldsldsl

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

' I4 H  v6 I: [. B



5 A' C) y( G: `) X2015-5-29 jimmy补充：
4 G" O' x* ]: j. K. g

$ i& |" O' \+ V" P: K, k《脚本使用方法》
! O9 E9 S7 Q9 B- O" ^& ^7 F/ n
9 O' g$ K$ M# M
1、加载脚本：


PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
4 ~9 m0 T9 B' ^9 M( x; c

4 x2 ?- P/ x+ R* y+ z2、脚本使用：

$ {! ~8 m! {1 R' q" h9 P
Tool->Basic Scripts->Basic Scripts->Run.

4 n3 u/ A; M6 E% Q) h4 P

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
) i% M) X' L! L# g7 Z4 d一下排列到26层，就有点混乱了：请看图片

# c7 \; ~, D+ U; O; r你是说，你放在底层的器件的位号也跑到 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"
  ~% j$ y0 Z/ A# sDisplayColorsSetupDlg.Ok.Click()

- ^- \% w8 v1 e8 ?) A! fApplication.ModelessCommand("u")
3 c5 w) W) r; sDlgModelessCmd.Command = "um"
# \# M. l% n* q/ N- ADlgModelessCmd.OnOk()
8 A/ w* L# m8 L' j2 Z
. W6 ~, x7 N; m. k5 {Application.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()
5 U6 W$ y9 V' a# ~, P3 P
Application.ExecuteCommand("Filter")
- U4 g  x) O6 [& X% J; USelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
; J/ h6 _& L: {: P4 dSelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
9 O7 M& r3 f' u4 |; A! h8 ~8 v$ r  XApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
, n. S4 I2 M: I' i1 A) DAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
; t4 R% g6 x/ G- u9 k8 Y' nAddNewPartLabelDlg.Size = "30"
, @/ W# W+ e% [5 Z. l  AAddNewPartLabelDlg.HorizontalJustification = "Center"
  o1 c. r3 j. X5 ]AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
/ d& B) J8 C! N8 r2 I. a, _AddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
2 k7 l! t' l/ uApplication.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
/ s, z3 G# ^! U7 k# B8 R! I) \) h: aAddNewPartLabelDlg.FontFace = "Tahoma"
7 u6 M/ v6 e% M; g. pAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
& q, P, m, ^0 [" i5 @, [AddNewPartLabelDlg.Size = "30"
9 G  Y( v8 Z$ D) V9 m) Q! F7 V& f4 K# JAddNewPartLabelDlg.HorizontalJustification = "Center"
, |& P9 u$ `& k. |2 U1 qAddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
/ b; w9 ?; V& L& SAddNewPartLabelDlg.Ok.Click()

: b. s0 ~/ p1 c" Y
0 m& h  a3 {8 L( {3 L! e
" b9 E: Y( K$ X0 C6 u能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
; ^1 ]! }$ A+ S" G- G9 sPADS9.0支持吗？

) g% o) u" w: r7 V还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

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

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

1_home

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

jackli

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

& [; Q: i0 X" h1 Z; q: j2 i9.5怎么样？谢谢

dsldsldsldsl

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

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

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
# n" R9 r  S+ K' v$ Z6 a测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

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