如何获取所有已冻结的图层？谢谢！

wuxjld

如何获取所有已冻结的图层？谢谢！

citykunan

(defun c:test ( / lay name aa)

(while (setq lay (tblnext "layer" (not lay)))
(setq name (cdr (assoc 2 lay)))


(if (= 1 (cdr (assoc 70 lay)))
(setq aa (append (list name) aa))

)


);end while

(princ)
aa
)

龙龙仔

citykunan= 1 (cdr (assoc 70 lay)))----再想想!!

meflying

好象对的哦

无痕

对是对，只是不完全，考虑一下 逻辑运算

龙龙仔

dxf70=5                 -> 冻结+ 锁护 !! 要逻辑运算

meflying

呵呵,确实!

citykunan

龙版主真是一语惊醒梦中人，果然是这样，可是怎么改啊？我试过用(<= 1 (cdr (assoc 70 lay)))，但也不对，lisp是怎么进行计算的？谢谢。

龙龙仔

这样------(= (logand (cdr (assoc 70 LAY)) 1) 1)

citykunan

版主，好像应该如下吧。光(= (logand (cdr (assoc 70 LAY)) 1) 1)这一句，好像还是不行。 (defun c:test ( / lay name aa)

(while (setq lay (tblnext "layer" (not lay)))
(setq name (cdr (assoc 2 lay)))
(if (and (= 1 (cdr (assoc 70 lay))) (= (logior (cdr (assoc 70 lay)) 1) 1) )

(setq aa (append (list name) aa))

)


);end while

(princ)
aa
)