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

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
;;;                   否则，选中模板对象后，重新选择需要过滤对象；
;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
2 z$ i+ G: l; ]0 f(defun TB:QS (new ids / GetPat filter)
8 Z$ S# w" q) h) d" ]  (defun GetPat (ids / SS en lst)
    (and
      (setq SS (entsel "\n请选择模板对象:"))
3 `9 S. }/ X9 K+ [      (setq en (entget (car SS))
& \4 k! |7 L; k( K  G     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
      )
    ) ;and
    lst
  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
8 b; ?* {; ]+ z; ]8 C  (and
    (setq filter (GetPat ids))
    (sssetfirst nil (ssget filter))
  ) ;and
6 F5 H( N* h$ z/ u0 |  (princ)
)

;;;----------------------------------------------------------------------------------------
; R( \& g2 k* V" e9 i;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
;;;各位可以举一反三，定义自己所需的快速选择的命令。
;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。
) N8 c: r! r. T$ H4 g' o) h
(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
  (TB:QS T '(0 8 62 1 2 40 90))
)
- x) y$ V$ a6 O. \(defun C:QT () ;图元类型
  (TB:QS T '(0))
6 C, M' C# j4 u  w' j, _) i7 o)
2 @3 i" |7 \  X(defun C:QD () ;图层
  (TB:QS T '(8))
; n$ _! B! b2 J4 c)
; M& C1 z7 i" h6 e$ N. N% X% _(defun C:QC () ;颜色
  (TB:QS T '(62))
# n7 D7 j+ e1 a9 |! y( B6 B% Q$ Y)
: o6 z* G# r  s( a' {(defun C:QDT () ;图元类型 线型
4 l( e+ u5 S" i" m  (TB:QS T '(0 6))
, H! W* |: l4 U& P' g)
(defun C:QTT () ;文字内容
1 r- f# y" p5 B2 y1 P2 A! `& g  (TB:QS T '(1))
)
(defun C:QTH () ;文字高度
  (TB:QS T '(40))
)
/ _5 O& p2 P# t8 W
;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！