找回密码
 注册
关于网站域名变更的通知
楼主: dsldsldsldsl
打印 上一主题 下一主题

PADS 自动排位号脚本

  [复制链接]

该用户从未签到

76#
发表于 2014-11-17 09:31 | 只看该作者
楼主辛苦了!

该用户从未签到

77#
发表于 2015-1-14 13:39 | 只看该作者
Application.ExecuteCommand("Display Colors Setup")  B0 \2 M$ W% x( d: W' o
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1" * [9 U* o3 L/ A3 l# T) Y: h
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1"
4 j5 U: q( ?- w: g1 k! S. z/ EDisplayColorsSetupDlg.Ok.Click()
0 l8 Z1 Y( K+ _5 l
- O% b5 ?: j5 F" o: u. FApplication.ModelessCommand("u")
+ M2 `9 f0 S6 O% b+ k( g" bDlgModelessCmd.Command = "um"
- ^5 l  Y1 W6 b! B5 cDlgModelessCmd.OnOk()
8 `! q, e8 Q/ x5 k4 C( m) y( c8 q$ B, Q) ?! _
Application.ModelessCommand("z")& A: W4 w. _7 W7 n
DlgModelessCmd.Command = "zz"
% J5 `1 w4 `4 S, oDlgModelessCmd.OnOk()$ x# X7 M1 z2 T+ k
0 g9 e5 {1 T* q% H/ p
Application.ExecuteCommand("Filter")1 d8 A! M) x% O( o  G$ ], O& ]
SelectionFilterDlg.Nothing.Click()  Q4 T/ X3 m; H
SelectionFilterDlg.SelectionObjectsDlg.Parts = false* h% h8 r. X: f& R
SelectionFilterDlg.SelectionObjectsDlg.Labels = true" l! m! @/ S, y. s
SelectionFilterDlg.Ok.Click()3 z( J* K) J: c1 [  b2 v! k
Application.ExecuteCommand("Select All")
5 Z6 w9 H( ]  V1 WApplication.ExecuteCommand("Edit Delete Group")
5 m6 d9 p% Z+ T% Y, _3 n) q5 aApplication.ExecuteCommand("Quick Filter Components")& ^2 F% k' I* g8 M3 B% K1 O
Application.ExecuteCommand("Select All")
4 G9 _8 k% T$ Q& ?Application.ExecuteCommand("Add New Part Label")
4 }  ?6 c* v" i/ s, |4 z! A1 fAddNewPartLabelDlg.FontFace = "Tahoma"
7 z$ `5 r: }: R1 y0 Y/ ], u- |AddNewPartLabelDlg.X = "0"" G# N: w$ g9 u/ e1 n  d. M1 [
AddNewPartLabelDlg.Y = "0"
3 h3 f) o2 X/ M/ k" o& Q) ~6 L7 uAddNewPartLabelDlg.Size = "30"1 P: k( t( L& L( ~
AddNewPartLabelDlg.HorizontalJustification = "Center"! z3 z; C3 l: ]) }
AddNewPartLabelDlg.VerticalJustification = "Center"% c  i/ m9 @+ @1 z. i
AddNewPartLabelDlg.RightReading = 1" c7 U4 V/ o3 }5 n- p, ?2 ^* X& g' g
AddNewPartLabelDlg.Ok.Click()6 _2 R5 y1 j  j7 ]9 b
Application.ExecuteCommand("Select All")0 Z# ]/ p* G3 H7 ^0 f
Application.ExecuteCommand("Add New Part Label")+ l8 k' N9 D. c/ W
AddNewPartLabelDlg.Attribute = "Value"
1 a! u2 H3 ], j* ?AddNewPartLabelDlg.FontFace = "Tahoma"5 Q, Z6 E9 h, W% x
AddNewPartLabelDlg.X = "0"5 k) B/ a6 f! n$ O/ }& ?
AddNewPartLabelDlg.Y = "0"
( K8 r* p* _) k2 j5 Y$ {AddNewPartLabelDlg.Size = "30"7 u* s) W4 g5 o
AddNewPartLabelDlg.HorizontalJustification = "Center"
/ n7 x0 E0 K, h. `+ DAddNewPartLabelDlg.VerticalJustification = "Center"
" u$ b# T$ ?8 f) T7 ^AddNewPartLabelDlg.RightReading = 1
+ e5 F$ Y$ A' l% S) hAddNewPartLabelDlg.Ok.Click()
, V  w4 C; S. \5 J6 O+ _) D; b; }5 r0 Z1 Y! x
4 `7 d9 n# v/ L5 j! G
; k- w4 }0 @8 Q+ f7 z" T
能按这个宏命令写一个吗??
  • TA的每日心情

    2020-6-11 15:12
  • 签到天数: 1 天

    [LV.1]初来乍到

    78#
     楼主| 发表于 2015-2-9 21:57 | 只看该作者
    ppw2005 发表于 2015-1-14 13:39
    " I7 T' j. s3 `3 Z% o% n# O* oApplication.ExecuteCommand("Display Colors Setup")
    2 h# ]* B0 r- _4 U; l( SDisplayColorsSetupDlg.ColorGrid.Cell("Visible On ...
    " G% S9 b; f  s. |
    什么意思?你这不是写出来了吗?' k% H# u+ T- V/ C5 O% ]

    该用户从未签到

    79#
    发表于 2015-2-10 14:25 | 只看该作者
    本帖最后由 苏鲁锭 于 2015-2-10 14:51 编辑 ; v' d) I/ b( @" f0 h( L% V

    - m) Z! d7 J  R  o3 t用了后位号全消失是因为PCB设置的最大层,脚本适用的是未设置最大层的PCB图(30层的)。
    - z1 u8 h2 O% G用后全跑到PCB图(0,0)点的没试出来。
      W) D9 ^+ m5 |' o. q用了后ref调整到器件的(0,0)点,所以建库时00点设的不统一或00点不在器件本体中心的话也不适用。7 V+ g  J  k/ l' b

    该用户从未签到

    80#
    发表于 2015-2-10 15:41 | 只看该作者
    dsldsldsldsl 发表于 2014-3-26 10:26$ g' m5 ^$ x: [
    我的应用场景与你的可能不同,我的就是要位号排在器件中心,PCB上并不印位号,PCBA加工时会出会打 ...

    ) y5 a5 ?+ S% m& d我如果想把位号调整一个方向怎么弄啊。4 q& H; {# \' q

    1 A: k0 r. g2 }6 f' W) ^( D# C

    RES.png (10.97 KB, 下载次数: 4)

    RES.png

    该用户从未签到

    81#
    发表于 2015-5-17 14:36 | 只看该作者
    怎么下载不了

    该用户从未签到

    82#
    发表于 2015-5-28 13:58 | 只看该作者
    無敵感謝分享

    该用户从未签到

    85#
    发表于 2015-5-29 10:57 | 只看该作者
    使用方法:
    1 _* B( c- V$ x- X( ^% r$ l3 Y9 H' x$ A
    加载脚本:
    * I/ L! R% `# s7 T0 p4 p2 EPADS Layout中单击:Tool->Basic Scripts->Basic Scripts->Load files添加就行了。
    5 h) s) T& F; D* q/ [# K: U3 L
    3 e( a7 x. E" ^; k4 y1 c; g脚本使用:Tool->Basic Scripts->Basic Scripts->Run.
  • TA的每日心情

    2020-6-11 15:12
  • 签到天数: 1 天

    [LV.1]初来乍到

    86#
     楼主| 发表于 2015-9-6 15:13 | 只看该作者
    哈哈,好久没上了,各位好!

    点评

    hoho,嚎~~~  详情 回复 发表于 2015-9-6 16:16

    该用户从未签到

    87#
    发表于 2015-9-6 16:16 | 只看该作者
    dsldsldsldsl 发表于 2015-9-6 15:13
    ; f; X6 m5 V0 O, @! j' N哈哈,好久没上了,各位好!
    , v2 ~* w2 A! R# F% N4 c, v
    hoho,嚎~~~
    . N2 @" |: y' b3 M
  • TA的每日心情

    2020-6-11 15:12
  • 签到天数: 1 天

    [LV.1]初来乍到

    88#
     楼主| 发表于 2015-9-9 20:02 | 只看该作者
    苏鲁锭 发表于 2015-9-6 16:16
    6 T: M; o- k" |& m" U! ^% Yhoho,嚎~~~

    - ]% O% _# m' U; Q) v, t, T' D+ S" V& D! u9 n

    该用户从未签到

    89#
    发表于 2015-10-22 11:46 | 只看该作者
    很好,谢谢分享
  • TA的每日心情

    2020-6-11 15:12
  • 签到天数: 1 天

    [LV.1]初来乍到

    90#
     楼主| 发表于 2016-5-9 20:28 | 只看该作者
    离开论坛也有一两年了,你们过得可好?
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-6-11 07:28 , Processed in 0.078125 second(s), 25 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

    快速回复 返回顶部 返回列表