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

zsc

截图和脚本见附件。
2 Y" ~, \8 ~7 `1 K  E0 A9 d觉得好用的别忘了点赞呀。

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

peng2016

请教下大师里面的这个Action表示的数字1，2，3，4，5是啥参数，不晓得啥意思~~
9 X6 [( x# d6 U: T5 P3 CPrivate Function dialogfunc(DlgItem$, Action%, SuppValue&) As Boolean
    Select Case Action%
    Case 1 ' Dialog box initialization
        DlgText "Xstep", ActiveDocument.GridX(plogGridDesign)*3
& j! |2 ]1 I* {: ~7 T        DlgText "Ystep", ActiveDocument.GridY(plogGridDesign)*3
        View_Change
        Document_SelectionChange
3 ~9 ~' ?  p% h( W) A    Case 2 ' Value changing or button pressed
        changing = True
, U3 u1 v+ C' B; c/ I, {1 `        dialogfunc = True
        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
        ElseIf DlgItem$ = "MirrorY" Then
            MirrorY
. N4 }+ w7 Q. e1 K        ElseIf DlgItem$ = "Rotate90" Then
            Rotate90
        ElseIf DlgItem$ = "SetPos" Then
            SetPos
+ U5 o# T. K- {& Z1 Y" ~        ElseIf DlgItem$ = "Top" Then
# S5 d5 p0 V& V: R* c0 [            AlignTop
        ElseIf DlgItem$ = "Bottom" Then
# ?6 f# \4 N# H+ g+ n/ L& k7 _            AlignBottom
        ElseIf DlgItem$ = "Left" Then
            AlignLeft
7 \$ {% o7 t6 J1 W        ElseIf DlgItem$ = "Right" Then
            AlignRight
        ElseIf DlgItem$ = "CloseBtn" Then
            dialogfunc = False
- E# N1 ~& N& I  C; k        End If
# t3 J" _  w! R2 w0 V; p' s/ W        changing = False
        Document_SelectionChange
: \- E7 F2 G7 i! ]( }$ ]    Case 3 ' TextBox or ComboBox text changed
    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 actions


: 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

zsc

哥们没试试就评论啊。当然不是按照元件名称来摆放，那次序不乱掉了？ 等距分布排列不改变原来的器件座标次序，只改变座标位置。左边的列表框只是显示选中了哪些器件。
4 u1 p+ j! H: L) a! x3 t+ O% H2 N

linxiwell

按元件名称来摆放的，不一定是用户想要的，应该写算法按坐标排序再来等距摆放，有空我来写一个，其实我早就有这方面的想法了。

osakau

用什么语言编译的呀？

zsc

是脚本。不用编译，加载进去用即可
) s$ g# B* i* o% ?1 [

台风12

能分享就是好同志，没用前就点赞

xiesonny

大婶真多。你牛逼

ricky_ren

你好聪明，你怎么做到的？
  ]3 r' b; C" Z/ J* {- i

purnedy

要是能做个pcb里面的脚本就更好了

zsc

pcb本身自带这些功能啊，不需要自己写脚本实现。

lxf2299

这个功能好，

linxiwell

PCB的看看这里 Gif.zip (3.33 MB, 下载次数: 40)

2017-3-16 10:35 上传

点击文件名下载附件
下载积分: 威望 -5

悄悄乐

支持分享。。

zyg1060482876

kankan