PADS 自动排位号脚本

dsldsldsldsl

7 M9 {8 K- f1 z2 {7 x' d5 ]
        最近写了个  PADS2007 的自动排位号的脚本，现与大家分享。
1 S8 l* d7 L2 B! f- k' e9 Z- r9 u* s        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
( r1 h- A6 `1 C+ C        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
1 L& `% F6 U4 U0 [7 @* _) w8 m8 E        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。


8 u% i6 y# s9 u; g# C
& B' X8 u5 m+ G# P& l, @5 `


2015-5-29 jimmy补充：

, z7 a, D- ]1 m/ M5 T
《脚本使用方法》

( {1 H: i/ K/ Z" F1 ~
1 W+ W7 r2 D% [: o, _# t, Q/ k  `1、加载脚本：
; i9 p: p" e3 N# B& d( ^9 a! P: L
  t! u: O# z) Y2 e5 `; a0 x
3 P" S5 k) Q, u* h* N9 s5 N; k! APADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

9 I9 d: K5 S& G0 X& P
+ g3 q; n* O# T- s1 {2 a& Q2、脚本使用：

3 }8 i2 [1 S3 d$ E) H
Tool->Basic Scripts->Basic Scripts->Run.
! U7 C. I* S0 {# D7 }2 |
; {& c# j! C8 t6 G

dsldsldsldsl

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

+ h5 u# U! r7 b8 z2 @你是说，你放在底层的器件的位号也跑到 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"
0 V; {( n6 O6 k5 J3 g6 X; bDisplayColorsSetupDlg.Ok.Click()
  m8 b" b1 z$ \8 }
+ q# s. B& l. q0 N9 ]Application.ModelessCommand("u")
# B3 \! I- o! S3 J) B" Q; `DlgModelessCmd.Command = "um"
$ S  m$ _& Z, k4 K+ XDlgModelessCmd.OnOk()

Application.ModelessCommand("z")
, i& t; v/ n0 K( ~9 N" KDlgModelessCmd.Command = "zz"
4 F( N* ~# A3 |  ~DlgModelessCmd.OnOk()

Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
2 Z; ~9 k* w/ b- J' nSelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
# P, I# w+ _* T' }SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
4 ^" l# n4 U0 L% R) x% M& DApplication.ExecuteCommand("Edit Delete Group")
% a7 b3 M5 q4 p9 W/ ^6 m6 t7 a5 @Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
9 ?, G: E/ F6 Z0 i5 Y& B8 CAddNewPartLabelDlg.FontFace = "Tahoma"
# }. z8 ^. Q+ h- R6 F1 v+ v( kAddNewPartLabelDlg.X = "0"
* E+ w* b& w9 \0 S% v9 u+ eAddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
2 S. P$ R+ ?! C7 {0 pAddNewPartLabelDlg.HorizontalJustification = "Center"
0 ?3 i4 x, W/ A- t' _8 LAddNewPartLabelDlg.VerticalJustification = "Center"
3 a& [% S# S- ^9 ~9 E4 C( M% aAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
8 A3 j4 v5 m% \& p. yApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
; e! F% A6 y9 t* \! A1 x2 UAddNewPartLabelDlg.Attribute = "Value"
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
/ ?% p  x6 A# ~# @AddNewPartLabelDlg.Y = "0"
+ _9 g1 }4 l9 V1 C* `0 @  MAddNewPartLabelDlg.Size = "30"
' u7 ]- ]& p7 i6 A2 MAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()



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

tanke

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

xxzzhy

好用

xxzzhy

非常感谢。挺好用

xxzzhy

好不错的。谢谢

dsldsldsldsl

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

dsldsldsldsl

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

( w0 e5 i; h5 q9 Q, M不敢上来，上来了老想以前的工作和事情

苏鲁锭

谁叫你一年才刷新一次

dsldsldsldsl

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

xode

很好，谢谢分享

dsldsldsldsl

苏鲁锭 发表于 2015-9-6 16:16
0 x1 k" ^/ P+ o9 ^' [- i, z, Zhoho，嚎~~~

/ q- n0 X/ R" A4 o
7 j; [  m( V) |+ j6 e: k3 d- Z

苏鲁锭

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

hoho，嚎~~~
6 H$ \; x0 x/ }+ c" t: n& F# [! A

dsldsldsldsl

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

jimmy

使用方法：

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

# D3 F- H/ |4 Q4 M% n4 ?- N脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

424252161

怎么运行...