PADS 自动排位号脚本

mingzhuchen2008

楼主辛苦了！

ppw2005

Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
/ q- Z& W5 \1 g) Y) p6 H% }DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
; Z8 z$ H* I& N+ gDisplayColorsSetupDlg.Ok.Click()

Application.ModelessCommand("u")
: ^8 |! p+ H& VDlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()
; A- p' [# @, c; r' N
Application.ModelessCommand("z")
3 T( v; r* I2 DDlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

) S5 w) J; V1 KApplication.ExecuteCommand("Filter")
( I. x4 a) Y" V8 i- Y0 iSelectionFilterDlg.Nothing.Click()
) U/ R3 h6 Z# q! z& {5 Y+ iSelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
; E% Z5 x  l# k; ZApplication.ExecuteCommand("Quick Filter Components")
, c# E$ O( k/ P9 ^Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
: l' c+ ?( H( e  x* A9 B% ?AddNewPartLabelDlg.Size = "30"
0 s! q  D1 i4 d0 i& d1 mAddNewPartLabelDlg.HorizontalJustification = "Center"
, B+ @  ]7 Y# I0 F+ C2 h. P5 YAddNewPartLabelDlg.VerticalJustification = "Center"
+ o) {/ l) B# [0 nAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
5 E. l: S. \  n5 w) xApplication.ExecuteCommand("Select All")
6 `: h7 M+ i( H; HApplication.ExecuteCommand("Add New Part Label")
1 f0 I0 O/ X; U" _6 l7 q2 _AddNewPartLabelDlg.Attribute = "Value"
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
1 @8 s1 z( p: X* n. [8 BAddNewPartLabelDlg.Y = "0"
" J, \' v  b/ cAddNewPartLabelDlg.Size = "30"
0 x) `9 L% ?& l3 J$ xAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
" _/ f1 X" o- r& Z* uAddNewPartLabelDlg.RightReading = 1
8 u1 n; q& f$ c- l5 o' M" D7 iAddNewPartLabelDlg.Ok.Click()
7 g. c3 Z& M; I  Z: q, J8 u
2 Q) k4 N, ^" G

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

dsldsldsldsl

ppw2005 发表于 2015-1-14 13:39
9 N/ o, c$ t1 u1 E5 B0 q6 XApplication.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("Visible On ...

2 W( t9 U% y( ?: C什么意思？你这不是写出来了吗？

苏鲁锭

# S5 r  D3 {# G' [" S. e3 X用了后位号全消失是因为PCB设置的最大层，脚本适用的是未设置最大层的PCB图（30层的）。
, G% r% \& L" F( x7 x0 k- W用后全跑到PCB图（0,0）点的没试出来。
用了后ref调整到器件的（0,0）点，所以建库时00点设的不统一或00点不在器件本体中心的话也不适用。

passion_2009

dsldsldsldsl 发表于 2014-3-26 10:26
我的应用场景与你的可能不同，我的就是要位号排在器件中心，ＰＣＢ上并不印位号，ＰＣＢＡ加工时会出会打 ...

我如果想把位号调整一个方向怎么弄啊。
% i8 `" Y  _- `

hepupupu

怎么下载不了

deligencetw

無敵感謝分享

liuwei1779

6 {' ?' x& p8 X8 L$ N, ^5 Z谢谢分享

424252161

怎么运行...

jimmy

使用方法：
# j  v( Q9 {+ j  w
加载脚本：
% Z3 H+ H/ g$ N) p( Q+ C& l1 Y+ G! {PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
) J0 {! ?' B0 H! w- w: |
脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

dsldsldsldsl

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

苏鲁锭

dsldsldsldsl 发表于 2015-9-6 15:13
. B2 y8 [1 E7 \( D哈哈，好久没上了，各位好！

( d& O* \$ c7 \; ]5 X7 P* X. shoho，嚎~~~
2 N0 C& y, o. A3 u" {

dsldsldsldsl

苏鲁锭 发表于 2015-9-6 16:16
9 h' [" L. D4 D' y) W3 D) S4 u/ yhoho，嚎~~~

, m0 z4 P) [5 b  d  G3 Y, s0 U

xode

很好，谢谢分享

dsldsldsldsl

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