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

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
$ k9 w+ l4 b' d+ V: S, y" p* v;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
;;;                   否则，选中模板对象后，重新选择需要过滤对象；
) w2 T3 N( b4 _) w3 t  \, K- L2 {;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
1 S: N; y1 X' W$ I$ U8 h' S# A! z;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
7 Z1 E2 ]9 b) s* I; x7 O* g(defun TB:QS (new ids / GetPat filter)
) E' p8 O% x! w: C0 F  (defun GetPat (ids / SS en lst)
# f' v7 o* w. e0 \    (and
      (setq SS (entsel "\n请选择模板对象:"))
# P; }! t6 I3 C2 z2 o      (setq en (entget (car SS))
     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
      )
    ) ;and
    lst
  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
' r' K2 t+ C1 p! s5 U9 d9 f6 ~  (and
0 c7 Z- x1 e  E! x7 }    (setq filter (GetPat ids))
1 I% k0 B; v+ L$ L, {    (sssetfirst nil (ssget filter))
2 }4 k# _, L+ |, X  ) ;and
  (princ)
)
/ M) Q! ?0 K# C1 M: m
) n" M- G$ [& L4 O. t9 E' q6 D4 D  O;;;----------------------------------------------------------------------------------------
" M% i" V( M6 Q5 V8 C. L. ?;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
;;;各位可以举一反三，定义自己所需的快速选择的命令。
;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。

3 ^+ \2 R0 I: i& P- K; _(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
) h2 o7 ]3 m7 U: ~, _6 R7 Y) U  (TB:QS T '(0 8 62 1 2 40 90))
$ Y) ?5 D: Q7 D9 @* g)
(defun C:QT () ;图元类型
  (TB:QS T '(0))
)
(defun C:QD () ;图层
8 j+ z1 a- q& g7 R3 p# n- c  (TB:QS T '(8))
# H( }7 ~6 {1 K8 Q6 E)
(defun C:QC () ;颜色
  (TB:QS T '(62))
; V  d& ]& M2 `) L& w6 X) j- `+ O)
(defun C:QDT () ;图元类型 线型
  (TB:QS T '(0 6))
)
# O9 P" y1 P! h7 v(defun C:QTT () ;文字内容
  (TB:QS T '(1))
)
(defun C:QTH () ;文字高度
( ?3 z& k- m$ l9 ]) r8 L, M  (TB:QS T '(40))
)

;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！