利用ssnamex进行二次筛选

zdqwy19

       一个复合图形中只希望选中一部分图形，除了利用nentsel点选外也可以使用ssget和ssnamex来实现：使用框（栏）选来同时确定希望选中的范围和所要分析的复合图形，然后利用ssnamex来分析出所要的部分图形。说得有点啰嗦，代码（框选）写的也啰嗦。

2. ;利用碰选二次筛选结果 zdqwy19 2015.11.28 摘自自用程序
   
3. (defun C:ff(/ ss de lp lv lx ly lz xmax xmin xid xy xz ymax ymin yz)
   
4.   (setq ss(ssget))
   
5.   (setq de (ssnamex ss))
   
6.   ;(princ de)
   
7.   (setq xid (caar de))
   
8.   (if(= 3 xid);选择方式ID=3,碰选
   
9.     (progn
   
10.       (if(null (caddr(car(cdadr de))))
    
11.          (setq lv (list 0.0 0.0 1.0))
    
12.          (setq lv (caddr(car(cdadr de))))
    
13.   );选择方式点向量
    
14.       (setq xz (/ (car lv) (caddr lv))
    
15.       yz (/ (cadr lv) (caddr lv))
    
16.       )
    
17.       (setq listpoint (apply 'append (mapcar '(lambda(x)(list (cadr x))) (cdadr de))))
    
18.       (setq lx (apply 'append (mapcar '(lambda(x)(list (car x))) lp))
    
19.               ly (apply 'append (mapcar '(lambda(x)(list (cadr x))) lp))
    
20.               lz (apply 'append (mapcar '(lambda(x)(list (caddr x))) lp))
    
21.       )
    
22.       ;求出z=0时的选择范围
    
23.       (setq xmin (apply 'min (mapcar '(lambda(a b)(- a (* b xz))) lx lz)))
    
24.       (setq xmax (apply 'max (mapcar '(lambda(a b)(- a (* b xz))) lx lz)))
    
25.       (setq ymin (apply 'min (mapcar '(lambda(a b)(- a (* b yz))) ly lz)))
    
26.       (setq ymax (apply 'max (mapcar '(lambda(a b)(- a (* b yz))) ly lz)))
    
27.       (setq xy (list xmin xmax ymin ymax))
    
28.       )
    
29.     (setq xy (list 0.0 0.0 0.0 0.0))
    
30.     )
    
31.   (append (list xid) xy);将选择方式和选择范围一起输出
    
32.   ;获取的点设为pt(x y z)
    
33.   ;获取的坐标投到z=0时的xz0和yz0以方便比较是否在选择范围内
    
34. ;;;  (setq xz0 (- x (* z xz))
    
35. ;;;  yz0 (- y (* z yz))
    
36. ;;;  )
    
37. ;;;  (if(and(>= xz0 xmin)
    
38. ;;;   (<= xz0 xmax)
    
39. ;;;   (>= yz0 ymin)
    
40. ;;;   (<= yz0 ymax)
    
41. ;;;   )
    
42. ;;;    ;选中
    
43. ;;;    ;未选中
    
44. ;;;    )
    
45.   )

;利用碰选二次筛选结果 zdqwy19 2015.11.28 摘自自用程序<br /> (defun C:ff(/ ss de lp lv lx ly lz xmax xmin xid xy xz ymax ymin yz)<br />   (setq ss(ssget))<br />   (setq de (ssnamex ss))<br />   ;(princ de)<br />   (setq xid (caar de))<br />   (if(= 3 xid);选择方式ID=3,碰选<br />     (progn<br />       (if(null (caddr(car(cdadr de))))<br />          (setq lv (list 0.0 0.0 1.0))<br />          (setq lv (caddr(car(cdadr de))))<br />   );选择方式点向量<br />       (setq xz (/ (car lv) (caddr lv))<br />       yz (/ (cadr lv) (caddr lv))<br />       )<br />       (setq listpoint (apply 'append (mapcar '(lambda(x)(list (cadr x))) (cdadr de))))<br />       (setq lx (apply 'append (mapcar '(lambda(x)(list (car x))) lp))<br />               ly (apply 'append (mapcar '(lambda(x)(list (cadr x))) lp))<br />               lz (apply 'append (mapcar '(lambda(x)(list (caddr x))) lp))<br />       )<br />       ;求出z=0时的选择范围<br />       (setq xmin (apply 'min (mapcar '(lambda(a b)(- a (* b xz))) lx lz)))<br />       (setq xmax (apply 'max (mapcar '(lambda(a b)(- a (* b xz))) lx lz)))<br />       (setq ymin (apply 'min (mapcar '(lambda(a b)(- a (* b yz))) ly lz)))<br />       (setq ymax (apply 'max (mapcar '(lambda(a b)(- a (* b yz))) ly lz)))<br />       (setq xy (list xmin xmax ymin ymax))<br />       )<br />     (setq xy (list 0.0 0.0 0.0 0.0))<br />     )<br />   (append (list xid) xy);将选择方式和选择范围一起输出<br />   ;获取的点设为pt(x y z)<br />   ;获取的坐标投到z=0时的xz0和yz0以方便比较是否在选择范围内<br /> ;;;  (setq xz0 (- x (* z xz))<br /> ;;;  yz0 (- y (* z yz))<br /> ;;;  )<br /> ;;;  (if(and(>= xz0 xmin)<br /> ;;;   (<= xz0 xmax)<br /> ;;;   (>= yz0 ymin)<br /> ;;;   (<= yz0 ymax)<br /> ;;;   )<br /> ;;;    ;选中<br /> ;;;    ;未选中<br /> ;;;    )<br />   )

ynhh

谢谢你的分享

yoyoho

感谢分享,可以说明一下如何使用吗?

ymcui

谢谢你的分享

xiaolong1487

谢谢分享！学习一下！