求一个过滤锁定层代码

kwok

一份图里有好多层，只是几个层在用，其它全锁定了，
请帮忙在框选时过滤掉锁定的所有层的线.
需要这样:已指定2 个点，自动框选过滤锁定的层，只选中没有锁定层的线
(setq ss (ssget"_c" p1 p2))在这后面怎么加排除锁定层?
谢谢!

st788796

http://bbs.xdcad.net/thread-659040-1-1.html

:L

kwok

st788796 发表于 2013-5-6 14:22

                               
登录/注册后可看大图

http://bbs.xdcad.net/thread-659040-1-1.html

:L 那里面没有我说的那方法..

st788796

转成表情了  : L

Lispboy

锁定层上的实体，SSGET你能选上吗？

kwok

Lispboy 发表于 2013-5-6 14:40

                               
登录/注册后可看大图

锁定层上的实体，SSGET你能选上吗？

我也 觉得锁定了是选不上的，当用"C"时冒似可以选到线，所以在剪时就出错了.

st788796

命令: (ssget ":L")
选择对象: 指定对角点: 找到 1 个
5 个在锁定的图层上。

选择对象:
<Selection set: 3>


不加 :L

命令: (ssget)
选择对象: 指定对角点: 找到 6 个
选择对象:
<Selection set: 5>

kwok

st788796 发表于 2013-5-6 14:58

                               
登录/注册后可看大图

命令: (ssget "")
选择对象: 指定对角点: 找到 1 个
5 个在锁定的图层上。

问题是后面怎么加上 "c" p1p2这些参数?光L要手动选

st788796

自己写一个吧,参考 ai_utils.lsp 中的 ai_ssget, 这个文件里面都可以用的
(ai_ssget (ssget "c" p1 p2))

Lisphk

kwok 发表于 2013-5-6 15:00

                               
登录/注册后可看大图

问题是后面怎么加上 "c" p1p2这些参数?光L要手动选

那就在写个函数，处理下选择集，把锁定层的实体过滤掉不行吗？

kwok

st788796 发表于 2013-5-6 15:27

                               
登录/注册后可看大图

自己写一个吧,参考 ai_utils.lsp 中的 ai_ssget, 这个文件里面都可以用的
(ai_ssget (ssget "c" p1 p2))

ai_utils.lsp在哪里? 哪里可以下以，刚才搜了一下没有呢喃。

st788796

早期的版本就在 Support 目录, 2014 在 Support\zh-cn 下

Lisphk

kwok 发表于 2013-5-6 15:36

                               
登录/注册后可看大图

ai_utils.lsp在哪里? 哪里可以下以，刚才搜了一下没有呢喃。

在硬盘上搜索到这个了，帮你贴上来吧，代码也贴上吧，就是对锁定层判断了下。

[pcode=lisp,true]
;;;
;;; Returns T if passed ename is on a locked layer.
;;;
(defun ai_entity_locked (ename message)
  (if (= 4 (logand 4 (cdr (assoc 70
                            (tblsearch "layer" (cdr (assoc 8 (entget ename))))
                          ))))
    (progn
      (if (= 1 message)
        (princ "\n1 个对象位于锁定图层。")
      )
      T
    )
    nil
  )
)
;;;
;;; When passed a selection set, (ai_ssget) removes objects on locked
;;; layers from the returned selection set.  Nil is returned if all objects
;;; in the selection set are locked.  
;;;
(defun ai_ssget(ss / start_size end_size a diff)
  (setq start_size (sslength ss))

  (setq a 0)
  (while (< a (sslength ss))
    (if (ai_entity_locked (ssname ss a) 0)
      (ssdel (ssname ss a) ss)
      (setq a (1+ a))  ; Only increment if non-deleted item.
    )
  )

  (setq end_size (sslength ss))

  (if (/= 0 (setq diff (- start_size end_size)))
    (princ (strcat "\n" (itoa diff) " 个对象位于锁定图层。"))
  )
  (if (> (sslength ss) 0)
    ss   
    nil
  )
)
[/pcode]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ai_utils.lsp 
下载次数:2  文件大小:20.19 KB 
下载权限: 不限 以上  [免费赚D豆]

kwok

谢谢，已解决...

davide888

学习