PADS 自动排位号脚本

dsldsldsldsl

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

' s& X& z" A8 u* {3 Y4 a
& L9 `7 J( |# g9 n- j


5 N; n& T/ f; M7 Z9 c$ g. |
2015-5-29 jimmy补充：


% E2 P, W2 W# M, J0 F0 O# S5 d$ _0 V《脚本使用方法》

, l  M7 O  L7 O) }& l
1、加载脚本：


PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。


2、脚本使用：
8 R5 u- A( C3 Y: }
: t  s* k. m4 ?
) W' @3 K# B) ^- N1 |6 M/ OTool->Basic Scripts->Basic Scripts->Run.
  A/ a8 n( ^( n: V
: |* k: t1 z- a6 F/ d0 }: J

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
8 O  X: _$ x9 n6 N- c0 B' |9 \一下排列到26层，就有点混乱了：请看图片

你是说，你放在底层的器件的位号也跑到 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"
4 w. Q: V/ |2 K$ {: M1 H* XDisplayColorsSetupDlg.Ok.Click()

Application.ModelessCommand("u")
DlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()

Application.ModelessCommand("z")
0 c* z+ \/ M& x7 oDlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

5 X; Q% x5 e# IApplication.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
" i8 ?8 P( V) Q; KSelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
: m& z& }. R0 K! A( t/ zApplication.ExecuteCommand("Add New Part Label")
& {, S4 C$ w" H& i5 lAddNewPartLabelDlg.FontFace = "Tahoma"
( ~$ J3 Z" d" f! X+ s. h3 b9 G$ i, HAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
, M. X2 O+ m" B; x4 Q( aAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
, P. ^3 a% ~6 e6 n/ p( HAddNewPartLabelDlg.RightReading = 1
# w1 O4 [6 D" jAddNewPartLabelDlg.Ok.Click()
' f  g4 r- e  KApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
& j0 g! b3 @* A7 d) lAddNewPartLabelDlg.Attribute = "Value"
# \! {# h( u0 d1 q# b3 A) D' [4 NAddNewPartLabelDlg.FontFace = "Tahoma"
8 c* n6 V8 _: @+ l! y- e$ n7 Y4 aAddNewPartLabelDlg.X = "0"
# T; r: `- D7 d/ Q! m- X. }" qAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
6 z. B, _6 _$ a- |  |& ^, ~. f0 B0 oAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()

+ ?0 C! `) T% c* z9 D5 t) U
9 ^. }) }) N5 r" e  |" p
: f  t' O/ k  g+ }# I3 l* z2 Y. y能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

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

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

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
  ?" N- y+ @, ^- C9 |* tPADS9.0支持吗？

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

1_home

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

jackli

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

9.5怎么样？谢谢

dsldsldsldsl

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

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

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

. c% Z- R) u3 T" ]" e; c9 ?可以的。为了便于阅读，我把位号的方向调成了从左到右。因为一般同一块PCB上位号不会超过两个方向，如果各个方向都有，不便于阅读。附件这个脚本可以让位号随器件旋转而旋转。