本站微信 收藏本站 设为首页
 找回密码
 注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

巢课
电巢直播8月计划
EDA365电子工程师网»技术社区 › 电子技术社区 › PADS论坛 › PADS 自动排位号脚本

PADS 自动排位号脚本

查看数: 7572 | 评论数: 96 | 收藏 11
关灯 | 提示：支持键盘翻页<-左 右->
帖子模式
    组图打开中，请稍候......
dsldsldsldsl
发布时间: 2014-2-27 17:48

正文摘要:

本帖最后由 jimmy 于 2015-5-29 10:57 编辑 6 y, O8 ], S! K2 x+ c 9 Y  r% }- {" I& [3 f        最近写了个  PADS2007 的自动排位号的脚本，现与大家分享 ...

回复

dsldsldsldsl 发表于 2014-3-5 13:11
JIMDENG 发表于 2014-3-5 10:13
1 E# |0 q! }* V/ C$ H2 u一下排列到26层，就有点混乱了：请看图片
; @! q; r9 S) M- V. M5 J
你是说，你放在底层的器件的位号也跑到 Silkscreen Top 层了吗？ 之前还没遇到过，我家里的电脑装的是 9.3的，也测试过，不会这样。2007我也测试过，其他版本就没测试过了。不过你可以试试这个，会不会解决你的问题。放在装配层你的意思是放在 Assembly Drawing Top 和Assembly Drawing Bottom层吗？这个也是可以的。

Assembly.rar

506 Bytes, 下载次数: 52, 下载积分: 威望 -5

paolo 发表于 2014-3-1 16:47
测试没问题，如果能识别封装方向位号能跟着旋转就很完美了
ppw2005 发表于 2015-1-14 13:39
Application.ExecuteCommand("Display Colors Setup")
+ z3 @# `" E' K, E5 ADisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Attributes") = "1"
* a4 V. T6 n2 f7 `- ]DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Ref. Des.") = "1" * W0 B$ ]% k4 {. V0 s5 L* }
DisplayColorsSetupDlg.Ok.Click()
1 u$ Q1 e( ?/ i* o6 {& o+ a1 ^/ c. Y; g7 |  I6 d9 {( ?
Application.ModelessCommand("u"). S2 ^7 f+ G0 ?3 M1 W; U9 g6 e7 P
DlgModelessCmd.Command = "um"
; f6 ?0 q. C' k. e7 nDlgModelessCmd.OnOk()
  K' O' o1 M4 [6 A; j$ I* ]5 k4 `4 D* J3 n7 l! j8 n
