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

hardthinking

      找了一圈，只找到了调节锁定图层淡显的变量“LAYLOCKFADECTL”，请问有无控制锁定图层对象无法被选中的变量？要是没有，请大侠们帮我做一个框选并自动过滤掉 已被锁定对象 的lsp吧！{:soso_e100:}感谢...
     就是框选 只能选中 未锁定图层 对象，，

Lisphk

实体没锁定吧，只有图层才有锁定，楼主，过滤掉锁定的层就行了。

eachy

论坛上有过代码和讨论，给你个CAD附带的

1. (setq ss (ai_ssget (ssget)))

(setq ss (ai_ssget (ssget)))

hardthinking

Lisphk 发表于 2013-8-18 17:54
实体没锁定吧，只有图层才有锁定，楼主，过滤掉锁定的层就行了。

是啊，，这个怎么写啊，怎么过滤掉锁定的图层啊，不会...

newer

hardthinking 发表于 2013-8-18 17:58
是啊，，这个怎么写啊，怎么过滤掉锁定的图层啊，不会...

图层锁定后，标志存在哪个组码上了，值是多少你知道吗，看看DXF的帮助手册。

hardthinking

eachy 发表于 2013-8-18 17:56
论坛上有过代码和讨论，给你个CAD附带的

;;; -------------------------(D)框选非锁定对象-----------------------------------------------
(defun c:D ()
(sssetfirst nil (ssget '((ai_ssget (ssget)))))  
  (princ)
)
我找了相关的，看不大懂。您看我上面写的这个哪里有问题？CAD提示“列表错误”。我想实现，按D，然后框选，只能框到非锁定图层上的东西。

newer

hardthinking 发表于 2013-8-18 17:58
是啊，，这个怎么写啊，怎么过滤掉锁定的图层啊，不会...

锁定前，锁定后的图层0的 ENTGT数据定义，你看下，哪个地方不一样了？

2. 
   
3. 命令: (setq a (xdrx_object_get "layer" "0"))
   
4. <图元名: 7ef01c80>
   
5. 
   
6. 命令: (entget a)
   
7. ((-1 . <图元名: 7ef01c80>) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef03120>) (102 . "}") (330 . <图元名: 7ef01c10>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))
   
8. 
   
9. 命令: (entget a)
   
10. ((-1 . <图元名: 7ef01c80>) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef03120>) (102 . "}") (330 . <图元名: 7ef01c10>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 4) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))
    
11. 
    

<br /> 命令: (setq a (xdrx_object_get "layer" "0"))<br /> <图元名: 7ef01c80><br /> <br /> 命令: (entget a)<br /> ((-1 . <图元名: 7ef01c80>) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef03120>) (102 . "}") (330 . <图元名: 7ef01c10>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))<br /> <br /> 命令: (entget a)<br /> ((-1 . <图元名: 7ef01c80>) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ef03120>) (102 . "}") (330 . <图元名: 7ef01c10>) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 4) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))<br /> <br />

eachy

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

不要加 '

1. (defun c:tt () (sssetfirst nil (ai_ssget (ssget))) (princ))

(defun c:tt () (sssetfirst nil (ai_ssget (ssget))) (princ))

newer

图层锁定时候的数据：

1. 
   
2. 命令: (entget a)
   
3. ((-1 . <图元名: 7ef03698>) (0 . "LAYER") (330 . <图元名: 7ef01c10>) (5 . "24B") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "1") (70 . 4) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))
   

复制代码

图层冻结,没锁定时候的数据

1. 
   
2. 命令: (entget a)
   
3. ((-1 . <图元名: 7ef03698>) (0 . "LAYER") (330 . <图元名: 7ef01c10>) (5 . "24B") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "1") (70 . 1) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))
   

复制代码

图层即冻结又锁定时候的数据

1. 
   
2. 命令: (entget a)
   
3. ((-1 . <图元名: 7ef03698>) (0 . "LAYER") (330 . <图元名: 7ef01c10>) (5 . "24B") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "1") (70 . 5) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 7ef01c78>) (347 . <图元名: 7ef01f70>) (348 . <图元名: 0>))
   

复制代码

Free-Lancer

SSGET 除了 X 选项只能选择可见对象，冻结后的不可见自然也选不到

hardthinking

eachy 发表于 2013-8-18 18:09
不要加 '

eachy大侠，这正是我想要的，感谢...

牢固

滤掉锁定图层：
(ssget ":L")
这是基础的知识！

hardthinking

newer 发表于 2013-8-18 18:10
图层锁定时候的数据：图层冻结,没锁定时候的数据图层即冻结又锁定时候的数据

       newer大侠，我看出来了，70是对应图层状态的，我试了下，(ssget '((8 . "0")))这个没问题，可以返回选择值，换成(ssget '((70 . "4")))CAD就提示“错误: ssget 列表值错误”..怎么回事啊？

hardthinking

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

牢固 版主，不好意思总是问这些初级问题，，，

牢固

hardthinking 发表于 2013-8-18 18:34
牢固 版主，不好意思总是问这些初级问题，，，

可以看看这个帖子学习下！
http://bbs.xdcad.net/forum.php?m ... st%3D1%26digest%3D1