如何自动选中并亮显包围光标点的矩形？

669423907

如何自动选中并亮显特定的矩形
1：此矩形所在的图层为0层
2：光标点(setq o (cadr(grread 3)))刚好在此矩形内
3：此矩形可能不完全在屏幕内
4：此矩形距离o最近（可能矩形外还有更大的矩形）

wyl219

能实现功能,按空格退出命令,按esc也能退出,但是不会取消亮显,可以参考一下.

2. 
   
3. (defun c:ttt ( / wyl:err old_error fill pt_tmp pt_x1 pt_x2 pt_y1 pt_y2 ss_x1 ss_x2 ss_y1 ss_y2
   
4.                ss_new i en  en_selold en_sel lst_pttoobj_dist obj bo )
   
5.   (vl-load-com)
   
6.   (setq old_error *error*)  
   
7.   (setq *error* wyl:err) ;可以修改为自己的error函数
   
8.   ;start部分结束
   
9.   (setq fill (list '(0 . "LWPOLYLINE") '(70 . 1)));筛选条件为闭合的多段线
   
10.   (setq bo t)
    
11.   (while bo
    
12.     (if (= (car (setq pt_tmp (grread t 1 ))) 5);当获取到的为坐标点时
    
13.       (progn
    
14.         (setq pt_tmp (cadr pt_tmp))
    
15.         (setq pt_x1 (list  (car pt_tmp) (expt 10 9) 0.0)
    
16.           pt_x2 (list (car pt_tmp) (expt -10 9) 0.0)
    
17.           pt_y1 (list   (expt 10 9) (cadr pt_tmp) 0.0)
    
18.           pt_y2 (list  (expt -10 9) (cadr pt_tmp) 0.0)
    
19.         )
    
20.         (setq ss_x1 (ssget "F" (list pt_x1 pt_tmp) fill)
    
21.           ss_x2 (ssget "F" (list pt_x2 pt_tmp) fill)
    
22.           ss_y1 (ssget "F" (list pt_y1 pt_tmp) fill)
    
23.           ss_y2 (ssget "F" (list pt_y2 pt_tmp) fill)
    
24.         );获取四个方向的闭合多段线
    
25.         (if (and ss_x1
    
26.               ss_x2
    
27.               ss_y1
    
28.               ss_y2);如果四个选择集都不为空
    
29.           (progn
    
30.             (setq ss_new (ssadd));新建一个选择集
    
31.             (repeat (setq i (sslength ss_x1));因为目标矩形同时在四个选择集中,任意选一个就行.
    
32.               (setq i (1- i)
    
33.                 en (ssname  ss_x1 i)
    
34.               )
    
35.               (if (and (ssmemb en ss_x2) (ssmemb en ss_y1) (ssmemb en ss_y2);如果同时在四个选择集
    
36.                     (= 8 (length (Vlax-Get (Vlax-Ename->Vla-Object en) 'Coordinates)))
    
37.                   );并且有四个顶点,这个可以省略,适配所有封闭多段线
    
38.                 (ssadd en ss_new);加入到新选择集
    
39.               );endif
    
40.             );endrepeat
    
41.             (cond
    
42.               ((= 1 (sslength ss_new));如果只有一个候选项
    
43.                 (progn
    
44.                   (setq en_selold en_sel);备份一下上次亮显的对象
    
45.                   (if (and (setq en_sel (ssname  ss_new 0 ))
    
46.                         (= (vl-princ-to-string en_selold) (vl-princ-to-string en_sel))  );如果两次获取到的对象相同,那么
    
47.                     (redraw  en_sel  3);直接将他亮显
    
48.                     (progn ;else
    
49.                       (redraw  en_sel  3)
    
50.                       (if  en_selold (redraw  en_selold  4));取消原来的亮显
    
51.                     )
    
52.                   );endif
    
53.                 ))
    
54.               ((>  (sslength ss_new) 1);如果不止一个
    
55.                 (setq lst_pttoobj_dist nil)
    
56.                 (repeat (setq i (sslength ss_new));判断距离
    
57.                   (setq i (1- i)
    
58.                     en (ssname  ss_x1 i)
    
59.                     obj (vlax-ename->vla-object en)
    
60.                   )
    
61.                   (setq lst_pttoobj_dist (append (list (list (distance (vlax-curve-getClosestPointTo obj pt_tmp) pt_tmp) en)) '() lst_pttoobj_dist))
    
62.                 );endrepeat
    
63.                 (setq lst_pttoobj_dist (vl-sort lst_pttoobj_dist '(lambda (x y) (< (car x) (car y)))) );对距离排序
    
64.                 (setq en_selold en_sel);备份一下上次亮显的对象
    
65.                 (if (and ;lst_pttoobj_dist
    
66.                       (setq en_sel (cadr (nth 0 lst_pttoobj_dist) ))
    
67.                       (= (vl-princ-to-string en_selold) (vl-princ-to-string en_sel));直接判断是不相等的
    
68.                     );如果两次获取到的对象相同,那么
    
69.                   (redraw  en_sel  3);将他亮显
    
70.                   (progn ;else
    
71.                     (redraw  en_sel  3)
    
72.                     (if en_selold (redraw  en_selold  4));取消原来的亮显
    
73.                   )
    
74.                 );endif
    
75.               );end progn
    
76.             );endcond
    
77.           ));end if
    
78.       );end progn
    
79.     );endif
    
80.     (if  (equal (grread t 1 ) '(2 32)) ;如果输入空格
    
81.       (progn
    
82.         (if en_sel (redraw  en_sel  4));取消对象亮显
    
83.         (setq bo nil));结束循环
    
84.     )
    
85.   );endwhile
    
86.   ;end部分开始
    
87.   (setvar "cmdecho" 1)
    
88.   (setq *error* old_error)  
    
89. )
    
90. (princ)
    

<br /> (defun c:ttt ( / wyl:err old_error fill pt_tmp pt_x1 pt_x2 pt_y1 pt_y2 ss_x1 ss_x2 ss_y1 ss_y2 <br />                ss_new i en  en_selold en_sel lst_pttoobj_dist obj bo )<br />   (vl-load-com)<br />   (setq old_error *error*)  <br />   (setq *error* wyl:err) ;可以修改为自己的error函数 <br />   ;start部分结束<br />   (setq fill (list '(0 . "LWPOLYLINE") '(70 . 1)));筛选条件为闭合的多段线<br />   (setq bo t)<br />   (while bo <br />     (if (= (car (setq pt_tmp (grread t 1 ))) 5);当获取到的为坐标点时<br />       (progn<br />         (setq pt_tmp (cadr pt_tmp))<br />         (setq pt_x1 (list  (car pt_tmp) (expt 10 9) 0.0)<br />           pt_x2 (list (car pt_tmp) (expt -10 9) 0.0)<br />           pt_y1 (list   (expt 10 9) (cadr pt_tmp) 0.0)<br />           pt_y2 (list  (expt -10 9) (cadr pt_tmp) 0.0)<br />         ) <br />         (setq ss_x1 (ssget "F" (list pt_x1 pt_tmp) fill)<br />           ss_x2 (ssget "F" (list pt_x2 pt_tmp) fill)<br />           ss_y1 (ssget "F" (list pt_y1 pt_tmp) fill)<br />           ss_y2 (ssget "F" (list pt_y2 pt_tmp) fill)<br />         );获取四个方向的闭合多段线<br />         (if (and ss_x1<br />               ss_x2<br />               ss_y1<br />               ss_y2);如果四个选择集都不为空<br />           (progn<br />             (setq ss_new (ssadd));新建一个选择集<br />             (repeat (setq i (sslength ss_x1));因为目标矩形同时在四个选择集中,任意选一个就行.<br />               (setq i (1- i)<br />                 en (ssname  ss_x1 i)<br />               )<br />               (if (and (ssmemb en ss_x2) (ssmemb en ss_y1) (ssmemb en ss_y2);如果同时在四个选择集<br />                     (= 8 (length (Vlax-Get (Vlax-Ename->Vla-Object en) 'Coordinates)))<br />                   );并且有四个顶点,这个可以省略,适配所有封闭多段线<br />                 (ssadd en ss_new);加入到新选择集<br />               );endif<br />             );endrepeat<br />             (cond<br />               ((= 1 (sslength ss_new));如果只有一个候选项<br />                 (progn<br />                   (setq en_selold en_sel);备份一下上次亮显的对象<br />                   (if (and (setq en_sel (ssname  ss_new 0 ))<br />                         (= (vl-princ-to-string en_selold) (vl-princ-to-string en_sel))  );如果两次获取到的对象相同,那么<br />                     (redraw  en_sel  3);直接将他亮显<br />                     (progn ;else<br />                       (redraw  en_sel  3)<br />                       (if  en_selold (redraw  en_selold  4));取消原来的亮显<br />                     )<br />                   );endif<br />                 ))<br />               ((>  (sslength ss_new) 1);如果不止一个<br />                 (setq lst_pttoobj_dist nil)<br />                 (repeat (setq i (sslength ss_new));判断距离<br />                   (setq i (1- i)<br />                     en (ssname  ss_x1 i)<br />                     obj (vlax-ename->vla-object en)<br />                   )<br />                   (setq lst_pttoobj_dist (append (list (list (distance (vlax-curve-getClosestPointTo obj pt_tmp) pt_tmp) en)) '() lst_pttoobj_dist))<br />                 );endrepeat<br />                 (setq lst_pttoobj_dist (vl-sort lst_pttoobj_dist '(lambda (x y) (< (car x) (car y)))) );对距离排序<br />                 (setq en_selold en_sel);备份一下上次亮显的对象<br />                 (if (and ;lst_pttoobj_dist<br />                       (setq en_sel (cadr (nth 0 lst_pttoobj_dist) ))<br />                       (= (vl-princ-to-string en_selold) (vl-princ-to-string en_sel));直接判断是不相等的<br />                     );如果两次获取到的对象相同,那么<br />                   (redraw  en_sel  3);将他亮显<br />                   (progn ;else<br />                     (redraw  en_sel  3)<br />                     (if en_selold (redraw  en_selold  4));取消原来的亮显<br />                   )<br />                 );endif<br />               );end progn<br />             );endcond<br />           ));end if<br />       );end progn<br />     );endif<br />     (if  (equal (grread t 1 ) '(2 32)) ;如果输入空格<br />       (progn<br />         (if en_sel (redraw  en_sel  4));取消对象亮显<br />         (setq bo nil));结束循环<br />     )<br />   );endwhile<br />   ;end部分开始<br />   (setvar "cmdecho" 1)<br />   (setq *error* old_error)  <br /> )<br /> (princ)<br />

菜卷鱼

可以采用ssget 里面的栏选功能

669423907

菜卷鱼 发表于 2019-9-16 08:31
可以采用ssget 里面的栏选功能

不是啊，我要的是不用手动去选，让程序自动根据o点自动选中矩形

菜卷鱼

669423907 发表于 2019-9-16 09:07
不是啊，我要的是不用手动去选，让程序自动根据o点自动选中矩形

你不是grread得到了一个点吗？再通过这个点，再多算几个点pt1、2、3、4，
然后再(ssget "f" <pt-list> [filter-list])，不需要手动啊。
最后再提示你一下(getvar "viewsize") 是得到屏幕的比例，你应该可以算出光标的上下左右4个点

669423907

菜卷鱼 发表于 2019-9-16 09:24
你不是grread得到了一个点吗？再通过这个点，再多算几个点pt1、2、3、4，
然后再(ssget "f"  [filter-li ...

你看一下我第2和第4点的要求

菜卷鱼

669423907 发表于 2019-9-16 09:32
你看一下我第2和第4点的要求

你自己去试一下吧，水平这么菜脾气还这么臭，还不敢于尝试

1. (defun c:tt (/ o s pt1 pt2 pt3 pt4 ss1 ss2)
   
2. (setq o (cadr(grread 3)))
   
3. (setq s(getvar "viewsize"))
   
4. (setq pt1 (polar o 0 s))
   
5. (setq pt2 (polar o (* 0.5 pi) s))
   
6. (setq pt3 (polar o pi s))
   
7. (setq pt4 (polar o (* 1.5 pi) s))
   
8. (setq ss1 (ssget "f" (list pt1 pt3) '((0 .  "LWPOLYLINE" )(8 . "0"))))
   
9. (setq ss2 (ssget "f" (list pt2 pt4) '((0 .  "LWPOLYLINE" )(8 . "0"))))
   
10. (command "select" ss1 ss2)
    
11. (prin1)
    
12. )

(defun c:tt (/ o s pt1 pt2 pt3 pt4 ss1 ss2)<br /> (setq o (cadr(grread 3)))<br /> (setq s(getvar "viewsize"))<br /> (setq pt1 (polar o 0 s))<br /> (setq pt2 (polar o (* 0.5 pi) s))<br /> (setq pt3 (polar o pi s))<br /> (setq pt4 (polar o (* 1.5 pi) s))<br /> (setq ss1 (ssget "f" (list pt1 pt3) '((0 .  "LWPOLYLINE" )(8 . "0"))))<br /> (setq ss2 (ssget "f" (list pt2 pt4) '((0 .  "LWPOLYLINE" )(8 . "0"))))<br /> (command "select" ss1 ss2)<br /> (prin1)<br /> )

xyp1964

669423907

菜卷鱼 发表于 2019-9-16 11:38
你自己去试一下吧，水平这么菜脾气还这么臭，还不敢于尝试

大哥，别误会哈，我脾气很好的，只是文字上表达欠佳，我是卡在第4点上了

669423907

xyp1964 发表于 2019-9-16 11:50

院长是个传奇人物，厉害