1
1

快捷键.bas 263 B

123456789101112131415161718
  1. Attribute VB_Name = "快捷键"
  2. Sub 木头人群组()
  3. autogroup("group", 1).CreateSelection
  4. End Sub
  5. Sub 角转平()
  6. Tools.角度转平
  7. End Sub
  8. Sub 对象交换()
  9. Tools.交换对象
  10. End Sub
  11. Sub 安全线()
  12. Tools.guideangle ActiveSelectionRange, 0# ' 右键 0距离贴紧
  13. End Sub