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

zsc

截图和脚本见附件。
# Q' a% @  O# z8 I$ G: K- }觉得好用的别忘了点赞呀。

7 @3 ^2 P% k/ m7 ]
9 ?) w# H& Q# y! U

peng2016

请教下大师里面的这个Action表示的数字1，2，3，4，5是啥参数，不晓得啥意思~~
Private Function dialogfunc(DlgItem$, Action%, SuppValue&) As Boolean
& b* d7 T' r3 {/ s" ^    Select Case Action%
    Case 1 ' Dialog box initialization
9 A( d! j' Q0 c- D& d        DlgText "Xstep", ActiveDocument.GridX(plogGridDesign)*3
        DlgText "Ystep", ActiveDocument.GridY(plogGridDesign)*3
        View_Change
        Document_SelectionChange
    Case 2 ' Value changing or button pressed
        changing = True
        dialogfunc = True
( `7 |4 _2 |( ?, A8 L: Y6 K        If DlgItem$ = "Vertical" Then
            DistributeV
        ElseIf DlgItem$ = "Horizonal" Then
) s+ t$ d3 N9 k7 c% j' z2 }            DistributeH
; r+ x- Q! A' \) n( x) K        ElseIf DlgItem$ = "MirrorX" Then
            MirrorX
8 i9 _* d0 y! `' {2 J        ElseIf DlgItem$ = "MirrorY" Then
            MirrorY
$ n/ X+ U$ }/ \0 D! j        ElseIf DlgItem$ = "Rotate90" Then
            Rotate90
) {. N; K$ ~4 f# z9 ^" x. F+ ~. }        ElseIf DlgItem$ = "SetPos" Then
# R( M. F* J$ a1 B# M            SetPos
$ L+ O" t4 H: z, n        ElseIf DlgItem$ = "Top" Then
  l' {- ]* r/ g/ d( s            AlignTop
        ElseIf DlgItem$ = "Bottom" Then
            AlignBottom
5 o0 I% B- f6 q5 u( h$ D( Z9 }- o! A1 K0 {        ElseIf DlgItem$ = "Left" Then
+ `4 A. ^4 V7 A% E( \5 U, |* R            AlignLeft
        ElseIf DlgItem$ = "Right" Then
            AlignRight
' ^% v- p: I7 C" `: k* Y        ElseIf DlgItem$ = "CloseBtn" Then
            dialogfunc = False
        End If
- Y5 g8 D7 z0 x. t6 P        changing = False
        Document_SelectionChange
: v' N+ O; p# |) T    Case 3 ' TextBox or ComboBox text changed
    Case 4 ' Focus changed
% w0 ~+ c: s' M% `& l    Case 5 ' Idle
& L& i1 T3 j9 L6 O/ _        ' dialogfunc = True ' Continue getting idle actions
+ O, [2 y8 c) H. M' n6 w) Z1 b8 {9 l
6 g: a9 i9 r% G
    Case 6 ' Function key
! G5 n* R" P9 ^# @8 w$ P1 \    End Select
End Function

zsc

哥们没试试就评论啊。当然不是按照元件名称来摆放，那次序不乱掉了？ 等距分布排列不改变原来的器件座标次序，只改变座标位置。左边的列表框只是显示选中了哪些器件。
* Y$ z  I8 A" f# Z

linxiwell

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

osakau

用什么语言编译的呀？

zsc

是脚本。不用编译，加载进去用即可

台风12

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

xiesonny

大婶真多。你牛逼

ricky_ren

你好聪明，你怎么做到的？

purnedy

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

zsc

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

lxf2299

这个功能好，

linxiwell

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

2017-3-16 10:35 上传

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

悄悄乐

支持分享。。

zyg1060482876

kankan