再---请教如何用LISP的SSGET函数选中“非锁定层”的实体

hiper

在LSP程序中用SSGET函数选择物体准备处理，锁定层的物体不需要也不能被改动，但是却被加入选择集并且可以被redraw函数重画，如何排除锁定层的物体使之不被选中？

回复: (ssget "");Rejects locked layers

不行啊，ACAD不接受这个函数
Command: (ssget "")
*Cancel*

请讲详细些，谢谢！

无痕

可以啊,选择时锁定层物体不亮显,

meflying

可以先用命令select，选择all，然后用ssget
(command "_.select" "all" "")
(setq ss (ssget "p"))

BDYCAD

To meflying:
                 您好,     你的方法好好的. 用(command "_.select" "all" "")就全部選非鎖定層的了. 很合適樓主選到非鎖定層的全部實體了. 呵呵 :D

luoyaya

(ssget "")好像可以的吧?

不过如何不可以的话可以自己做一个过滤表的吧,这样不是快很多吗?
用COMMAND太慢了吧

meflying

过滤表我也想过，好象写不出来。。。。
我测试过，简单的command命令和普通函数的运行时间差不多

luoyaya

那我放一个我写的过滤表:)



;取得非锁定层
(defun getunlocklayer(/ layer lay_list )
(setq layer (tblnext "layer" T))
  (if (= (cdr (assoc 70 layer) ) 0)
(setq lay_list (list (cons 8 (cdr (assoc 2 layer)))))
    )
(setq layer (tblnext "layer"))
(while layer
  (if (= (cdr (assoc 70 layer) ) 0)
     (setq lay_list (append lay_list (list (cons 8 (cdr (assoc 2 layer))))))
    )
        (setq layer (tblnext "layer"))
         )
   (append (cons (cons -4  "<OR") lay_list) (list (cons -4  "OR>")))

  )
我还以为我刚刚没回复,原来有两个贴晕啊
例:
(ssget (getunlocklayer))

meflying

这个到是没想到，动态写过滤表，好！

meflying

简化一下程序：

2. 
   
3. (defun getLayer ( / layer lay_list)
   
4.   (while (setq layer (tblnext "layer" (not layer)))
   
5.     (if (= (cdr (assoc 70 layer)) 0)
   
6.       (setq lay_list (append lay_list (list (cons 8 (cdr (assoc 2 layer))))))
   
7.     )
   
8.   )
   
9.   (append (cons (cons -4  "<OR") lay_list) (list (cons -4  "OR>")))
   
10. )
    

<br /> (defun getLayer ( / layer lay_list)<br />   (while (setq layer (tblnext "layer" (not layer)))<br />     (if (= (cdr (assoc 70 layer)) 0)<br />       (setq lay_list (append lay_list (list (cons 8 (cdr (assoc 2 layer))))))<br />     )<br />   )<br />   (append (cons (cons -4  "<OR") lay_list) (list (cons -4  "OR>")))<br /> )<br />

龙龙仔

查看(LUCAS 是我)
http://www.xdcad.net/forum/showthread.php?s=&postid=380504#post380504