方便快捷使用QSELECT命令

lijiao

先定义一个命令

2. (defun c:csqselect (/)
   
3.   (if (or (acet-sys-control-down) (acet-sys-shift-down))
   
4.     (command "qselect")
   
5.   )
   
6.   (princ)
   
7. )

(defun c:csqselect (/)<br />   (if (or (acet-sys-control-down) (acet-sys-shift-down))<br />     (command "qselect")<br />   )<br />   (princ)<br /> )

加载命令后,在acad中打开VBA编辑器(ALT+F11)
在工程资源树浏览器中,双击AUTTOCAD对象下的thisdrawing,在右边的代码窗口中添加如下代码

2. Private Sub AcadDocument_SelectionChanged()
   
3. If ThisDrawing.GetVariable("cmdactive") = 0 And ThisDrawing.PickfirstSelectionSet.Count > 1 Then
   
4.    ThisDrawing.SendCommand "csqselect "
   
5. End If
   
6. End Sub

Private Sub AcadDocument_SelectionChanged()<br /> If ThisDrawing.GetVariable("cmdactive") = 0 And ThisDrawing.PickfirstSelectionSet.Count > 1 Then<br />    ThisDrawing.SendCommand "csqselect "<br /> End If<br /> End Sub

回到ACAD中,在没有使用任何命令的情况下,框选实体,点击第二点的时候同时按下Ctrl或shift键,如果选择的实体在两个或两个以上,就会弹出qselect对话框

yangjian001

做一个热心并受欢迎的人！