PADS 自动排位号脚本

mingzhuchen2008

楼主辛苦了！

ppw2005

Application.ExecuteCommand("Display Colors Setup")
$ F5 V1 q' B& tDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
) t! [: n0 \* s% i# w! `8 oDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()

Application.ModelessCommand("u")
DlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()

5 V8 r  y: v) V+ g2 ^" r# GApplication.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
( t5 {6 h9 P' A8 ?2 H  q1 MDlgModelessCmd.OnOk()

0 J& p' w$ _( c# [. K+ QApplication.ExecuteCommand("Filter")
4 a$ O7 H) x3 {+ D) L5 @SelectionFilterDlg.Nothing.Click()
  A' l  p3 b5 Y/ USelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
" k: T, t# e4 A# w$ lApplication.ExecuteCommand("Edit Delete Group")
0 o3 [: E' {6 @" iApplication.ExecuteCommand("Quick Filter Components")
( p. L* Z8 |; Q8 p: {Application.ExecuteCommand("Select All")
9 z9 x5 I9 X% ?8 Y! }2 cApplication.ExecuteCommand("Add New Part Label")
5 P4 ~/ M. [9 a: M7 D( G5 q6 tAddNewPartLabelDlg.FontFace = "Tahoma"
; n' a+ c" B& V  X% B7 ~AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
: }0 N' h& G$ [$ C# X& L# n" QAddNewPartLabelDlg.Size = "30"
6 d. U. `& m3 Z3 q9 L5 LAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
5 C: Q% Q: N  t8 bAddNewPartLabelDlg.Ok.Click()
Application.ExecuteCommand("Select All")
) ~  `/ E7 D$ }9 j! S3 v9 vApplication.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
2 N. {. e0 }; ?) {AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
6 h' B' ~, n" d$ ?AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
* v& Q1 `5 j0 XAddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
0 ?# U2 X9 n+ TAddNewPartLabelDlg.Ok.Click()


% W$ c. c* F- D7 c) q4 r
能按这个宏命令写一个吗？？

dsldsldsldsl

ppw2005 发表于 2015-1-14 13:39
1 x9 ?1 a, x% gApplication.ExecuteCommand("Display Colors Setup")
4 R; B: p9 u6 c9 o0 ^DisplayColorsSetupDlg.ColorGrid.Cell("Visible On ...

1 d6 V3 \0 r. F5 q& c什么意思？你这不是写出来了吗？

苏鲁锭

  K; T: f- F! i
) j$ L4 {; z( o用了后位号全消失是因为PCB设置的最大层，脚本适用的是未设置最大层的PCB图（30层的）。
* n6 |2 }! Y* q9 R# y. ]; V$ {& k/ L用后全跑到PCB图（0,0）点的没试出来。
  u2 @1 V, B5 ^) ]7 G用了后ref调整到器件的（0,0）点，所以建库时00点设的不统一或00点不在器件本体中心的话也不适用。
! S- V7 c3 ]0 D8 j+ _' F$ u; {

passion_2009

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

: e( {7 Z+ T, z6 N" r, ^, D我如果想把位号调整一个方向怎么弄啊。

hepupupu

怎么下载不了

deligencetw

無敵感謝分享

liuwei1779

5 }" k: d' O( A$ ?谢谢分享

424252161

怎么运行...

jimmy

使用方法：

加载脚本：
3 g& |6 b, H! y$ d9 G4 wPADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。

" P! b' s2 o4 X& w0 p脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

dsldsldsldsl

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

苏鲁锭

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

( q" A+ o8 j4 P) |3 W, h; Phoho，嚎~~~

dsldsldsldsl

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

* }/ n8 s7 ~6 `8 d
2 O* D, }8 {) |- R' n

xode

很好，谢谢分享

dsldsldsldsl

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