PRESSCAD图层命令修改

lyjun528

PRESSCAD图层控制中单开图层后，其余图层关闭且锁定，请问如何修改成只关闭不锁定呢？
另如果我要修改开脱板层时同时打开另一个图层，如0层又怎样设置？
应是修改哪一份lsp文件，请高手指教！

没田的农民

lay_on这个里面 修改

lyjun528

我也知道是在这个文件或lay_on-OLD.lsp里，但怎么修改啊？

lyjun528

应该是修改下面哪个位置吧？具体的就不懂了，望赐教！那要加开另外的图层又是哪个位置呢？
(defun layer_off( layer_name / tbdata lname echo data c70 c62 q70 q62 )
        (setq echo (getvar "CMDECHO") )
        (setvar "CMDECHO" 0 )
        (setq tbdata ( tblnext "layer" T ) )
        (while  tbdata
                (setq lname (strcase (cdr (assoc 2 tbdata) )) )
                (if ( wcmatch lname ( strcase layer_name ) )
                        (progn
                                (setq data (entget (tblobjname "layer" lname)))
                                (setq c70 (logior (cdr (assoc 70 data)) 4))
                                (setq c62 (- (abs (cdr (assoc 62 data)))))
                                (setq q70 (cons 70 c70))
                                (setq q62 (cons 62 c62))
                                (setq data (subst q70 (assoc 70 data) data ) )
                                (setq data (subst q62 (assoc 62 data) data ))
                                (entmod data)
                                (setq have 1 )
                        )
                )
                (setq tbdata ( tblnext "layer"))
        )
        (setvar "CMDECHO" echo )
        (princ)
)