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

davide888 · 发表于 2013-11-3 17:23

顶上来

luyu9635 · 发表于 2013-10-30 17:45

tengte 发表于 2013-10-30 17:30
这个与调用TB:QS 时，DXF列表中加入62有区别吗？

当然是有区别了，这样子的，如果同一图层中有不同颜色这个就只选一种，而你那个是选整个图层不管有几种色

tengte · 发表于 2013-10-30 17:30

luyu9635 发表于 2013-10-28 16:25
小改了一下，个人觉行这样更方便，可以选择到同图层中的同一颜色

;;快速选择

这个与调用TB:QS 时，DXF列表中加入62有区别吗？

llsheng_73 · 发表于 2013-10-30 14:37

luyu9635 发表于 2013-10-28 16:25
小改了一下，个人觉行这样更方便，可以选择到同图层中的同一颜色

;;快速选择

改了之后好象是要好用得多，谢谢分享

tengte · 发表于 2013-10-30 12:53

lite 发表于 2013-10-28 23:10
那个模板对象可以一次选多个吗，这样的话可以提高选择的效率和减少选择的次数？

21楼的程序可能是你想要的，你可以看看

lite · 发表于 2013-10-28 23:10

那个模板对象可以一次选多个吗，这样的话可以提高选择的效率和减少选择的次数？

luyu9635 · 发表于 2013-10-28 16:25

小改了一下，个人觉行这样更方便，可以选择到同图层中的同一颜色

;;快速选择
(defun QSel (new ids / GetPat filter dx62)
  (defun GetPat (ids / SS en lst)
(and
   (setq SS (entsel "\n请选择模板对象:"))
   (setq en (entget (car SS))
   lst (vl-remove-if-not '(lambda (e) (member (car e) ids)) en)
   )
) ;and
   (if (member 62 ids)
   (progn
   (or (setq dx62 (assoc 62 en))(setq dx62 (cons '62 256)))
   (setq lst (append lst (list dx62)))
   )
   )
  lst

  ) ;defun
  (and new (sssetfirst nil nil)) ;new为T时，重新选择
  (and
(setq filter (GetPat ids))
(sssetfirst nil (ssget filter))
  ) ;and
  (princ)
)

davide888 · 发表于 2013-10-27 21:07

谢了

davide888 · 发表于 2013-10-27 21:06

很感谢群主好人

xiongqunan · 发表于 2013-10-27 08:11

tengte 发表于 2013-10-25 19:39
最近比较忙，没时间写程序！

这个肯定是要等不忙的时候再慢慢写的.

账号		自动登录	找回密码
密码			注册

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

点评