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

tengteb

;;;接口函数：快速选择--根据选中的模板对象，过滤所需的对象。
;;; 参数说明：new--为nil时，可先选中需要过滤对象再选择模板对象（最后选中的对象不会显示夹点），
7 j$ F; y" g6 A* \;;;                   否则，选中模板对象后，重新选择需要过滤对象；
% ?% M* B; d, b;;;                   ids --DXF组码列表，由需与模板对象匹配的组码组成。
3 T: g! l* Q: X6 ^6 u  u* C;;;                   关于DXF组码，可查看CAD自带的帮助文档acad_dxf.chm。
(defun TB:QS (new ids / GetPat filter)
  (defun GetPat (ids / SS en lst)
0 i# M! S$ e& c5 G9 v    (and
      (setq SS (entsel "\n请选择模板对象:"))
/ q, q' u1 y8 T' D- q      (setq en (entget (car SS))
) n6 E* f2 f' ]0 c     lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
      )
: N! N$ j4 ?5 W* i# \! @3 [& h    ) ;and
    lst
1 e  H0 T( R' l! }% [  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
  (and
0 e& b  r3 R" t4 z* f% F) B    (setq filter (GetPat ids))
    (sssetfirst nil (ssget filter))
2 L  \2 O4 A8 c  ) ;and
6 Y  O; l4 o7 W/ g  (princ)
)

( f; k3 Y: y2 n% h;;;----------------------------------------------------------------------------------------
;;;应用实例。函数名C:XX中XX可自定义，且XX为调用此函数的命令。
;;;各位可以举一反三，定义自己所需的快速选择的命令。
4 E- i4 ^3 d* u, e- j# i- t/ e5 G: C. _;;;若觉得本函数好用，请回帖支持。以后我还会发布更多实用的函数。
2 W4 Q5 z6 B7 H4 t4 l( k( m
(defun C:Q () ;类型 图层 颜色[ 内容(文字) 块名(块) 半径/高度(圆/文字) 顶点数(多段线)]
1 ^6 A4 U7 P, d( T. d0 }/ v) G  (TB:QS T '(0 8 62 1 2 40 90))
& x% F2 B* w( w* b7 t0 |, l/ q)
(defun C:QT () ;图元类型
  (TB:QS T '(0))
; X! F( |/ W4 H)
. C. o; s4 i$ p+ R; n  N(defun C:QD () ;图层
  (TB:QS T '(8))
' [4 O+ U9 p4 J( u* E)
$ F/ o  C7 \# j; v2 W2 G, j. K8 s(defun C:QC () ;颜色
: U% ~% k: b- A  (TB:QS T '(62))
/ a( U7 w+ `0 {) Q+ ^$ K; d7 _; R5 X)
(defun C:QDT () ;图元类型 线型
  (TB:QS T '(0 6))
)
; S2 T& W* O& w' B0 u: u3 f- {(defun C:QTT () ;文字内容
. B: Y) c& I. ]6 B+ E) O) w  (TB:QS T '(1))
)
(defun C:QTH () ;文字高度
  (TB:QS T '(40))
)

' g! S9 ~4 s8 ?0 x9 z7 c) Y2 i1 u5 M;;; 另外，本人编写了一个去除AutoCAD教育版打印戳记的软件，感兴趣的朋友可以去我的博客看一看：http://tengte.blogbus.com/

tengteb

好像发错地方了！