PADS 自动排位号脚本

dsldsldsldsl

2 ?5 N) e2 F* c+ ]) p/ M
        最近写了个  PADS2007 的自动排位号的脚本，现与大家分享。
* z: }# m/ ?3 x+ v        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
7 B0 t9 w' f& {& `" W4 M        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。
0 N1 \3 L# k, ^9 A
! b, e: U- Y" s8 J+ `; m

7 w5 d' V; A! c. M. f4 ~& c

( d* p1 h1 u# [, Q7 Y. U1 P
4 b3 e( C! _; A& }4 e, v4 t' r2015-5-29 jimmy补充：
/ c) g/ \& B4 l& E. i

《脚本使用方法》


* J* z, e* _% r; ^$ |+ a: l1、加载脚本：


8 C5 J4 w/ M: D! N2 zPADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。


2、脚本使用：
4 _2 R, ^/ b" F" R; S1 C

Tool->Basic Scripts->Basic Scripts->Run.

: z' f/ x7 t. j) E$ ?- m

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
. w+ d* _. }! }+ r, G; c, s! y一下排列到26层，就有点混乱了：请看图片

你是说，你放在底层的器件的位号也跑到 Silkscreen Top 层了吗？ 之前还没遇到过，我家里的电脑装的是 9.3的，也测试过，不会这样。2007我也测试过，其他版本就没测试过了。不过你可以试试这个，会不会解决你的问题。放在装配层你的意思是放在 Assembly Drawing Top 和Assembly Drawing Bottom层吗？这个也是可以的。

paolo

测试没问题，如果能识别封装方向位号能跟着旋转就很完美了

ppw2005

Application.ExecuteCommand("Display Colors Setup")
7 _' B, r: n7 QDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()

: {0 g: R& J' B" U2 g- {Application.ModelessCommand("u")
DlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()
( Q- {+ U& }3 l( V4 u, _& E
Application.ModelessCommand("z")
! d+ k" ^7 t8 N0 `+ ~( ^DlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()
% o( [- y$ w( f) g! p* I6 X
  f7 L: D0 E+ G5 W6 h: V( l1 zApplication.ExecuteCommand("Filter")
5 e6 L, V; z" N1 aSelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
3 |" ]! @. d. F7 x# E* }SelectionFilterDlg.Ok.Click()
) b* x3 U$ L6 h4 M  Q% `3 MApplication.ExecuteCommand("Select All")
& r6 k  \6 V$ [7 W  X+ k/ \7 k1 ^Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
. e" R8 l# k$ O. l) nApplication.ExecuteCommand("Select All")
  |, M6 p% `" |5 W: s* [Application.ExecuteCommand("Add New Part Label")
+ O8 @( p) E" K; V" ~0 a0 B! eAddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
! H$ p1 D1 k+ D( jAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
5 o0 o6 d2 Y, I; w6 ^5 j% q  C$ ^6 [AddNewPartLabelDlg.VerticalJustification = "Center"
& M8 f/ f  Z. B: IAddNewPartLabelDlg.RightReading = 1
; r/ X) G+ H/ A5 A% [6 @* }AddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
. [1 |" `4 t- c! a$ I; TAddNewPartLabelDlg.Attribute = "Value"
+ F$ U" _$ W- N( dAddNewPartLabelDlg.FontFace = "Tahoma"
4 M8 g5 ]4 G# y# V- W7 y6 W! _3 _AddNewPartLabelDlg.X = "0"
1 C% S1 H4 K8 d  M3 S2 V7 ZAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
! K. b2 B$ F6 e& N) XAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
( j. J3 p" U  o' uAddNewPartLabelDlg.RightReading = 1
8 D8 U& J* x% M. z! z8 a* |% i( RAddNewPartLabelDlg.Ok.Click()


4 c2 c9 x% U, A7 A6 i
5 A$ O7 O9 Z  r; P能按这个宏命令写一个吗？？

tanke

好东西好东西，可惜威望不够啊

xxzzhy

好用

xxzzhy

非常感谢。挺好用

xxzzhy

好不错的。谢谢
3 C$ l& d2 e, v9 ]

dsldsldsldsl

最近修的iPad Air2，哈哈...

dsldsldsldsl

苏鲁锭 发表于 2016-5-11 15:45
! }" l( W9 N; p4 F! n6 B2 J& L: {; B6 }1 T谁叫你一年才刷新一次

( _. G% Q7 ^# v: V% ~2 t不敢上来，上来了老想以前的工作和事情

苏鲁锭

谁叫你一年才刷新一次

dsldsldsldsl

离开论坛也有一两年了，你们过得可好？

xode

很好，谢谢分享

dsldsldsldsl

苏鲁锭 发表于 2015-9-6 16:16
! _1 L+ `7 X: `+ F6 dhoho，嚎~~~

8 t& w) N* C& |) c" u5 K) q

苏鲁锭

dsldsldsldsl 发表于 2015-9-6 15:13
哈哈，好久没上了，各位好！

hoho，嚎~~~

dsldsldsldsl

哈哈，好久没上了，各位好！

jimmy

使用方法：

' H+ r, }2 q# c加载脚本：
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
) t, d6 M+ }: w: S0 C8 [
脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

424252161

怎么运行...