PADS 自动排位号脚本

dsldsldsldsl

! ?# W2 m! f( H1 a; t
        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
+ \9 G$ _( b2 G; N$ d        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
3 Q/ c1 }1 e, D. ~( D! k        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。
* c  L: a8 p0 w& z3 e8 e4 R3 q
1 v5 s' A0 F& X/ @1 {. }
5 i3 _! n4 L# @6 `, r; O3 j


+ A) _3 v5 T1 Q  o1 [/ \% t! D" y0 d
; K3 }1 H& _& O  G* l5 j" K1 N2015-5-29 jimmy补充：
9 }! h3 ~) c" o6 q/ W2 B

: s* q  H5 I" d1 `《脚本使用方法》
; e9 x, y0 @1 q

1 I3 G) [+ Q. ~# a) i) B1、加载脚本：


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


6 z; b/ P, g$ C. y' r2、脚本使用：
3 B3 L- _1 w3 y- z

, |1 f( H7 b! J9 a6 e) dTool->Basic Scripts->Basic Scripts->Run.
2 h9 i# A' C5 ]
- L% n$ \2 ]8 m0 K

dsldsldsldsl

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

) ^8 x5 v9 x) w3 x* `你是说，你放在底层的器件的位号也跑到 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"
8 f  `* ]8 r9 ~# [: [DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
4 K) t9 {; v3 P' FDisplayColorsSetupDlg.Ok.Click()
' M( @' O5 v9 e
Application.ModelessCommand("u")
DlgModelessCmd.Command = "um"
7 b- ^9 M, w" D: ~DlgModelessCmd.OnOk()

; E; _1 d" b) CApplication.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
& @5 r! j& Z, ~8 I) o/ S3 fDlgModelessCmd.OnOk()
' Z5 q# m% w8 ~0 A. v
Application.ExecuteCommand("Filter")
8 ?7 O' i" Z  x  _. S+ JSelectionFilterDlg.Nothing.Click()
% {) X' I% c9 u/ m( v& p5 p! B0 XSelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
$ l6 L* l* W" }5 }, a  c4 r- C! \SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
& K0 p  i9 ?, @. G& B2 WApplication.ExecuteCommand("Edit Delete Group")
/ Y. D- Z) ~9 \Application.ExecuteCommand("Quick Filter Components")
$ r& c  K" p6 l/ p4 {Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
) z; h, l& T, {1 M; H- h  U% ]+ {AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
9 C5 W, Y/ u, n9 E9 LAddNewPartLabelDlg.VerticalJustification = "Center"
) X% f% W8 Y% e2 {. hAddNewPartLabelDlg.RightReading = 1
$ L' K! C1 E0 T: I  {2 o; eAddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
2 t2 S$ j' u7 D9 L$ h0 ~AddNewPartLabelDlg.FontFace = "Tahoma"
$ _! R6 V7 _- a! K. z. i9 pAddNewPartLabelDlg.X = "0"
& o: f7 ~6 u8 s( r9 |7 U+ S# g! VAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
3 z% }0 d$ ?- ]& `+ H" ~AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
* K. J- x8 @' o% M. g
# j' o7 U" m- I2 S

能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
/ M/ h1 k0 f8 r/ z* CPADS9.0支持吗？

3 g- y. s6 n4 M还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

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

$ M: C) B& ?% w; ?. ~" u经测试，PADS9.2支持，9.0应该没问题

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
( [0 g7 h' w; s& u( `经测试，PADS9.2支持，9.0应该没问题

9.5怎么样？谢谢

dsldsldsldsl

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

2 X) x' p% a: h- ~我电脑没装9.5的，要是谁装了的话可以帮忙测试一下，使用方法很简单的。脚本这东西应该是通用的。

dsldsldsldsl

paolo 发表于 2014-3-1 16:47
, `7 B7 t/ _9 i5 @6 J" L测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

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