求 框选并自动过滤掉已被锁定对象 lsp

Free-Lancer

牢固 发表于 2013-8-18 18:32
滤掉锁定图层：
(ssget "")
这是基础的知识！

这个是可以过滤的，只是 Ssget 这几个 ： 选项和其它的怎么配合一直没有搞明白

命令: (ssget ":L" "F" (list (getpoint) (getpoint)))
; 错误: 错误的点参数
命令: (ssget ":L" "F" (getpoint) (getpoint))
; 错误: 错误的点参数

hardthinking

[ 本帖最后由 hardthinking 于 2013-8-18 19:16 编辑 ]\n\n以下两个都能实现我想要的功能。第二个性能更高~~认为有用的朋友可以直接拿走。
优点：我终于可以不用先“层显“再选对象编辑，再取消“层显”了，，有时候取消“层显”需要点时间。-------------------------(D)框选非锁定对象-----------------------------------------------
(defun c:D () (sssetfirst nil (ai_ssget (ssget))) (princ))
;;; -------------------------(DD)框选非锁定对象-----------------------------------------------
(defun c:DD () (sssetfirst nil (ssget ":L")) (princ))

hardthinking

Free-Lancer 发表于 2013-8-18 18:40
这个是可以过滤的，只是 Ssget 这几个 ： 选项和其它的怎么配合一直没有搞明白

