PADS 自动排位号脚本

dsldsldsldsl

        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
9 ^7 K' i8 R" ]3 o- n0 I5 i        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
* I* e& E4 y% c        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。
8 g( H) y. }1 t1 l% X+ o' n$ ^
" s* R+ p5 u+ |& l
) h9 V$ H/ s& S" C: L# E( f4 d
$ g1 ]9 y8 X1 b
, j. v1 C# ^9 z; H: b0 Q5 q
2 r2 ^( H8 Q% k
9 R% Z! L, j1 ^2015-5-29 jimmy补充：
8 q( L# ]" {$ B, J3 b! T7 j% \1 t; F

《脚本使用方法》

; H/ R/ H  S# t, w  L; Q0 T2 ]
% t2 i- z5 i( L) X. j1、加载脚本：

0 q3 x% ]1 I* C5 J6 \: L9 m
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。


2、脚本使用：


( V% S& M, V- F  k8 m2 c1 ]& I, UTool->Basic Scripts->Basic Scripts->Run.

! N/ c' z9 ]/ L5 X# e& a

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")
. B) B6 a; O! ^6 E; w$ L3 O2 qDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
1 A2 `; K# F" h0 N! IDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()

( @" [3 s9 m. T# w0 YApplication.ModelessCommand("u")
/ D0 Z7 S; v9 b3 RDlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()
! `* `0 f  d/ f0 j
Application.ModelessCommand("z")
# y. p3 u# ~' {) P6 ?; xDlgModelessCmd.Command = "zz"
/ S# ^8 z( I; e$ BDlgModelessCmd.OnOk()
& z! \' _% L. ?$ M, `2 u3 K
. B& ~0 A) U( ^2 J9 }' H& fApplication.ExecuteCommand("Filter")
" ]3 {, I# D1 V7 eSelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
; W( ]; L/ h$ s) H9 F7 q- TApplication.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
7 n( Y3 G4 G( v: P! zApplication.ExecuteCommand("Select All")
) E. U9 w  h) H, y  n& E3 \# W( JApplication.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
. t3 L6 ?2 w6 C% I0 ~' G  vAddNewPartLabelDlg.Size = "30"
( j" W. }4 K8 z$ F7 gAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
/ z5 z! u1 v7 T- nApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
5 Z) |/ K/ y% T! A2 }7 ]4 X7 w3 OAddNewPartLabelDlg.Attribute = "Value"
- B' Q0 v: w# C# q2 e% o, TAddNewPartLabelDlg.FontFace = "Tahoma"
8 |- n/ P* G* y: BAddNewPartLabelDlg.X = "0"
( G$ i" o- A0 z+ D9 G' {3 cAddNewPartLabelDlg.Y = "0"
* e% y1 F' p; ?$ ]9 E* ^1 J. @/ |AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
: A& i7 ^$ P6 [) ^3 V5 I, yAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
: A% z, p8 Q+ e+ i4 L, U
/ \+ b/ c# ]% {+ H" S
" z# W/ s! A2 x3 F
; X5 J. ?6 U# G4 Y3 D" g能按这个宏命令写一个吗？？

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
PADS9.0支持吗？

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

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
2 [- S+ w7 T9 v7 @6 o( u1 R; x3 z( }# G经测试，PADS9.2支持，9.0应该没问题

( R5 Y* I% p3 S9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
) k8 k' ^+ w1 O3 A. s0 d0 h9.5怎么样？谢谢

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

dsldsldsldsl

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

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