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

hiper · 发表于 2003-12-22 02:46:00

在LSP程序中用SSGET函数选择物体准备处理，锁定层的物体不需要也不能被改动，但是却被加入选择集并且可以被redraw函数重画，如何排除锁定层的物体使之不被选中？
回复: (ssget "");Rejects locked layers
不行啊，ACAD不接受这个函数
Command: (ssget "")
*Cancel*
请讲详细些，谢谢！

无痕 · 发表于 2003-12-22 06:30:00

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

meflying · 发表于 2003-12-22 08:19:00

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

BDYCAD · 发表于 2003-12-22 09:04:00

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

luoyaya · 发表于 2003-12-22 13:26:00

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

meflying · 发表于 2003-12-22 13:31:00

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

luoyaya · 发表于 2003-12-22 13:43:00

那我放一个我写的过滤表:);取得非锁定层
(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  "")))
  )
我还以为我刚刚没回复,原来有两个贴晕啊
例:
(ssget (getunlocklayer))

meflying · 发表于 2003-12-22 13:46:00

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

meflying · 发表于 2003-12-22 14:09:00

简化一下程序：

copy


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

龙龙仔 · 发表于 2003-12-22 16:31:00

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

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

发表回复

精选推荐