[求助]求在批量窗选图形时,过虑掉虚线层不被选择的代码?????

lhb8121

求在批量窗选图形时,过虑掉虚线层不被选择的代码?????  要LISP的代码??谢谢!!!

lhb8121

谢谢热心人士,请上传代码????????急要

lhb8121

有没有过虑掉虚线层的LISP代码呀？？？？？？？？？？？？？？？？？？？？

Saging

笨方法，遍历图层，记录图层线型为虚线的图层名。

SSGET方法中用(8 . "~图层名")过滤器

Saging

没事干写了段代码，看看是不是这样吧，另外还有没有高手有简单的方法呢？

2. (defun get_layer(/ layer_info layers);返回当前图纸中图层信息
3.   (setq layer_info (tblnext "layer" t))
4.   (while (/= layer_info nil)
5.     (setq layers (append layers (list layer_info)))
6.     (setq layer_info(tblnext "layer"))
7.     )
8.     layers
9.   )
10. (defun get_layer_linetype(linetype / TMPLIST ly_infos ly_info);提取包含指定线型的图层
11.   (setq ly_Infos (get_layer))
12.   (foreach ly_info ly_Infos
13.     (if (= linetype (substr (cdr (assoc 6 ly_info)) 1 (strlen linetype)))
14.       (setq tmplist (append tmplist (list (CDR (assoc 2 ly_info))))))
15.     )
16.   tmplist
17.   )
18. (defun c:test()
19.   (setq layers (get_layer_linetype "HIDDEN"));获取包含指定线型的图层（此处为HIDDEN*）
20.   ;以下5行代码为构造过滤器
21.   (setq filters (list (cons -4 "<and")))
22.   (foreach layer layers
23.     (setq filters (append filters (list (cons 8 (strcat "~" layer)))))
24.     )
25.   (setq filters (append filters (list (cons -4 "and>"))))
26.   ;选择
27.   (setq a (ssget "x" filters))
28.   )

(defun get_layer(/ layer_info layers);返回当前图纸中图层信息   (setq layer_info (tblnext "layer" t))   (while (/= layer_info nil)     (setq layers (append layers (list layer_info)))     (setq layer_info(tblnext "layer"))     )     layers   ) (defun get_layer_linetype(linetype / TMPLIST ly_infos ly_info);提取包含指定线型的图层   (setq ly_Infos (get_layer))   (foreach ly_info ly_Infos     (if (= linetype (substr (cdr (assoc 6 ly_info)) 1 (strlen linetype)))       (setq tmplist (append tmplist (list (CDR (assoc 2 ly_info))))))     )   tmplist   ) (defun c:test()   (setq layers (get_layer_linetype "HIDDEN"));获取包含指定线型的图层（此处为HIDDEN*）   ;以下5行代码为构造过滤器   (setq filters (list (cons -4 "<and")))   (foreach layer layers     (setq filters (append filters (list (cons 8 (strcat "~" layer)))))     )   (setq filters (append filters (list (cons -4 "and>"))))   ;选择   (setq a (ssget "x" filters))   )

lhb8121

谢谢楼上的热心人士

zctao1966

怎样过滤带前缀的层呢？？？

比如想不选中hidden,hidcen,hidcti...

当然，只知前缀hid,其余的为任意，怎样过滤，请高手赐招。

雪山飞狐_lzh

hid*

无痕

Saging发表于2009-5-12 18:02:00笨方法，遍历图层，记录图层线型为虚线的图层名。SSGET方法中用(8 . \"~图层名\")过滤器

不是笨方法，是标准方法