[求助]：用ssget时怎样控制锁定层物体不显亮?

nuance

用ssget时怎样控制锁定层物体不显亮?如同erase选择物体时只显亮非锁定层物体,不显亮锁定层物体,并在命令行提示"?? found,?? on a locked layer".

eachy

选择时使用过滤器。

nuance

是这样：(setq a (ssget '((-4 . "/=")(70 . 4))))
好像不对，请斑竹明确指点吧，多谢，多谢。

eachy

用API分析下

2. [font=courier]
   
3. (defun $get_lock_layer (/ lyr e a2)
   
4.   (setq lyr (xdrx_object_get "layer"))
   
5.   (setq a2 '())
   
6.   (while (setq e (xdrx_object_next))
   
7.     (xdrx_setenttodb (last e))
   
8.     (if        (= (xdrx_getentdxf 70) 4)
   
9.       (setq a2 (cons (car e) a2))
   
10.     )
    
11.   )
    
12.   (xdrx_string_join a2 ",")
    
13. )
    
14. [/font]
    

[font=courier]<br /> (defun $get_lock_layer (/ lyr e a2)<br />   (setq lyr (xdrx_object_get "layer"))<br />   (setq a2 '())<br />   (while (setq e (xdrx_object_next))<br />     (xdrx_setenttodb (last e))<br />     (if        (= (xdrx_getentdxf 70) 4)<br />       (setq a2 (cons (car e) a2))<br />     )<br />   )<br />   (xdrx_string_join a2 ",")<br /> )<br /> [/font]<br />

上面的函数获得锁定的图层，选择的时候这样（注意：为了显示完整，< 加了 空格，使用时要去掉空格）

1. 
   
2. (ssget (list '(-4 . "< not")
   
3.              (cons 8 ($get_lock_layer))
   
4.              '(-4 . "not >")
   
5.        )
   
6. )

复制代码

LUCAS

參數:L
:L  Rejects locked layers

;;選取圓(不含鎖定圖層)
(ssget ":L" '((0 . "CIRCLE")))

nuance

LUCAS:不行（r14中)，没见过这样的用法。

LUCAS

SORRY!
在2002下可用 !
其他版本未測試!

nuance

2002中ssget功能增加了，是吗？

LUCAS

2. 
   
3. ":L" 是ssget未公開的參數(undocumented)!!
   
4. 
   
5. ;;重写EACHY的方法,并闪开没有LOCK LAYER可能的错误
   
6. (defun GET_UNLOCK_LAYER        (/ LYR UNLOCK_LYR ENT)
   
7.   (setq LYR (TABLE "Layer"))
   
8.   (setq UNLOCK_LYR "")
   
9.   (foreach ENT LYR
   
10.     (if        (/= 4 (logand (cdr (assoc 70 (tblsearch "layer" ENT))) 4))
    
11.       (setq UNLOCK_LYR (strcat UNLOCK_LYR "," ENT))
    
12.     )
    
13.   )
    
14.   (setq UNLOCK_LYR (substr UNLOCK_LYR 2))
    
15. )
    
16. (defun TABLE (S / D R)
    
17.   (while (setq D (tblnext S (null D)))
    
18.     (setq R (cons (cdr (assoc 2 D)) R))
    
19.   )
    
20. )
    
21. 
    
22. ;;上面的函数获得未锁定的图层
    
23. ;;注意：为了显示完整，< 加了 空格，使用时要去掉
    
24. (defun TT (/ UNLOCK)
    
25.   (if (/= "" (setq UNLOCK (GET_UNLOCK_LAYER)))
    
26.     (ssget (list '(-4 . "< OR")
    
27.                  (cons 8 UNLOCK)
    
28.                  '(-4 . "OR >")
    
29.            )
    
30.     )
    
31.   )
    
32. )
    

<br /> ":L" 是ssget未公開的參數(undocumented)!!<br /> <br /> ;;重写EACHY的方法,并闪开没有LOCK LAYER可能的错误<br /> (defun GET_UNLOCK_LAYER        (/ LYR UNLOCK_LYR ENT)<br />   (setq LYR (TABLE "Layer"))<br />   (setq UNLOCK_LYR "")<br />   (foreach ENT LYR<br />     (if        (/= 4 (logand (cdr (assoc 70 (tblsearch "layer" ENT))) 4))<br />       (setq UNLOCK_LYR (strcat UNLOCK_LYR "," ENT))<br />     )<br />   )<br />   (setq UNLOCK_LYR (substr UNLOCK_LYR 2))<br /> )<br /> (defun TABLE (S / D R)<br />   (while (setq D (tblnext S (null D)))<br />     (setq R (cons (cdr (assoc 2 D)) R))<br />   )<br /> )<br /> <br /> ;;上面的函数获得未锁定的图层<br /> ;;注意：为了显示完整，< 加了 空格，使用时要去掉<br /> (defun TT (/ UNLOCK)<br />   (if (/= "" (setq UNLOCK (GET_UNLOCK_LAYER)))<br />     (ssget (list '(-4 . "< OR")<br />                  (cons 8 UNLOCK)<br />                  '(-4 . "OR >")<br />            )<br />     )<br />   )<br /> )<br />

nuance

谢谢, 我试过2002中:L,很方便,但在r14中实现这样的功能总是很麻烦.只是单位都用r14,唉.....