【TB原创】自定义快速选择，简单实用，事半功倍

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
2 |" w6 G& O& o" E# n- c;;;                   否则，选中模板对象后，重新选择需要过滤对象；
;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
0 Y. _- i9 k& k' p& q;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
(defun TB:QS (new ids / GetPat filter)
6 Y* R2 h* }" n' e  (defun GetPat (ids / SS en lst)
    (and
  z6 h4 f' H: I      (setq SS (entsel "\n请选择模板对象:"))
      (setq en (entget (car SS))
$ r- I; n+ H, c1 h     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
; n$ l9 _; `: A  X, e9 E8 o      )
    ) ;and
    lst
  u1 Z( P# D; S5 a+ j  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
  (and
    (setq filter (GetPat ids))
  y$ g: o% h' [0 x5 r( g% k    (sssetfirst nil (ssget filter))
0 O+ r; L' t1 Z7 b/ j; M  ) ;and
  (princ)
2 J6 \" ~9 O' A# g( M! T, I# t! D)

1 k; c: Y9 \* Q5 E* `* {. D0 n' d. M;;;----------------------------------------------------------------------------------------
4 z/ O: O$ s% a& e;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
4 _9 U4 r& T) y! Z;;;各位可以举一反三，定义自己所需的快速选择的命令。
;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。

# A+ [* ?8 ^: r6 @3 e. c0 s+ k! T(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
: `! G. m9 I' d5 y) Y3 U8 E- a  (TB:QS T '(0 8 62 1 2 40 90))
)
(defun C:QT () ;图元类型
0 g" M* I' q( @! c5 i  (TB:QS T '(0))
)
% N  W9 ~6 D- z: k  |3 N: o(defun C:QD () ;图层
  (TB:QS T '(8))
)
" t3 A6 o* k2 i: |. I. x) O0 Z+ k+ a% w(defun C:QC () ;颜色
/ |' ?- h0 f% P6 u5 E* n1 ~  (TB:QS T '(62))
)
$ d& C! q  k, A0 x3 R1 L(defun C:QDT () ;图元类型 线型
4 t! y' E' i' x! Y& @8 C3 K  (TB:QS T '(0 6))
6 Q* y- E2 y: J- d- y$ ~& j)
(defun C:QTT () ;文字内容
0 ~4 K0 W3 J" Z0 R  (TB:QS T '(1))
)
(defun C:QTH () ;文字高度
5 A* x. {- ~( ~4 q1 D/ m+ u  (TB:QS T '(40))
)
. i+ K; E4 V- Z0 D: t9 e- d
;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！