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

PADS 自动排位号脚本

  [复制链接]

该用户从未签到

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

该用户从未签到

77#
发表于 2015-1-14 13:39 | 只看该作者
Application.ExecuteCommand("Display Colors Setup")- c7 S0 T. z0 ^' t( k! K; x
DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
/ w/ n# d) Q1 E" C  }% u+ P6 z' bDisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1" ' K" G9 E; j2 ?$ [  r" u
DisplayColorsSetupDlg.Ok.Click(): I" H: b" S( y' U

) l5 |0 ?! N* r7 R7 g3 H/ P: R7 qApplication.ModelessCommand("u")
) H# `- s- E. pDlgModelessCmd.Command = "um"# P. r6 I$ M7 t, H' W
DlgModelessCmd.OnOk()+ a0 a+ Z4 {+ b+ M6 S( e: S6 t

  p6 {3 t! I8 k' P/ C. J; JApplication.ModelessCommand("z"); L7 D2 u& s5 }: k7 h
DlgModelessCmd.Command = "zz"6 l; ^* z9 f: W4 T2 G# \
DlgModelessCmd.OnOk()
3 |5 h5 I, G* _2 u4 c- n' U/ `% c' ^# ]' a. \
Application.ExecuteCommand("Filter")
2 H5 r# T: S  n- |SelectionFilterDlg.Nothing.Click()8 v0 H' S, r# V! D4 ?  o: o
SelectionFilterDlg.SelectionObjectsDlg.Parts = false# T& H* W/ q  I# |8 [2 m' K
SelectionFilterDlg.SelectionObjectsDlg.Labels = true
( w' n' s: F7 ^9 l" u$ ISelectionFilterDlg.Ok.Click()6 _, A' j- ]9 Q  H7 k1 ?2 W' R
Application.ExecuteCommand("Select All")
3 }' l/ o) @9 b# w0 s3 S. M$ K0 ZApplication.ExecuteCommand("Edit Delete Group")3 f& }1 K6 u, O" R
Application.ExecuteCommand("Quick Filter Components")
% f. G. J! n2 I9 X' ^* h& R2 v, qApplication.ExecuteCommand("Select All")
: W5 \6 T4 t3 ]. B" k* gApplication.ExecuteCommand("Add New Part Label")' V2 M1 b" P# T- p1 e
AddNewPartLabelDlg.FontFace = "Tahoma"
0 Y1 q$ t0 Z: ^: M, L8 rAddNewPartLabelDlg.X = "0"
8 t6 J7 l9 u' }' g1 ^0 A: c1 @AddNewPartLabelDlg.Y = "0"4 H/ h' r  x( G/ Q
AddNewPartLabelDlg.Size = "30"
/ D( \2 F. Q1 D& d+ v0 v( P$ ~7 ?AddNewPartLabelDlg.HorizontalJustification = "Center"9 V8 H( h' S0 ]% b( u" x3 ^
AddNewPartLabelDlg.VerticalJustification = "Center"
+ D+ R+ i+ I( u5 `; ^AddNewPartLabelDlg.RightReading = 1
5 m8 y/ w8 r3 g& lAddNewPartLabelDlg.Ok.Click()0 ~) a& O2 C& @. H% T
Application.ExecuteCommand("Select All")
4 b3 z( E/ Y4 h1 ^1 x4 n# }, DApplication.ExecuteCommand("Add New Part Label")% z1 U) D' B3 {% C- d; W
AddNewPartLabelDlg.Attribute = "Value"+ S% @  X; Y# \) i3 _
AddNewPartLabelDlg.FontFace = "Tahoma"+ R1 G$ L  ]! E7 J
AddNewPartLabelDlg.X = "0"% z4 \6 I9 S& J; O
AddNewPartLabelDlg.Y = "0"
4 x/ }" e) {4 l+ X2 h8 GAddNewPartLabelDlg.Size = "30"
9 a* p% j% D. D) y! n+ x8 x2 w6 rAddNewPartLabelDlg.HorizontalJustification = "Center"
& p0 V' ?8 X3 D8 \+ OAddNewPartLabelDlg.VerticalJustification = "Center"
7 F; C) j, U" I; vAddNewPartLabelDlg.RightReading = 16 X% E8 X5 r5 ]5 N* e7 m. M5 r
AddNewPartLabelDlg.Ok.Click()5 E; q" C% `* O! q

( a5 X( ^- J' ]+ W9 s0 u- Q1 R1 N" f4 E4 s9 D

! _0 X: W- P% L- \( W能按这个宏命令写一个吗??

点评

什么意思?你这不是写出来了吗?  详情 回复 发表于 2015-2-9 21:57
  • TA的每日心情

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

    [LV.1]初来乍到

    78#
     楼主| 发表于 2015-2-9 21:57 | 只看该作者
    ppw2005 发表于 2015-1-14 13:39
    4 I4 K% T$ h# H+ o3 g; ?6 e" aApplication.ExecuteCommand("Display Colors Setup")' P- f: P4 @0 y" N3 [. F$ l
    DisplayColorsSetupDlg.ColorGrid.Cell("Visible On ...

      J+ h7 h7 a, f7 ?7 b8 g什么意思?你这不是写出来了吗?
    / E$ F, i) a( }; d* S9 y8 T' g

    该用户从未签到

    79#
    发表于 2015-2-10 14:25 | 只看该作者
    本帖最后由 苏鲁锭 于 2015-2-10 14:51 编辑 # [/ Q! @6 w3 b

    . n- E% h! l' z4 k* r. v8 e用了后位号全消失是因为PCB设置的最大层,脚本适用的是未设置最大层的PCB图(30层的)。& R* P/ X3 i" t. s1 X6 F% X
    用后全跑到PCB图(0,0)点的没试出来。
    ) N; Q8 e7 N7 Y$ x  y" i# j. D用了后ref调整到器件的(0,0)点,所以建库时00点设的不统一或00点不在器件本体中心的话也不适用。4 L# Z4 }* g2 y2 [0 k+ h

    该用户从未签到

    80#
    发表于 2015-2-10 15:41 | 只看该作者
    dsldsldsldsl 发表于 2014-3-26 10:263 [- O) V8 v( A4 n$ L# W3 D
    我的应用场景与你的可能不同,我的就是要位号排在器件中心,PCB上并不印位号,PCBA加工时会出会打 ...
    2 o1 T+ m- p+ v- w+ ^# o2 r
    我如果想把位号调整一个方向怎么弄啊。+ p9 U1 d8 x/ d, c+ |
    3 h$ m, y9 g/ S& u7 R: P

    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 | 只看该作者
    使用方法:
      y! s. v0 ~' t- s* f4 A
      z2 [, C3 p* ]/ {+ \, e加载脚本:9 G/ J3 T; X7 u" G9 E# G
    PADS Layout中单击:Tool->Basic Scripts->Basic Scripts->Load files添加就行了。  ~+ K4 L* ]. x' ~8 p9 c5 ~
    . a0 A$ S4 B1 N- F
    脚本使用: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:131 j" b! r  Y  K* Y1 _  h
    哈哈,好久没上了,各位好!
    * L; y* Z/ R" F( d$ ^, j6 s
    hoho,嚎~~~
    $ J' d" c1 y$ d2 m
  • TA的每日心情

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

    [LV.1]初来乍到

    88#
     楼主| 发表于 2015-9-9 20:02 | 只看该作者
    苏鲁锭 发表于 2015-9-6 16:16( _# J# c# C4 q: c3 O3 T
    hoho,嚎~~~
    9 [8 D6 R+ f9 ]! M- F7 ~. G

    $ B' r6 r+ d' T* r  Y) J) Z

    该用户从未签到

    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-10 17:27 , Processed in 0.093750 second(s), 22 queries , Gzip On.

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

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

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