Application.ModelessCommand("z")9 G5 s5 D& h! ^5 O7 B2 |
DlgModelessCmd.Command = "zz"
' @/ I" h; n# n& S+ }/ @DlgModelessCmd.OnOk()& j1 p  [5 [3 V" P5 \6 N8 Z" D( `
: M2 ?- w4 M  s" E/ c2 h
Application.ExecuteCommand("Filter")
3 _+ I6 X5 A6 e, d3 c8 iSelectionFilterDlg.Nothing.Click()$ d0 r9 }0 u% u8 y8 M
SelectionFilterDlg.SelectionObjectsDlg.Parts = false
4 J9 e; }/ _' zSelectionFilterDlg.SelectionObjectsDlg.Labels = true
$ X# a+ ?9 [$ B7 w: u/ ySelectionFilterDlg.Ok.Click()' _% h3 j( H+ {6 u* P$ Q+ {9 r
Application.ExecuteCommand("Select All")9 Y7 _3 p( {, E" e3 S
Application.ExecuteCommand("Edit Delete Group"); [: G) G! g! [0 q  f& t" C
Application.ExecuteCommand("Quick Filter Components")  m& J; m( [9 Q/ E7 g4 c# r' ?
Application.ExecuteCommand("Select All")& T; l( i  r5 r4 |& `8 w
Application.ExecuteCommand("Add New Part Label")
8 [* t; u/ A7 X+ P' ?0 h( k- d/ ?1 CAddNewPartLabelDlg.FontFace = "Tahoma"+ d6 P- V. n& p" y5 g
AddNewPartLabelDlg.X = "0"* j- a1 S6 D( m9 ^, Q+ b
AddNewPartLabelDlg.Y = "0"
; C; d, D7 S1 gAddNewPartLabelDlg.Size = "30"1 Q  O- B2 Y/ p3 U
AddNewPartLabelDlg.HorizontalJustification = "Center"
; p+ {, G) U4 n5 v+ m0 mAddNewPartLabelDlg.VerticalJustification = "Center"1 Y' M, k3 g) T5 T
AddNewPartLabelDlg.RightReading = 1
3 q, J* |. W1 @1 S3 w: uAddNewPartLabelDlg.Ok.Click()
* I! u; q  ^0 i# R+ kApplication.ExecuteCommand("Select All")
/ q/ q9 `& R( b; X/ _. b5 ?Application.ExecuteCommand("Add New Part Label"); I1 Q6 r6 u  [3 f1 T/ j
AddNewPartLabelDlg.Attribute = "Value"
! o9 J4 {0 z2 o7 m- \. B% L4 hAddNewPartLabelDlg.FontFace = "Tahoma"7 q: j1 J$ q% \8 g, m
AddNewPartLabelDlg.X = "0"
4 T7 X2 ~6 T, fAddNewPartLabelDlg.Y = "0"
8 O; v, q$ ]- D: ]2 b& }AddNewPartLabelDlg.Size = "30"& y' w1 X" ]+ q5 V
AddNewPartLabelDlg.HorizontalJustification = "Center"3 N, }( ]1 {5 a1 D0 A5 O7 ?( ^
AddNewPartLabelDlg.VerticalJustification = "Center". q* w1 i  r: S' W1 g  q* B' p
AddNewPartLabelDlg.RightReading = 11 K; Z9 f" Y. ~  v  A5 u
AddNewPartLabelDlg.Ok.Click()
/ ~. h! c. _2 b2 w) {# C4 j, h2 p5 B1 z$ r& ^

* F$ i, \0 N4 Z1 d
: }; x% f9 n+ P% `5 ]. i; p) z1 T能按这个宏命令写一个吗？？
tanke 发表于 2018-6-10 16:24
好东西好东西，可惜威望不够啊
xxzzhy 发表于 2018-4-26 00:23
好用
xxzzhy 发表于 2018-4-26 00:20
非常感谢。挺好用
xxzzhy 发表于 2018-4-26 00:01
好不错的。谢谢
& P  E0 [) U! H0 Y  o/ ^/ l( ~; d
dsldsldsldsl 发表于 2016-5-15 12:00
苏鲁锭 发表于 2016-5-11 15:458 W9 Y# I* H9 r' ~2 n) `
谁叫你一年才刷新一次

! {9 j8 ?' y9 o不敢上来，上来了老想以前的工作和事情
苏鲁锭 发表于 2016-5-11 15:45
谁叫你一年才刷新一次

点评

dsldsldsldsl
不敢上来，上来了老想以前的工作和事情  详情 回复 发表于 2016-5-15 12:00
dsldsldsldsl 发表于 2016-5-9 20:28
离开论坛也有一两年了，你们过得可好？
xode 发表于 2015-10-22 11:46
很好，谢谢分享
dsldsldsldsl 发表于 2015-9-9 20:02
苏鲁锭 发表于 2015-9-6 16:16# [* b+ Q% d5 b
hoho，嚎~~~
& n, @8 c# v$ Q9 x9 B

3 h8 H7 d, |( R% B( r' k  H; k
苏鲁锭 发表于 2015-9-6 16:16
dsldsldsldsl 发表于 2015-9-6 15:13- {8 Q. X! ~* _: w* n
哈哈，好久没上了，各位好！

  [# l& x( q) b; N  ]- g, Ghoho，嚎~~~
$ _) M; j, g, r4 k- y; g' a
dsldsldsldsl 发表于 2015-9-6 15:13
哈哈，好久没上了，各位好！

点评

苏鲁锭
hoho，嚎~~~  详情 回复 发表于 2015-9-6 16:16
jimmy 发表于 2015-5-29 10:57
使用方法：
8 ~' x/ U* A/ i( K, P
. W8 g1 \9 E  ^$ O加载脚本：0 S* L8 u, b% a% S
PADS Layout中单击：Tool->Basic Scripts->Basic Scripts->Load files添加就行了。7 F$ a  S6 G1 n! U; M5 M+ t8 x
5 x1 w( |& g8 K' J
脚本使用：Tool->Basic Scripts->Basic Scripts->Run.
424252161 发表于 2015-5-29 08:46
怎么运行...
关闭

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

巢课

技术风云榜

关于我们|手机版|EDA365 ( 粤ICP备18020198号 )

GMT+8, 2024-9-20 14:21 , Processed in 0.071967 second(s), 42 queries , Gzip On.

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

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

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