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

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
" e, Q4 T+ V4 u  [;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
;;;                   否则，选中模板对象后，重新选择需要过滤对象；
;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
6 T( o3 |/ q5 W  R" C2 O9 z;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
(defun TB:QS (new ids / GetPat filter)
  (defun GetPat (ids / SS en lst)
    (and
      (setq SS (entsel "\n请选择模板对象:"))
# s9 n$ C- \: H      (setq en (entget (car SS))
9 h6 g. i* O7 i0 b7 l6 S( ]     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
" H) D) X* W1 T4 \# X/ \4 g      )
- w9 A& e  ]: A0 d- |& q    ) ;and
    lst
  ~; m( E& G2 I7 `5 f5 G3 Y1 V) \  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
  (and
    (setq filter (GetPat ids))
    (sssetfirst nil (ssget filter))
  ) ;and
8 [) o) p$ n' {1 f  (princ)
)
, e4 |, E  P/ E1 P' u% |2 E
7 X) U* [- V. u; V; h& @$ H;;;----------------------------------------------------------------------------------------
;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
, U7 c2 E& t/ L# y  ^% i2 D- R;;;各位可以举一反三，定义自己所需的快速选择的命令。
. C  Y( }- ^% a0 x;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。
$ |) |7 u6 _" a
7 l# ?; i# L4 [" ?(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
  (TB:QS T '(0 8 62 1 2 40 90))
0 F. z( @5 m  u6 i)
& ^( Z5 m" F9 ?  s& O2 b9 J(defun C:QT () ;图元类型
  (TB:QS T '(0))
)
(defun C:QD () ;图层
  (TB:QS T '(8))
( x2 _6 D( O+ e3 B' ^" k8 v)
. z: O; v. Y4 y* L0 N% f(defun C:QC () ;颜色
  (TB:QS T '(62))
1 }2 v3 `/ n, S9 C" T)
2 k! }2 n! h# \# ?  e/ h(defun C:QDT () ;图元类型 线型
" V* S: [8 M$ x- m  P: `+ W; B  (TB:QS T '(0 6))
)
(defun C:QTT () ;文字内容
  (TB:QS T '(1))
1 y. C  }* z' u3 R$ _)
' l6 [* _8 `" f& t(defun C:QTH () ;文字高度
  (TB:QS T '(40))
)
! L0 t7 I' F1 v; o) m: i
, A+ t1 W  n0 v3 N9 ^2 `8 _;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！