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

tengte · 发表于 2013-10-25 19:39:26

xiongqunan 发表于 2013-10-23 11:30
的确挺不错的！但有个问题就是在选择矩形或多义线时无法认识矩形的大小及多义线的长短！！！希望楼主改进一 ...

最近比较忙，没时间写程序！

tengte · 发表于 2013-10-24 13:52:24

xiongqunan 发表于 2013-10-23 11:30
的确挺不错的！但有个问题就是在选择矩形或多义线时无法认识矩形的大小及多义线的长短！！！希望楼主改进一 ...

矩形或多义线大小及、长短没有直接的DXF组码，要通过计算才能得出，这个程序只是针对DXF组码来选择的。

xiongqunan · 发表于 2013-10-23 11:30:59

的确挺不错的！但有个问题就是在选择矩形或多义线时无法认识矩形的大小及多义线的长短！！！希望楼主改进一下！！！

逮猫的老鼠 · 发表于 2013-9-10 08:34:27

顶一下，谢谢楼主分享

KL820619 · 发表于 2013-8-28 16:41:10

顶一下~~~~~~~~~~~~

crazylsp · 发表于 2013-8-27 15:15:12

谢谢楼主提供！设计思路非常好,看的出是经过艰苦思考过后的

zhengxiansz · 发表于 2013-8-27 13:22:58

找了好久今天终于找到了。谢谢楼主。

tengte · 发表于 2013-8-27 11:40:32

crazylsp 发表于 2013-8-26 17:27
;哈哈,终于修改大师的代码为并集的(图层)选择! at 20130826

(defun c:tt() (QS T '(8)))

(setq n(sslength ss) lst'() )
这里没有必要初始化lst为nil（'()其实就是nil），因为lst已经定义为函数的局部变量，其初值已经为nil了。当然这样用也没有错！

crazylsp · 发表于 2013-8-26 17:27:22

;哈哈,终于修改大师的代码为并集的(图层)选择! at 20130826

(defun c:tt() (QS T '(8)))

(defun QS (new ids / filter)

  (defun GetPat (ids / SS n e en lst)

   (and
   (princ "\n请选择模板对象:")
   (setq SS (ssget ) )
   )

   (setq n(sslength ss) lst'() )

   (repeat n
      (setq n(- n  1 )
            e(ssname ss n)
            en(entget e)
            lst(append(vl-remove-if-not '(lambda (e) (member (car e) ids)) en)lst)
      )
   )

   (setq lst(append '((-4 . "<OR")) lst '((-4 .  "OR>")) ) )

  ) ;defun

  (sssetfirst nil (ssget(GetPat ids)))

  (princ)

) ;defun

pengfei2010 · 发表于 2013-8-25 11:59:57

学习了谢谢

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

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

点评

评分

点评