CAD鼠标右键快捷键

lflstock

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

2024-10-2 21:52 上传

下载次数: 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