[求助] 关于图层在视口中冻结的问题

caoyin

2. ;;我用以下方法判断指定图层在视口中是否被冻结
3. (defun lt:viewPort-layer-freeze (vp lay)
4.   (and (member (cons 331 (tblobjname "layer" lay)) (entget vp)))
5. )

;;我用以下方法判断指定图层在视口中是否被冻结 (defun lt:viewPort-layer-freeze (vp lay)   (and (member (cons 331 (tblobjname "layer" lay)) (entget vp))) )

怎样不用command，设置图层在视口中冻结或解冻

2. ;;;如下解冻的方法无效，请教各位
3. (defun test (vp lay)
4.   (entmod (vl-remove-if
5.             '(lambda (x) (and (= (car x) 331) (eq (cdr x) (tblobjname "layer" lay)))) (entget vp)
6.           )
7.   )
8. )

;;;如下解冻的方法无效，请教各位 (defun test (vp lay)   (entmod (vl-remove-if             '(lambda (x) (and (= (car x) 331) (eq (cdr x) (tblobjname "layer" lay)))) (entget vp)           )   ) )

caoyin

盼望各位高手指教，谢谢！！