命令: (ssget "" "F" ...

请问您是怎么阻止:L不变成表情的？：L

Free-Lancer

hardthinking 发表于 2013-8-18 18:42
;;; -------------------------(D)框选非锁定对象-----------------------------------------------
(defu ...

ai_ssget 实质是在 SSget 中遍历移出锁定层实体后返回选择集，:L 应该是在 SSGET 内部直接过滤了(ARX) ，当然后者的效率自然高

wowan1314

Free-Lancer 发表于 2013-8-18 18:40
这个是可以过滤的，只是 Ssget 这几个 ： 选项和其它的怎么配合一直没有搞明白

命令: (ssget "" "F" ...

:L可与:n :S之类组合。 其他X CP WP 都不能组合使用。 这是比较郁闷的地方。

:l虽然可过滤锁定。但是当有其他C CP之类选项时候，就无法使用:l了。

这时候就需要ai_ssget对选择集处理。 不过我更倾向于 构建非锁定图层过滤表来实现。

newer

wowan1314 发表于 2013-8-18 18:54
可与:n :S之类组合。 其他X CP WP 都不能组合使用。 这是比较郁闷的地方。

:l虽然可过滤锁定。但是 ...

怎么构建非锁定图层过滤表呢？ 给大家贴个代码吧。

wowan1314

newer 发表于 2013-8-18 18:55
怎么构建非锁定图层过滤表呢？ 给大家贴个代码吧。

这个我还真没写过。
是直接拿别人的程序使用的。作者都忘记了。你让我怎么好意思贴出来！
我看待会我试着写写吧

newer

wowan1314 发表于 2013-8-18 19:10
这个我还真没写过。
是直接拿别人的程序使用的。作者都忘记了。你让我怎么好意思贴出来！
我看待会我 ...

直接在一个ssget里面过滤掉，我看还是比较难，看葛老的了。

wowan1314

newer 发表于 2013-8-18 19:19
直接在一个ssget里面过滤掉，我看还是比较难，看葛老的了。

大家测试下。看看用图层过滤表来实现与其他选项一起用。可否

2. ;;构建锁定图层过滤表
   
3. ;;用法 (ssget (t12))
   
4. (defun t12 ( / lay lst)
   
5.     (setq lay (tblnext "LAYER" t))
   
6.     (if (= (cdr (assoc 70 lay)) 0)
   
7.         (setq lst (list (cons 8 (cdr(assoc 2 lay))) (cons -4 "OR>")))
   
8.         (setq lst (list (cons -4 "OR>")))
   
9.     )
   
10.     (while (setq lay (tblnext "LAYER"))
    
11.         (if (= (cdr (assoc 70 lay)) 0)
    
12.             (setq lst (cons (cons 8 (cdr(assoc 2 lay))) lst))
    
13.         )
    
14.     )
    
15.     (cons (cons -4 "<OR") lst)
    
16. )

;;构建锁定图层过滤表<br /> ;;用法 (ssget (t12))<br /> (defun t12 ( / lay lst) <br />     (setq lay (tblnext "LAYER" t))<br />     (if (= (cdr (assoc 70 lay)) 0)<br />         (setq lst (list (cons 8 (cdr(assoc 2 lay))) (cons -4 "OR>")))<br />         (setq lst (list (cons -4 "OR>")))<br />     )<br />     (while (setq lay (tblnext "LAYER"))<br />         (if (= (cdr (assoc 70 lay)) 0)<br />             (setq lst (cons (cons 8 (cdr(assoc 2 lay))) lst))<br />         )<br />     )<br />     (cons (cons -4 "<OR") lst)<br /> )

wowan1314

用VL函数再做个

2. ;;构建锁定图层过滤表
   
3. (defun t11 ( / lays lst)
   
4.     (setq lst (list (cons -4 "OR>"))
   
5.         lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   
6.     )
   
7.     (vlax-map-collection
   
8.         lays
   
9.         '(lambda (x)
   
10.             (if (= (vla-get-lock x) :vlax-true)
    
11.                 nil
    
12.                 (setq lst (cons (cons 8 (vla-get-name x) ) lst))
    
13.             )
    
14.         )
    
15.     )
    
16.     (cons (cons -4 "<OR") lst)
    
17. )

;;构建锁定图层过滤表 <br /> (defun t11 ( / lays lst) <br />     (setq lst (list (cons -4 "OR>"))<br />         lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))<br />     )<br />     (vlax-map-collection<br />         lays<br />         '(lambda (x)<br />             (if (= (vla-get-lock x) :vlax-true)<br />                 nil<br />                 (setq lst (cons (cons 8 (vla-get-name x) ) lst))<br />             )<br />         )<br />     )<br />     (cons (cons -4 "<OR") lst)<br /> )

newer

hardthinking 发表于 2013-8-18 18:32
newer大侠，我看出来了，70是对应图层状态的，我试了下，(ssget '((8 . "0")))这个没问题，可以返 ...

ssget 是对实体操作的，它过滤的是实体的组码，它选的是实体内部有的数据。 而保存在实体内部有关层的信息只有 组吗 8， 图层名。

hardthinking

newer 发表于 2013-8-18 20:07
ssget 是对实体操作的，它过滤的是实体的组码，它选的是实体内部有的数据。 而保存在实体内部有关层的信 ...

明白了，，，多谢newer版主{:soso_e100:}...

Free-Lancer

1. (defun lockedlyr (/ r d)
   
2.   (while (setq d (tblnext "layer" (null d)))
   
3.     (if        (= (logand (cdr (assoc 70 d)) 4) 4)
   
4.       (setq r (cons (cdr (assoc 2 d)) r))
   
5.     )
   
6.   )
   
7.   (reverse r)
   
8. )

(defun lockedlyr (/ r d)<br />   (while (setq d (tblnext "layer" (null d)))<br />     (if        (= (logand (cdr (assoc 70 d)) 4) 4)<br />       (setq r (cons (cdr (assoc 2 d)) r))<br />     )<br />   )<br />   (reverse r)<br /> )

以前这样用，现在用 :L 了
_$ (vl-string-translate " " "," (vl-string-trim "()" (vl-princ-to-string (lockedlyr))))
"2,4"
_$

newer

wowan1314 发表于 2013-8-18 19:57
用VL函数再做个

假如，图层8，非锁定， 如果我还要求只选则图层8上面的实体呢？ 加你这个会不会有冲突？

wowan1314

newer 发表于 2013-8-18 20:20
假如，图层8，非锁定， 如果我还要求只选则图层8上面的实体呢？ 加你这个会不会有冲突？

图层8非锁定。只选图层8 就不需要这个函数了。

不过如果只选图层8，图层8又是锁定的呢。晕了