通信人家园

标题: CAD鼠标右键快捷键 [查看完整版帖子] [打印本页]

时间: 2024-10-2 21:53

作者: lflstock 标题: CAD鼠标右键快捷键

CAD鼠标右键快捷键.zip (7.23 KB, 下载次数: 0)

Public Sub Command2_Click() '鼠标右键
Text5 = Text1
Text6 = Text2
If Text53 = "Auto" Then

If Text4.Text - Text6.Text > 15 And Abs(Text5.Text - Text3.Text) < (Abs(Text4.Text - Text6.Text) * 0.363) Then '向上
SendKeys "{esc}"
Clipboard.Clear
Clipboard.SetText ("AMCONSTVER")
SendKeys "{BKSP}{BKSP}"
SendKeys "^v " '垂直构造线
Else

If Text3.Text - Text5.Text > 15 And Abs(Text6.Text - Text4.Text) < (Abs(Text3.Text - Text5.Text) * 0.363) Then '向左
SendKeys "{esc}"
Clipboard.Clear
Clipboard.SetText ("AMCONSTHOR")
SendKeys "{BKSP}{BKSP}"
SendKeys "^v " '水平构造线
Else

附件: CAD鼠标右键快捷键.zip (2024-10-2 21:52, 7.23 KB) / 下载次数 0
https://test.txrjy.com/forum.php?mod=attachment&aid=NjU0MjQ1fDk4OWJlMGZifDE3MzQ4NjcxMzJ8MHww

通信人家园 (https://test.txrjy.com/)