点选多段线

风树

一步走不到就多走一步

ivde

77077 发表于 2014-7-4 10:16
有些时候,entsel不是那么好用.
如下图这种情况,你叫我如何能快速选中中间红色那个方框呢?所以才诞生了如 ...

可以 ssget 选择

77077

ssget 选择的话，可能会选中相邻的红色多段线。
比如说我发出来那个色块图，怎么才能确保选中的是中间那个呢？

edata

不知道是不是这样。

77077

-HATCHEDIT OBJ "B" "P" "Y"
重建出来的边界居然是断的。。。

77077

edata 发表于 2014-7-4 13:22
不知道是不是这样。

没错，就是要这样的效果~

77077

edata 发表于 2014-7-4 13:22
不知道是不是这样。

求源码，学习学习。。

edata

77077 发表于 2014-7-4 13:30
求源码，学习学习。。

1. ;;返回绘图区坐标点
   
2. ;;from mjtd
   
3. (defun zj-get-scr-coods (/ half_h half_w pt_cen lst ptx pty)
   
4.    (setq pt_cen (trans (GETVAR "VIEWCTR") 1 2)
   
5.    ptx (car pt_cen)
   
6.    pty (cadr pt_cen)
   
7.       half_h (* 0.5 (GETVAR "VIEWSIZE"))
   
8.    half_w (* half_h (/ (car (GETVAR "SCREENSIZE")) (cadr (GETVAR "SCREENSIZE"))))
   
9.    )
   
10.   (LIST (LIST (- ptx half_w) (- pty half_h)) (LIST (+ ptx half_w) (+ pty half_h)))  
    
11. )
    
12. ;;取组码值
    
13. (defun sk_dxf(ent code)(cdr(assoc code(entget ent))))
    
14. ;;选择集或图元名转句柄列表
    
15. ;;code by edata@mjtd
    
16. (defun sk_h5ss->lst(ss / en i lst)
    
17.   (cond
    
18.       ((= (type ss) 'ENAME)(list (sk_dxf ss 5)))
    
19.       ((= (type ss) 'PICKSET)
    
20.        (setq i -1 lst '())
    
21.        (while(setq en(ssname ss(setq i(1+ i))))
    
22.          (setq lst(cons (sk_dxf en 5) lst))         
    
23.          )
    
24.        (if(/= lst '())(reverse lst))
    
25.        )
    
26.       )
    
27.   )
    
28. 
    
29. ;;主程序
    
30. ;;点选红色闭合多段线(图层过滤自己修改)
    
31. ;;code by edata@mjtd
    
32. ;;2014-7-4
    
33. (defun c:tt(/ a b bak_h5lst2 h5lst1 h5lst2 h5_eq loop p0 ss1 ss2)
    
34.   (if(and(setq p0(getpoint "请在红色闭合多段线内指定一点:"))
    
35.          (setq ss1(ssget "f"(list p0(car(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))
    
36.          (setq ss2(ssget "f"(list p0(cadr(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))
    
37.          )
    
38.     (progn
    
39.       (setq h5lst1(sk_h5ss->lst ss1)
    
40.             h5lst2(sk_h5ss->lst ss2)
    
41.             loop t
    
42.             )
    
43.       (while(and loop (setq a(car h5lst1)))
    
44.         (setq bak_h5lst2 h5lst2)
    
45.         (while(and loop (setq b(car bak_h5lst2)))
    
46.           (if (= a b)(setq h5_eq a loop nil))
    
47.           (setq bak_h5lst2(cdr bak_h5lst2))
    
48.           )
    
49.         (setq h5lst1(cdr h5lst1))
    
50.         )
    
51.     (if h5_eq
    
52.       (progn
    
53.         ;(redraw (ssname ss1 0) 3)
    
54.         (sssetfirst nil (ssadd(handent h5_eq)) )
    
55.         )
    
56.       (alert "未找到红色闭合多段线")
    
57.       )   
    
58.     )
    
59.     (alert "未找到红色闭合多段线")
    
60.     )
    
61.   (princ)
    
62.   )
    
63.    

;;返回绘图区坐标点<br /> ;;from mjtd<br /> (defun zj-get-scr-coods (/ half_h half_w pt_cen lst ptx pty)<br />    (setq pt_cen (trans (GETVAR "VIEWCTR") 1 2)<br />    ptx (car pt_cen)<br />    pty (cadr pt_cen)<br />       half_h (* 0.5 (GETVAR "VIEWSIZE"))<br />    half_w (* half_h (/ (car (GETVAR "SCREENSIZE")) (cadr (GETVAR "SCREENSIZE"))))<br />    ) <br />   (LIST (LIST (- ptx half_w) (- pty half_h)) (LIST (+ ptx half_w) (+ pty half_h)))  <br /> )<br /> ;;取组码值<br /> (defun sk_dxf(ent code)(cdr(assoc code(entget ent))))<br /> ;;选择集或图元名转句柄列表<br /> ;;code by edata@mjtd<br /> (defun sk_h5ss->lst(ss / en i lst)<br />   (cond<br />       ((= (type ss) 'ENAME)(list (sk_dxf ss 5)))<br />       ((= (type ss) 'PICKSET)<br />        (setq i -1 lst '())<br />        (while(setq en(ssname ss(setq i(1+ i))))<br />          (setq lst(cons (sk_dxf en 5) lst))         <br />          )<br />        (if(/= lst '())(reverse lst))<br />        )<br />       )<br />   )<br /> <br /> ;;主程序<br /> ;;点选红色闭合多段线(图层过滤自己修改)<br /> ;;code by edata@mjtd<br /> ;;2014-7-4<br /> (defun c:tt(/ a b bak_h5lst2 h5lst1 h5lst2 h5_eq loop p0 ss1 ss2)<br />   (if(and(setq p0(getpoint "请在红色闭合多段线内指定一点:"))<br />          (setq ss1(ssget "f"(list p0(car(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))<br />          (setq ss2(ssget "f"(list p0(cadr(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))<br />          )<br />     (progn<br />       (setq h5lst1(sk_h5ss->lst ss1)<br />             h5lst2(sk_h5ss->lst ss2)<br />             loop t<br />             )<br />       (while(and loop (setq a(car h5lst1)))<br />         (setq bak_h5lst2 h5lst2)<br />         (while(and loop (setq b(car bak_h5lst2)))<br />           (if (= a b)(setq h5_eq a loop nil))<br />           (setq bak_h5lst2(cdr bak_h5lst2))<br />           )<br />         (setq h5lst1(cdr h5lst1))<br />         )<br />     (if h5_eq<br />       (progn<br />         ;(redraw (ssname ss1 0) 3)<br />         (sssetfirst nil (ssadd(handent h5_eq)) )<br />         )<br />       (alert "未找到红色闭合多段线")<br />       )    <br />     )<br />     (alert "未找到红色闭合多段线")<br />     )<br />   (princ)<br />   )<br />    

77077

给力,正在研究代码,待会写学习报告~

77077

edata版的,完全能满足要求,用起来也很方便.不过我还是没看懂一部分~
      (while(and loop (setq a(car h5lst1)))
        (setq bak_h5lst2 h5lst2)
        (while(and loop (setq b (car bak_h5lst2)))
          (if (= a b)(setq h5_eq a loop nil))
          (setq bak_h5lst2(cdr bak_h5lst2))
          )
        (setq h5lst1(cdr h5lst1))
        )