1
1

HotKeys.bas 628 B

1234567891011121314151617181920212223242526272829303132
  1. Attribute VB_Name = "HotKeys"
  2. Sub Start_SelectSame()
  3. '// 选择相同工具增强版
  4. frmSelectSame.Show 0
  5. End Sub
  6. Sub Start_CQL_FIND()
  7. '// 简单查找
  8. CQL_FIND_UI.Show 0
  9. End Sub
  10. Sub Start_Batch_Replace()
  11. '// 批量替换
  12. Replace_UI.Show 0
  13. End Sub
  14. Sub Start_Arrange()
  15. '// 开始拼版
  16. ArrangeForm.Show 0
  17. End Sub
  18. Sub Start_CutLines()
  19. CutLines.Draw_Lines '// 调用角线
  20. End Sub
  21. Sub AIClipboard_CopyAIFormat()
  22. value = GMSManager.RunMacro("AIClipboard", "CopyPaste.CopyAIFormat")
  23. End Sub
  24. Sub AIClipboard_PasteAIFormat()
  25. value = GMSManager.RunMacro("AIClipboard", "CopyPaste.PasteAIFormat")
  26. End Sub