PADS 自动排位号脚本

dsldsldsldsl

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

: x7 d/ G) |* A$ ~# j' x% G


4 t7 |% i6 C* h! |8 E3 K3 T! B: [
& b; r: J. ]" J+ o6 w4 q- @7 j
. e- C; }2 t3 j8 E. O2015-5-29 jimmy补充：

5 d6 |; m# C4 D4 o6 ]. h3 l
: T; ~! P: H6 G' s# l《脚本使用方法》

3 H0 X" p  k: D+ c
- V$ U7 J* n- u+ r8 B: j1、加载脚本：

6 J- M- w/ J- e: ?' r, R
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
4 T* J" X/ j9 {. w8 B9 Y9 ~
( {7 _8 W% v( X+ M3 S
2、脚本使用：

  a- u. T9 l4 L, A: V% ?
  P& y, O% g: xTool->Basic Scripts->Basic Scripts->Run.
& h# V' A) O" m1 a9 s& E
2 z! ~$ P0 b; E' ^0 ]- t& d

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
! ^# j! Z; ^1 [+ [3 u9 `; C一下排列到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"
% v  W. A/ V( ?" n1 t5 U! QDisplayColorsSetupDlg.Ok.Click()
% x2 T/ D) x4 `7 Q8 \
2 V% w4 L# N5 o' w, ]Application.ModelessCommand("u")
DlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()
6 W% U" Z; ]( X. b0 h4 J
6 I3 R- }# o( n5 R3 p# CApplication.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
* {% C" f1 y/ e& jDlgModelessCmd.OnOk()

  R) H8 [$ o) o; X/ k8 \( XApplication.ExecuteCommand("Filter")
- M( _% `# Y7 E+ xSelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
6 U& M7 H' y9 c8 l' X$ s" n1 oSelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
+ N/ d0 v, \" J) sApplication.ExecuteCommand("Select All")
: I1 L' }6 S# I( `8 }Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
. ?- @" K3 i0 O$ X5 j  k0 OAddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
& ?3 v5 i9 ^9 T( A) c, J- D9 uAddNewPartLabelDlg.VerticalJustification = "Center"
# G, P8 }5 x3 C- N& nAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
9 `  D" a8 z# YApplication.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
1 h7 d; I2 F+ S  TAddNewPartLabelDlg.FontFace = "Tahoma"
& L; L, b9 ^2 }AddNewPartLabelDlg.X = "0"
* Q( o+ O6 P+ X- O5 MAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
' I9 q2 u& H( k) E! e3 f* I7 E5 \AddNewPartLabelDlg.VerticalJustification = "Center"
+ L$ y) _/ I* ]  D# w0 ?AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
$ k- e; F' x. ]9 m$ U# b


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

tanke

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

xxzzhy

好用

xxzzhy

非常感谢。挺好用

xxzzhy

好不错的。谢谢
: M9 `1 F& n3 ?8 S

dsldsldsldsl

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

dsldsldsldsl

苏鲁锭 发表于 2016-5-11 15:45
谁叫你一年才刷新一次

' q! d+ a: C6 [不敢上来，上来了老想以前的工作和事情

苏鲁锭

谁叫你一年才刷新一次

dsldsldsldsl

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

xode

很好，谢谢分享

dsldsldsldsl

苏鲁锭 发表于 2015-9-6 16:16
hoho，嚎~~~

6 V7 ?, e8 u4 s: S; }. ^

苏鲁锭

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

hoho，嚎~~~

dsldsldsldsl

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

jimmy

使用方法：
1 `+ e0 B$ {5 J+ Q  e2 S6 t
1 [  }' w* a3 l# u7 T7 f/ Y加载脚本：
' R0 l7 s6 D: w) \4 DPADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

7 X0 q# q4 p! k0 p7 X" B' B; q脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

424252161

怎么运行...