输入南方CASS编码批量选择物体

树櫴希德

2. ;选择集与对象名表互转
   
3. (defun cx-ss2en
   
4.   (ss / enlst)
   
5.   (cond
   
6.     ((= (type ss) 'PICKSET)
   
7.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
   
8.     )
   
9.     ((= (type ss) 'LIST)
   
10.       (setq enlst (ssadd))
    
11.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
12.     )
    
13.     ((='ename(type ss))
    
14.       (ssadd ss)
    
15.     )
    
16.   )
    
17. )
    
18. (defun c:xzwt ( / bm ss i lst e en lstt);输入南方CASS编码批量选择物体
    
19. (setq bm(cons 1000 (rtos(getreal "请输入实体南方编码" )2 0)) )
    
20. 
    
21. (setq ss (ssget "x"'()   ))
    
22. (setq i 0)
    
23. (setq lst '())
    
24.    (repeat (sslength ss)
    
25. 
    
26.      (setq e (ssname ss i))
    
27.        (setq en (entget e '("*")))
    
28.      
    
29. (if  
    
30.      (equal (car(cdr (car (cdr (assoc -3 en))))) bm)
    
31.   
    
32.         (setq lst (append  lst (list e))  )
    
33.          )
    
34.      (setq  i  (1+ i))
    
35.      
    
36.      )
    
37. (setq lstt (cx-ss2en lst))
    
38. (sssetfirst nil lstt)
    
39.   
    
40. )
    

;选择集与对象名表互转<br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br /> (defun c:xzwt ( / bm ss i lst e en lstt);输入南方CASS编码批量选择物体<br /> (setq bm(cons 1000 (rtos(getreal "请输入实体南方编码" )2 0)) )<br /> <br /> (setq ss (ssget "x"'()   ))<br /> (setq i 0)<br /> (setq lst '())<br />    (repeat (sslength ss)<br /> <br />      (setq e (ssname ss i))<br />        (setq en (entget e '("*")))<br />      <br /> (if  <br />      (equal (car(cdr (car (cdr (assoc -3 en))))) bm)<br />   <br />         (setq lst (append  lst (list e))  )<br />          )<br />      (setq  i  (1+ i))<br />      <br />      )<br /> (setq lstt (cx-ss2en lst))<br /> (sssetfirst nil lstt)<br />   <br /> )<br />

树櫴希德

2. ;选择集与对象名表互转
   
3. (defun cx-ss2en
   
4.   (ss / enlst)
   
5.   (cond
   
6.     ((= (type ss) 'PICKSET)
   
7.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
   
8.     )
   
9.     ((= (type ss) 'LIST)
   
10.       (setq enlst (ssadd))
    
11.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
12.     )
    
13.     ((='ename(type ss))
    
14.       (ssadd ss)
    
15.     )
    
16.   )
    
17. )
    
18. (defun c:xzwt ( / bm ss i lst e en lstt ydx);输入南方CASS编码批量选择物体
    
19.   (prompt "\n请选择一个源对象：")
    
20.   (setq ydx (entget (car (entsel ""))'("*")))
    
21.   
    
22. (setq bm (car(cdr (car (cdr (assoc -3 ydx))))) )
    
23. 
    
24. (setq ss (ssget "x"'()   ))
    
25. (setq i 0)
    
26. (setq lst '())
    
27.    (repeat (sslength ss)
    
28. 
    
29.      (setq e (ssname ss i))
    
30.        (setq en (entget e '("*")))
    
31.      
    
32. (if  
    
33.      (equal (car(cdr (car (cdr (assoc -3 en))))) bm)
    
34.   
    
35.               (setq lst (append  lst (list e))  )
    
36.          )
    
37.      (setq  i  (1+ i))
    
38.      
    
39.      )
    
40. (setq lstt (cx-ss2en lst))
    
41. (sssetfirst nil lstt)
    
42.        
    
43. )
    

;选择集与对象名表互转<br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br /> (defun c:xzwt ( / bm ss i lst e en lstt ydx);输入南方CASS编码批量选择物体<br />   (prompt "\n请选择一个源对象：")<br />   (setq ydx (entget (car (entsel ""))'("*")))<br />   <br /> (setq bm (car(cdr (car (cdr (assoc -3 ydx))))) )<br /> <br /> (setq ss (ssget "x"'()   ))<br /> (setq i 0)<br /> (setq lst '())<br />    (repeat (sslength ss)<br /> <br />      (setq e (ssname ss i))<br />        (setq en (entget e '("*")))<br />      <br /> (if  <br />      (equal (car(cdr (car (cdr (assoc -3 en))))) bm)<br />   <br />               (setq lst (append  lst (list e))  )<br />          )<br />      (setq  i  (1+ i))<br />      <br />      )<br /> (setq lstt (cx-ss2en lst))<br /> (sssetfirst nil lstt)<br />         <br /> )<br />

fengbuliulei

绝对的好东西。

血司

楼主，CASS不是自带了这个功能的么？批量选目标就可以完成的呀，而且更强大，无心冒犯，只是不知道有什么区别

树櫴希德

血司 发表于 2015-9-8 09:05
楼主，CASS不是自带了这个功能的么？批量选目标就可以完成的呀，而且更强大，无心冒犯，只是不知道有什么区 ...

供学习之用 各位不要过分依赖CASS 有时为了一个小功能装一个系统很不划算

血司

树櫴希德 发表于 2015-9-8 11:22
供学习之用 各位不要过分依赖CASS 有时为了一个小功能装一个系统很不划算

赞成供学习之用

theaking

楼主可以的，，厉害。。。这个都弄做到

gzbccy

树櫴希德 发表于 2015-8-28 12:36

到底是那一个才是源程序？一楼还是二楼？

awd37

(ssget "x" '((8 . "TK") (-3 ("SOUTH" (1000 . "121100")))))
全选 TK图层，编码为121100