[原创]过滤选择，类似于CAD的快速选择
<p>前几天看到一位网友的关于qselect的问题，我以前做过，但是不能像CAD那样出现蓝色的选择点，后来找到看到了一个SSSETFIRST函数，其实以前也看到过，只是不太明白里面的意思，但我现在想，这个函数应该能解决选择的问题，后来按照帮助里面的一步步试了下，果然，那些让我心动的蓝色点出来了。于是就做了一个可以滤图层、颜色、图元类型（如直线、块的区分）的程序，因为我只用到这几种，如果有需要其它过滤的，相信大家也可以自己加上去的。</p><p> </p> 如果这样的话，可能你的颜色都是随层的，程序没有区分随层的颜色，只对不随层的区分。 有没有常青藤的快速选择好用呀 <p>及时雨啊</p><p>着两天正在想解决过滤的问题</p><p>谢谢楼主了</p><p>看来晚上又的回去慢慢解读了 </p><p>看到没关灯的那个就是我家了 要是过了2点还没关记得叫我一下偶 哈哈。。。。。。。。</p> xinght99发表于2007-11-27 20:04:00static/image/common/back.gif有没有常青藤的快速选择好用呀<p></p><p>兄弟能说下他的功能吗？顺便发一份给我啊 谢谢了先</p><p>地址 </p><p><a href="mailto:quan-jj@163.com">quan-jj@163.com</a></p> QUAN2518发表于2007-12-7 23:47:00static/image/common/back.gif兄弟能说下他的功能吗？顺便发一份给我啊 谢谢了先地址 quan-jj@163.com
<p>摆渡一下，常青藤工作室</p> <p>可以交叉选就更好了。</p> 我也写了个 关于按匹配选择的函数
;按将目标对象作为过滤属性选择
;( EF:SSGetAsTypeentName otherFilter sType strPrompt)
;entName 被匹配的对象
;sType 为 "Layer" "Color" "Type" 组成的表
;otherFilter 额外的过滤表元素 如'(0 "Line")
;strPrompt 提示符
(defun EF:SSGetAsType ( entName tblsType otherFilter strPrompt / entName sFilter sType)
(setq sFilter nil)
(while (setq sType (car tblsType))
(cond
( (= (strcase sType) "LAYER")
(setq sFilter (cons (assoc 8 (entget entName)) sFilter) )
)
( (= (strcase sType) "COLOR")
(setq sFilter(cons
(cond
( (assoc 420 (entget entName))
(assoc 420 (entget entName))
)
( (assoc 62 (entget entName))
(assoc 62 (entget entName))
)
( T
(cons 62 256)
)
)
sFilter
)
)
)
( (= (strcase sType) "TYPE")
(setq sFilter (cons (assoc 0 (entget entName)) sFilter) )
)
)
(setq tblsType (cdr tblsType))
)
(ssget (cons otherFilter sFilter))
)
页:
[1]
2