PADS 自动排位号脚本

dsldsldsldsl

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

  i( F& U) u; X! x. i9 c5 F
( z3 S0 K- j! R8 K
* S4 M0 f2 J( U( S
) d: P% M0 _9 O, l
0 h, |2 x+ o/ _7 R
2015-5-29 jimmy补充：

* [) }( P# I" I- `. q2 D0 @& `' ~
0 i  j: D) K/ R/ _# }' z! F《脚本使用方法》

0 X1 Z4 g/ w* _: `
1、加载脚本：

0 b, |0 V8 J2 f, }* w3 W
: x- E% g# ]( L/ `3 `PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

4 T1 _6 u* {/ W6 T
2、脚本使用：
$ _) l. w+ d& x- q2 I4 L3 ^4 `

3 @1 x1 w7 X3 p2 f: V7 pTool->Basic Scripts->Basic Scripts->Run.
& X+ D/ V$ w; f
; U" `+ K- e  C; z# A: U5 ~) |

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
/ \& \; t, [8 t1 n' q: \一下排列到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"
7 d0 W1 n, S3 s. F; x  F8 z5 QDisplayColorsSetupDlg.Ok.Click()
+ M- J1 D; i% e, T
/ L5 o6 X, ?0 R$ G! w' a* Z+ g( FApplication.ModelessCommand("u")
! K& @2 V5 H1 ?. W, nDlgModelessCmd.Command = "um"
; y  S: Q4 [' xDlgModelessCmd.OnOk()

Application.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

1 @1 b6 m' R6 e& v% y6 ?$ K$ HApplication.ExecuteCommand("Filter")
9 b2 a6 z* @* X6 o& {% I( dSelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
# Y* d; e  I9 m  BSelectionFilterDlg.SelectionObjectsDlg.Labels = true
5 o3 ^) m7 M$ b8 Z& zSelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
' e7 @/ ~9 A. \& D) T+ kApplication.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
% ]( A# @- g9 Q* n9 V1 E3 T8 p5 hAddNewPartLabelDlg.VerticalJustification = "Center"
. f* j! [' f0 @- [. f, d3 NAddNewPartLabelDlg.RightReading = 1
' E" S! K1 @" W9 m' y+ HAddNewPartLabelDlg.Ok.Click()
& F9 w1 l9 T; d9 \3 N, ?Application.ExecuteCommand("Select All")
( M. b; b# ?$ e  U/ g) N. r$ K+ cApplication.ExecuteCommand("Add New Part Label")
: i" D9 O6 c: _* }; NAddNewPartLabelDlg.Attribute = "Value"
& N0 c3 Y" c) vAddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()



: y7 x; ~" L9 s2 S5 U4 p* S' S$ F) P能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

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

. L% `) `+ p/ D) {$ m还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
& a2 q* j; z: pPADS9.0支持吗？

% p4 P- t: ^( q4 D' @* W经测试，PADS9.2支持，9.0应该没问题

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
" l. Y9 u6 j/ _- i: ?5 p( @经测试，PADS9.2支持，9.0应该没问题

0 `. e% o; n3 F9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
, R5 P6 I( d1 r1 ^# S: z9.5怎么样？谢谢

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

dsldsldsldsl

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

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