快速选择(简易版),求优化~~~

77077

2. 
   
3. (defun c:ss1( / dxfl dxfll ss ent ent1 dnm)
   
4. (setvar "cmdecho" 0)
   
5. (setq dxfl '((0 "图元类型")
   
6.            (1 "图元的主文字值 ")
   
7.            (2 "名称")
   
8.            (6 "线型名")
   
9.            (7 "文字样式")
   
10.            (8 "图层")
    
11.            (10 "起点/圆心")
    
12.            (11 "其他点")
    
13.            (48 "线型比例")
    
14.            (62 "颜色号"));常用组码
    
15.       dxfll (mapcar 'car dxfl)
    
16.       ss (entsel "\n点取源对象: ")
    
17.       ent (entget (car ss))
    
18.       ent1 (mapcar 'car ent)
    
19.      )
    
20. (setq ent1 (vl-remove nil (mapcar '(lambda(x) (if (member x dxfll) (assoc x dxfl))) ent1)));提出过滤组码
    
21. (princ ent1)
    
22. (setq n (getint "\n 请选择过滤组码:"))
    
23. (setq dnm (cdr (assoc n ent))
    
24.       ss (ssget ":S" (list (cons n dnm)))
    
25.      )
    
26. (sssetfirst nil ss)
    
27. (princ)
    
28. )

<br /> (defun c:ss1( / dxfl dxfll ss ent ent1 dnm)<br /> (setvar "cmdecho" 0)<br /> (setq dxfl '((0 "图元类型")<br />            (1 "图元的主文字值 ")<br />            (2 "名称")<br />            (6 "线型名")<br />            (7 "文字样式")<br />            (8 "图层")<br />            (10 "起点/圆心")<br />            (11 "其他点")<br />            (48 "线型比例")<br />            (62 "颜色号"));常用组码<br />       dxfll (mapcar 'car dxfl)<br />       ss (entsel "\n点取源对象: ")<br />       ent (entget (car ss))<br />       ent1 (mapcar 'car ent)<br />      )<br /> (setq ent1 (vl-remove nil (mapcar '(lambda(x) (if (member x dxfll) (assoc x dxfl))) ent1)));提出过滤组码<br /> (princ ent1)<br /> (setq n (getint "\n 请选择过滤组码:"))<br /> (setq dnm (cdr (assoc n ent))<br />       ss (ssget ":S" (list (cons n dnm)))<br />      )<br /> (sssetfirst nil ss)<br /> (princ)<br /> )

77077

其实也就是选同类实体

2. (defun c:ss0( )
   
3. (setvar "cmdecho" 0)
   
4. (setq ss (entsel "\n点取源对象: ")
   
5.       ent (entget (car ss))
   
6.      )
   
7. (setq dnm (cdr (assoc 0 ent))
   
8.       ss (ssget ":S" (list (cons 0 dnm)))
   
9.      )
   
10. (sssetfirst nil ss)
    
11. (princ)
    
12. )
    
13. 
    
14. (defun c:ss8( )
    
15. (setvar "cmdecho" 0)
    
16. (setq ss (entsel "\n点取源对象: ")
    
17.       ent (entget (car ss))
    
18.      )
    
19. (setq dnm (cdr (assoc 8 ent))
    
20.       ss (ssget ":S" (list (cons 8 dnm)))
    
21.      )
    
22. (sssetfirst nil ss)
    
23. (princ)
    
24. )
    
25. 
    
26. (defun c:ss1( )
    
27. (setvar "cmdecho" 0)
    
28. (setq ss (entsel "\n点取源对象: ")
    
29.       ent (entget (car ss))
    
30.      )
    
31. (setq dnm (cdr (assoc 1 ent))
    
32.       ss (ssget ":S" (list (cons 1 dnm)))
    
33.      )
    
34. (sssetfirst nil ss)
    
35. (princ)
    
36. )
    
37. 
    
38. (defun c:ss62( )
    
39. (setvar "cmdecho" 0)
    
40. (setq ss (entsel "\n点取源对象: ")
    
41.       ent (entget (car ss))
    
42.      )
    
43. (setq dnm (cdr (assoc 62 ent))
    
44.       ss (ssget ":S" (list (cons 62 dnm)))
    
45.      )
    
46. (sssetfirst nil ss)
    
47. (princ)
    
48. )

(defun c:ss0( )<br /> (setvar "cmdecho" 0)<br /> (setq ss (entsel "\n点取源对象: ")<br />       ent (entget (car ss))<br />      )<br /> (setq dnm (cdr (assoc 0 ent))<br />       ss (ssget ":S" (list (cons 0 dnm)))<br />      )<br /> (sssetfirst nil ss)<br /> (princ)<br /> )<br /> <br /> (defun c:ss8( )<br /> (setvar "cmdecho" 0)<br /> (setq ss (entsel "\n点取源对象: ")<br />       ent (entget (car ss))<br />      )<br /> (setq dnm (cdr (assoc 8 ent))<br />       ss (ssget ":S" (list (cons 8 dnm)))<br />      )<br /> (sssetfirst nil ss)<br /> (princ)<br /> )<br /> <br /> (defun c:ss1( )<br /> (setvar "cmdecho" 0)<br /> (setq ss (entsel "\n点取源对象: ")<br />       ent (entget (car ss))<br />      )<br /> (setq dnm (cdr (assoc 1 ent))<br />       ss (ssget ":S" (list (cons 1 dnm)))<br />      )<br /> (sssetfirst nil ss)<br /> (princ)<br /> )<br /> <br /> (defun c:ss62( )<br /> (setvar "cmdecho" 0)<br /> (setq ss (entsel "\n点取源对象: ")<br />       ent (entget (car ss))<br />      )<br /> (setq dnm (cdr (assoc 62 ent))<br />       ss (ssget ":S" (list (cons 62 dnm)))<br />      )<br /> (sssetfirst nil ss)<br /> (princ)<br /> )

XDSoft

你想优化什么呢？ 或者你贴的代码什么地方你认为需要改进？

st788796

(if. (and (setq e (car (entsel)))
               (setq ss (ssget (list (assos 1 (entget e)))))
      )
    ……

可以写一个自动批量定义 ss + x 这样lisp

lucas3

一个简易的选择易