Advertisement
Guest User

Untitled

a guest
Mar 20th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. (
  2. /*
  3. / Script: Shift-Move poly edge copy emulation
  4. / Author: Panteleev Sergey
  5. / Year: 2019
  6. / Contacts: fatbbc @ gmail.com
  7. */
  8.  
  9. -- 1. Create a clone of current open edges
  10. with undo off
  11. (
  12. esel = (polyop.getEdgeSelection $) * (polyop.getOpenEdges $)
  13. polyop.setEdgeSelection $ esel
  14. prevEH = $.edgeExtrudeHeight
  15. prevEW = $.edgeExtrudeWidth
  16. $.edgeExtrudeHeight = 0
  17. $.edgeExtrudeWidth = 0
  18. )
  19. $.buttonOp #Extrude
  20. $.previewAccept()
  21. with undo off
  22. (
  23. $.edgeExtrudeWidth = prevEW
  24. $.edgeExtrudeHeight = prevEH
  25. )
  26.  
  27.  
  28. -- 2. Set focus on TypeIn controls
  29. if statusPanel.visible do
  30. (
  31.  
  32.  
  33. for c in windows.getChildrenHWND #max where c[4] == "StatusPanel" do
  34. (
  35. hwnd = windows.getChildHWND c[1] "X:"
  36.  
  37. if hwnd != undefined do
  38. (
  39. windows.sendMessage (UIAccessor.GetNextWindow hwnd[1]) 0x7 0 0
  40.  
  41. )
  42. exit
  43. )
  44.  
  45. )
  46.  
  47. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement