align vertical/horizonta 分别设置快捷键l

yangwgtop

align vertical / horizonta 分别设置快捷键l，保持 vertical 或 horizonta 尺寸最大的位置不变。

1. hiSetBindKeys( "Layout" list(list("<Key>[" "AlignXY(1)")))
   
2. hiSetBindKeys( "Layout" list(list("<Key>]" "AlignXY(2)")))
   
3. 
   
4. 
   
5. procedure(AlignXY(num)
   
6. let((cv objs MaxbBox Maxobj NewMaxbBox dxy)
   
7. cv = geGetEditCellView()
   
8. cw =hiGetCurrentWindow()
   
9. scw=hiGetSessionWindow(cw)
   
10. println(scw)
    
11. scw1=printself(scw)
    
12. scw2=parseString(scw1 ":")
    
13. i1=cadr(scw2)
    
14. Tgt1=strcat("swindow(" i1 ")" "->hiToolbars->leAlignToolbar_" i1 "->lebEnableAlignLayer->checked=nil")
    
15. Tgt2=strcat("swindow(" i1 ")" "->hiToolbars->leAlignToolbar_" i1 "->leAlignToolbarAlignSpacing->checked=nil")
    
16. hiEnqueueCmd(Tgt1)
    
17. hiEnqueueCmd(Tgt2)
    
18. 
    
19. 
    
20. objs=geGetSelSet()
    
21. MaxbBox=car(objs)~>bBox
    
22. Maxobj=car(objs)
    
23. if(num==1 then
    
24.         foreach(obj objs
    
25.                 objbBox=obj~>bBox
    
26.                 when((rightEdge(objbBox)-leftEdge(objbBox)) > (rightEdge(MaxbBox)-leftEdge(MaxbBox))       
    
27.                         MaxbBox=obj~>bBox
    
28.                         Maxobj=obj
    
29.                         );when
    
30.                 ); foreach
    
31.         leAlign("vertical" )
    
32.         NewMaxbBox=Maxobj~>bBox
    
33.         dxy=list(leftEdge(MaxbBox)-leftEdge(NewMaxbBox):0 "R0")
    
34.         foreach(obj objs       
    
35.                 when(obj~>parent == nil
    
36.                         dbMoveFig(obj nil dxy)       
    
37.                         );when
    
38.                 );foreach
    
39. else
    
40.         foreach(obj objs
    
41.                 objbBox=obj~>bBox
    
42.                 when((topEdge(objbBox)-bottomEdge(objbBox)) > (topEdge(MaxbBox)-bottomEdge(MaxbBox))
    
43.                         MaxbBox=obj~>bBox
    
44.                         Maxobj=obj
    
45.                         );when
    
46.                 );foreach
    
47.         leAlign("horizontal")
    
48.         NewMaxbBox=Maxobj~>bBox
    
49.         dxy=list(0:topEdge(MaxbBox)-topEdge(NewMaxbBox) "R0")
    
50.         foreach(obj objs
    
51.                 when(obj~>parent == nil
    
52.                 dbMoveFig(obj nil dxy)       
    
53.                         );when
    
54.                 );foreach
    
55.         );if
    
56. );let
    
57. );pro
    
58. 
    

复制代码