JIMDENG 发表于 2014-3-5 10:13
. W. Z' X# \% n$ R. l2 L) W- q. H一下排列到26层，就有点混乱了：请看图片

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

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

Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
9 ^; Y: c: ^0 w4 uDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
5 G7 P9 V  U: ~DisplayColorsSetupDlg.Ok.Click()
; T' l( l$ |* {* |1 m) f: }# P8 Y
! r" ~* X3 i- G9 WApplication.ModelessCommand("u")
DlgModelessCmd.Command = "um"
5 i* L3 E1 Z' z; P" jDlgModelessCmd.OnOk()
( N4 ^& v( ~  w( r/ M' T
; e) r. w1 E$ t: ~2 [8 fApplication.ModelessCommand("z")
9 a+ x. I0 w: PDlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

% m: I, l/ k4 K7 b* |' ?4 bApplication.ExecuteCommand("Filter")
6 H7 A' `2 d1 ~+ ISelectionFilterDlg.Nothing.Click()
0 E+ ~* T1 _' o. U* sSelectionFilterDlg.SelectionObjectsDlg.Parts = false
2 o2 _5 F4 {/ q# H3 k6 A7 ]1 hSelectionFilterDlg.SelectionObjectsDlg.Labels = true
SelectionFilterDlg.Ok.Click()
" w. h  r8 _! ?1 Q! g7 VApplication.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
1 B; B4 P4 R) _$ j# ~Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
" S1 t  R. \. k: o" y9 M8 i  wAddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
  [7 B0 h* N8 ?5 J7 FAddNewPartLabelDlg.Ok.Click()
! f" N% J: L  v! A% r* F# Q8 QApplication.ExecuteCommand("Select All")
4 n/ R) {# w0 E$ F  L! ZApplication.ExecuteCommand("Add New Part Label")
5 j  X6 ?- _) g# zAddNewPartLabelDlg.Attribute = "Value"
3 l6 t' x% H, eAddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
1 c' g1 L3 L" Z0 K+ S. EAddNewPartLabelDlg.Y = "0"
  l) h2 J( G6 Q2 \3 p3 \AddNewPartLabelDlg.Size = "30"
( P& _; M: g/ C1 D+ \* EAddNewPartLabelDlg.HorizontalJustification = "Center"
AddNewPartLabelDlg.VerticalJustification = "Center"
! v% s0 I) P. yAddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
, e, w/ t# @6 U5 x. d& o
% K+ n! R9 F9 J) K- V) v

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

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

好用

非常感谢。挺好用

好不错的。谢谢
+ \2 V" S0 }# W* z

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

. M8 t. s7 H3 |不敢上来，上来了老想以前的工作和事情

谁叫你一年才刷新一次

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

很好，谢谢分享

苏鲁锭 发表于 2015-9-6 16:16
9 _7 p8 p( N, Q/ E5 ]hoho，嚎~~~

2 \+ P% W* _1 a; k: F: f8 |$ K$ k2 J

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

hoho，嚎~~~
% F/ x- Z# [" e

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

使用方法：

4 q+ T4 q1 @2 E6 C$ N  Q3 X( r3 K加载脚本：
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
7 E. ?  n* I( h! K) k) J6 P1 l+ d) ^
; S1 s; @( b2 T/ A5 l; N脚本使用：Tool->Basic Scripts->Basic Scripts->Run.

怎么运行...