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

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
0 P1 g' G6 b9 v2 c" |;;;                   否则，选中模板对象后，重新选择需要过滤对象；
;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
9 g6 t# I8 p/ Q3 n" G;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
(defun TB:QS (new ids / GetPat filter)
6 a& o. R9 ?1 @  (defun GetPat (ids / SS en lst)
    (and
+ @2 ]0 U2 F. Q      (setq SS (entsel "\n请选择模板对象:"))
      (setq en (entget (car SS))
     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
/ t$ ?/ n3 q; s" e% s      )
" b2 [, V6 s/ d# c; |: o  U/ D4 ~    ) ;and
4 T, B; _; \+ b# T. Y% B9 m    lst
$ ^3 d9 h0 z& F* y" D  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
% v7 x( a/ C$ q' V+ B8 z0 o0 `* ?  (and
    (setq filter (GetPat ids))
+ _1 n: |' D/ h$ Z    (sssetfirst nil (ssget filter))
  ) ;and
3 Y0 @4 @( _4 o& D, n) h, k4 W6 J  (princ)
)
- D1 ^$ F" |; H3 V( o) U
% K" D9 W2 N% T; |2 j;;;----------------------------------------------------------------------------------------
;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
;;;各位可以举一反三，定义自己所需的快速选择的命令。
9 \& h3 {' A$ S% W* s* ];;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。

(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
  (TB:QS T '(0 8 62 1 2 40 90))
)
/ `& I# ^: G+ Z7 q) z(defun C:QT () ;图元类型
  (TB:QS T '(0))
( I; |  |4 O' G; ?/ i" Z)
(defun C:QD () ;图层
, S( @. l3 V. p+ _' u5 d  (TB:QS T '(8))
)
(defun C:QC () ;颜色
  (TB:QS T '(62))
)
9 p$ _4 B7 |& }, J9 `7 O(defun C:QDT () ;图元类型 线型
: N; u8 ^9 O( |  (TB:QS T '(0 6))
& w" I# d1 j! F! e& v# \)
(defun C:QTT () ;文字内容
# W2 n4 I+ H' B7 T+ [3 q# e/ }+ I+ x1 s% I  (TB:QS T '(1))
)
(defun C:QTH () ;文字高度
  (TB:QS T '(40))
)
# l6 B* c4 D9 \! |- b; y: I
6 |' D  n' @/ F; d! m7 m- V;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！