PADS 自动排位号脚本

dsldsldsldsl

9 ^+ @2 z8 n. e9 ~
        最近写了个  pads2007 的自动排位号的脚本，现与大家分享。
        该脚本可以自动将字体大小改为：40mil；线宽：6mil；位号自动居中，自动放到丝印层，Top面和Bottom面自动分开，几千器件排完不到1分钟。
        该脚本目前还有缺陷，对于重叠排放的器件位号可能重叠，插装器件的位号可能会被焊盘阻挡，待优化...
        声明：该脚本只适用于高密度或PCB上不印位号的板子（一般这种板子在装配时会打印专门的装配图共使用），对于想要把位号印在PCB上的不适用，请仔细阅读该声明，对于没有仔细阅读该声明者所造成的一切后果自己负责。
& }/ s+ @7 D6 V& E' O; M6 {' A- E
5 x& `7 M* D, |

9 ^2 ^3 n/ [. l# {
" `/ \2 h" p& @$ `: z( y/ v
# e+ b- n$ l1 N: H0 o- ?
" s* i2 T" n% S  I+ e- d2015-5-29 jimmy补充：
% y% t* w, q1 {9 s, J" C* z% }" x, X
0 ~( A! T  x1 E5 k' U' Y6 f, a: U
; _. u# G, ^# r, I) D《脚本使用方法》
) C  R1 X0 p+ \; L. K( C
1 X1 ]& d, H, _9 s
1、加载脚本：
8 u0 U" ~  }% Y3 k1 \& A

, K/ o5 x9 R. a4 V4 \; b, i7 |( `PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
9 a/ ^- N+ E# U! @" c5 L
8 D% J' F1 s8 R' ~- C" P  k
) D4 O! c# C; q7 [( Y# H2、脚本使用：
) u4 S/ V3 h" |9 v" }
( ^( b/ Y  x0 n- ?# `
Tool->Basic Scripts->Basic Scripts->Run.
6 Z. G, S5 r$ |* T( r- w
1 g8 G2 K2 F- a+ b: I: f

dsldsldsldsl

JIMDENG 发表于 2014-3-5 10:13
# m# w  R# A/ c8 ~; T一下排列到26层，就有点混乱了：请看图片

% q) L2 T) c' q" v, \' B你是说，你放在底层的器件的位号也跑到 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"
  P! E; H5 L7 }6 B& ^4 gDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
DisplayColorsSetupDlg.Ok.Click()

Application.ModelessCommand("u")
7 n* a. y5 q3 A2 oDlgModelessCmd.Command = "um"
DlgModelessCmd.OnOk()

Application.ModelessCommand("z")
DlgModelessCmd.Command = "zz"
DlgModelessCmd.OnOk()

! ^1 P% R) h0 R6 b- c) q' vApplication.ExecuteCommand("Filter")
, K& V. j: r, C/ f8 Y5 v7 j) K  TSelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
" ^( D" H; m7 ?3 j/ b+ K+ i/ R* G2 XSelectionFilterDlg.Ok.Click()
7 G. r% G) A9 b0 p* }  }Application.ExecuteCommand("Select All")
( P# w5 N/ A0 i# y& `& C' o6 `; L% EApplication.ExecuteCommand("Edit Delete Group")
Application.ExecuteCommand("Quick Filter Components")
2 E& l. E7 Q, u; {Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
AddNewPartLabelDlg.Y = "0"
AddNewPartLabelDlg.Size = "30"
AddNewPartLabelDlg.HorizontalJustification = "Center"
2 i. l$ s4 t. v4 A6 z6 y4 {AddNewPartLabelDlg.VerticalJustification = "Center"
AddNewPartLabelDlg.RightReading = 1
AddNewPartLabelDlg.Ok.Click()
/ g- U% v& _$ u/ ^% j' d+ ]+ b' TApplication.ExecuteCommand("Select All")
9 y( f% s  `1 c* Y$ M; I* IApplication.ExecuteCommand("Add New Part Label")
AddNewPartLabelDlg.Attribute = "Value"
AddNewPartLabelDlg.FontFace = "Tahoma"
AddNewPartLabelDlg.X = "0"
# c+ j- ]8 @8 O/ S3 P5 L* WAddNewPartLabelDlg.Y = "0"
( t1 B4 Z2 T) s1 {. HAddNewPartLabelDlg.Size = "30"
# g* \3 ]3 a  [; f) y% W# ^$ yAddNewPartLabelDlg.HorizontalJustification = "Center"
' \8 m& h8 q  e$ B0 [. D; PAddNewPartLabelDlg.VerticalJustification = "Center"
4 S9 o; `/ C5 a1 t, x$ kAddNewPartLabelDlg.RightReading = 1
: `9 r4 g" {2 MAddNewPartLabelDlg.Ok.Click()
' B3 _/ X- v; _0 m5 o( J$ B5 m7 ?
& M' J2 {- V4 N$ C7 `: i' l$ s

+ X% b9 l: ?  t; w- G$ j* }9 |能按这个宏命令写一个吗？？

i265

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

dsldsldsldsl

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

dsldsldsldsl

排列效果

jackli

PADS9.0支持吗？

dsldsldsldsl

jackli 发表于 2014-2-28 15:37
: ?/ L& q$ C5 n/ Z7 D9 qPADS9.0支持吗？

! l3 ]8 f. q; A5 u1 Z7 }1 G还没试，晚上回家试试，不能的话，会出9.X版的脚本。

shiling416

谢谢分享，

ppyuyi

先谢谢分享！

JIMDENG

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

dsldsldsldsl

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

) l) J  [) J7 o! B* V3 |4 N经测试，PADS9.2支持，9.0应该没问题

1_home

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

jackli

dsldsldsldsl 发表于 2014-2-28 22:23
经测试，PADS9.2支持，9.0应该没问题

9.5怎么样？谢谢

dsldsldsldsl

jackli 发表于 2014-3-1 09:40
9.5怎么样？谢谢

: y; I  o, l0 F* c我电脑没装9.5的，要是谁装了的话可以帮忙测试一下，使用方法很简单的。脚本这东西应该是通用的。

dsldsldsldsl

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

可以的。为了便于阅读，我把位号的方向调成了从左到右。因为一般同一块PCB上位号不会超过两个方向，如果各个方向都有，不便于阅读。附件这个脚本可以让位号随器件旋转而旋转。