PADS 自动排位号脚本

dsldsldsldsl

7 i; `4 z  w; N& G+ v% s, @
        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
2 [& K% h" d  m! W4 r2 x        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
# y: H8 e: m' @+ G6 \; h        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。

* B* I, ~: V$ h/ r7 }- @5 ~


0 Y6 V0 s: O) L: {

" X" ~, D8 x3 x$ B, p+ f* _5 y$ }2015-5-29 jimmy补充：
* B% m& Z; @' l8 k9 i) Y( k
! X* ?: h& P' b. ~4 U: \
《脚本使用方法》

0 m  [3 K6 Y' b2 K9 M8 O
/ O. k! Z1 h7 M) B, |. ?1、加载脚本：
: S7 ]; t/ Y) Q1 O7 ~& X6 q1 ]

' \4 i5 W& l1 {" S: @3 l9 e: sPADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

" V3 X9 s9 E# y' n% K( t3 f
( ^8 c: H/ V! K* }7 O) _2、脚本使用：


Tool->Basic Scripts->Basic Scripts->Run.
9 ~" ?! o0 {' S* }( J

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
5 c, c4 _+ d% k7 _2 D* }一下排列到26层，就有点混乱了：请看图片

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

paolo

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

ppw2005

Application.ExecuteCommand("Display Colors Setup")
3 C+ X0 z& c6 D0 E6 pDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()
2 V% L- W8 H& V: J' f
# l. z5 p5 o% v4 a9 w! M* Q9 IApplication.ModelessCommand("u")
+ i4 y' y$ x  zDlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()
  E5 n6 J1 B( V7 t
0 Q$ s6 d1 J4 C+ e9 q4 ]+ [* zApplication.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
$ r! \6 y! B2 A# V& l0 x+ ~SelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
, T  s: c# v: S, U! r7 MApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
8 f" a5 ^' @4 \/ W) QApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
0 \, U$ a9 M  ^AddNewPartLabelDlg.FontFace = "Tahoma"
* {# k3 M, ?( IAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
$ f) ~9 [' W( cAddNewPartLabelDlg.VerticalJustification = "Center"
8 B0 G1 d1 d3 x% FAddNewPartLabelDlg.RightReading = 1
& c( e* P, O" d; X/ d( q; NAddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
5 L% ~9 P# v& @  ~3 AApplication.ExecuteCommand("Add New Part Label")
) B# t# ]  c! n8 q; M5 UAddNewPartLabelDlg.Attribute = "Value"
* Z4 i, V9 g. k6 u, q) IAddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
0 e; U4 O% S" j! G% K2 E, pAddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
8 {8 M& A# `  S% i, dAddNewPartLabelDlg.Ok.Click()
6 T7 D+ ~" \1 N$ {


! A5 c" b# ^; z) h2 _* u能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

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

5 o) l7 Q/ b0 l9 ]- q还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
0 ~- L; x$ B9 x" f0 \PADS9.0支持吗？

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

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
& P/ P# |$ Y: k9 n经测试，PADS9.2支持，9.0应该没问题

6 }$ t: D9 Y0 \+ k$ M% u7 n9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
# M8 P9 [2 ~' R9.5怎么样？谢谢

6 M& p( g3 Z) h  V9 C) ]我电脑没装9.5的，要是谁装了的话可以帮忙测试一下，使用方法很简单的。脚本这东西应该是通用的。

dsldsldsldsl

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

2 O/ }* W( [, o$ z. w% F可以的。为了便于阅读，我把位号的方向调成了从左到右。因为一般同一块PCB上位号不会超过两个方向，如果各个方向都有，不便于阅读。附件这个脚本可以让位号随器件旋转而旋转。