找回密码
 注册
关于网站域名变更的通知
查看: 2377|回复: 16
打印 上一主题 下一主题

闲来无事,写了个powerlogic 脚本,供大家评点

  [复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2016-3-11 10:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
截图和脚本见附件。
2 Y" ~, \8 ~7 `1 K  E0 A9 d觉得好用的别忘了点赞呀。! {5 k7 C# ~$ l9 m5 |9 L, G* G3 U

' E+ R7 B# X6 I; E- a' q+ \9 H
8 i# D0 R9 Y8 Z

align.png (15.4 KB, 下载次数: 2)

align.png

align.zip

2.18 KB, 下载次数: 53, 下载积分: 威望 -5

  • TA的每日心情

    2022-12-29 15:40
  • 签到天数: 1 天

    [LV.1]初来乍到

    推荐
    发表于 2020-7-29 23:39 | 只看该作者
    请教下大师里面的这个Action表示的数字1,2,3,4,5是啥参数,不晓得啥意思~~
    9 X6 [( x# d6 U: T5 P3 CPrivate Function dialogfunc(DlgItem$, Action%, SuppValue&) As Boolean9 W2 i" g7 V7 y9 V' |
        Select Case Action%, H& n" i" ?; Z5 v2 l9 I; g
        Case 1 ' Dialog box initialization, s. e; G! U; t
            DlgText "Xstep", ActiveDocument.GridX(plogGridDesign)*3
    & j! |2 ]1 I* {: ~7 T        DlgText "Ystep", ActiveDocument.GridY(plogGridDesign)*31 u( k& M4 E* G, X: Z8 m: F
            View_Change3 u& Q/ t( y" U) Z
            Document_SelectionChange
    3 ~9 ~' ?  p% h( W) A    Case 2 ' Value changing or button pressed4 H- Y9 w$ o" @
            changing = True
    , U3 u1 v+ C' B; c/ I, {1 `        dialogfunc = True0 Y2 N) w! ~0 w/ _3 _. \# Q5 T* g+ [- g
            If DlgItem$ = "Vertical" Then
    , Z& s" k' f; i+ S            DistributeV
    8 T; i5 |7 W: Z$ x' B5 r& I        ElseIf DlgItem$ = "Horizonal" Then
    & ?- B7 g. i0 e4 N7 r" z4 P2 v            DistributeH
    + q& P( o4 B+ q' H  L* }% k        ElseIf DlgItem$ = "MirrorX" Then
    9 x- [6 i$ k! Y, D% B% [; `            MirrorX  w- S2 |) p! ]' R3 V# d, `
            ElseIf DlgItem$ = "MirrorY" Then# s  p; ~2 n$ m" N" y; R
                MirrorY
    . N4 }+ w7 Q. e1 K        ElseIf DlgItem$ = "Rotate90" Then; Q" _  u0 x+ k0 E5 Q! q
                Rotate90( a5 \4 {# u: @
            ElseIf DlgItem$ = "SetPos" Then8 j  k6 b  u' `1 @
                SetPos
    + U5 o# T. K- {& Z1 Y" ~        ElseIf DlgItem$ = "Top" Then
    # S5 d5 p0 V& V: R* c0 [            AlignTop: g$ C: J7 V+ ?' P
            ElseIf DlgItem$ = "Bottom" Then
    # ?6 f# \4 N# H+ g+ n/ L& k7 _            AlignBottom' [5 T4 Y* N. L# w- C, k; e
            ElseIf DlgItem$ = "Left" Then% p& F, X2 `3 n; n9 q$ @" s
                AlignLeft
    7 \$ {% o7 t6 J1 W        ElseIf DlgItem$ = "Right" Then- g. b( }  L7 B; t, L% r
                AlignRight4 x+ [6 N, U# [
            ElseIf DlgItem$ = "CloseBtn" Then) w4 E: N) f9 @! x' S
                dialogfunc = False
    - E# N1 ~& N& I  C; k        End If
    # t3 J" _  w! R2 w0 V; p' s/ W        changing = False5 L) S3 z: W, {: R
            Document_SelectionChange
    : \- E7 F2 G7 i! ]( }$ ]    Case 3 ' TextBox or ComboBox text changed" r6 C  D) }, v: b
        Case 4 ' Focus changed
    # E3 G# m% O  f) Q2 I" R    Case 5 ' Idle
    1 D( e# a  C9 P% q( G: o# v3 N7 W        ' dialogfunc = True ' Continue getting idle actions6 J: O- }+ U, j
    / R* u% ]  U( J% d0 `. Y3 T

    : U0 W! {$ A: q8 N8 a- z4 a' x    Case 6 ' Function key
    3 u4 T) V4 s- p7 n  m' t    End Select
    # M0 X( w8 u- C9 j$ Y4 z8 o' o$ T% oEnd Function

    该用户从未签到

    推荐
     楼主| 发表于 2016-3-11 15:21 | 只看该作者
    哥们没试试就评论啊。当然不是按照元件名称来摆放,那次序不乱掉了? 等距分布排列不改变原来的器件座标次序,只改变座标位置。左边的列表框只是显示选中了哪些器件。
    4 u1 p+ j! H: L) a! x3 t+ O% H2 N
  • TA的每日心情
    无聊
    2019-11-20 15:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    推荐
    发表于 2016-3-11 14:33 | 只看该作者
    按元件名称来摆放的,不一定是用户想要的,应该写算法按坐标排序再来等距摆放,有空我来写一个,其实我早就有这方面的想法了。

    该用户从未签到

    4#
    发表于 2016-3-14 12:14 | 只看该作者
    用什么语言编译的呀?

    该用户从未签到

    5#
     楼主| 发表于 2016-3-15 09:31 | 只看该作者
    是脚本。不用编译,加载进去用即可
    ) s$ g# B* i* o% ?1 [
  • TA的每日心情
    擦汗
    2020-7-3 15:50
  • 签到天数: 1 天

    [LV.1]初来乍到

    6#
    发表于 2016-3-20 09:28 | 只看该作者
    能分享就是好同志,没用前就点赞

    该用户从未签到

    7#
    发表于 2016-3-20 13:30 | 只看该作者
    大婶真多。你牛逼

    该用户从未签到

    8#
    发表于 2016-4-27 22:55 | 只看该作者
    你好聪明,你怎么做到的?
      ]3 r' b; C" Z/ J* {- i

    该用户从未签到

    9#
    发表于 2016-4-29 16:52 | 只看该作者
    要是能做个pcb里面的脚本就更好了

    该用户从未签到

    10#
     楼主| 发表于 2016-5-6 11:17 | 只看该作者
    pcb本身自带这些功能啊,不需要自己写脚本实现。
  • TA的每日心情
    无聊
    2021-8-27 15:39
  • 签到天数: 4 天

    [LV.2]偶尔看看I

    11#
    发表于 2017-3-13 16:35 | 只看该作者
    这个功能好,
  • TA的每日心情
    无聊
    2019-11-20 15:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    12#
    发表于 2017-3-16 10:35 | 只看该作者
    PCB的看看这里 Gif.zip (3.33 MB, 下载次数: 40)
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

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

    EDA365公众号

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

    GMT+8, 2025-7-27 15:50 , Processed in 0.140625 second(s), 28 queries , Gzip On.

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

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

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