求一个cad关于图层的lisp文件，具体就是关闭未选图层的代码，不是图层隔离，不用天正什么的插件

答案:3 悬赏:60

解决时间 2021-01-04 11:51

提问者网友：wodetian
2021-01-03 22:32

最佳答案

二级知识专家网友：最后战士
2021-01-03 22:57

(command "LAYER" "Off" "图层" "");关闭这个【图层】
(command "LAYER" "ON" "图层" "");打开这个【图层】
不知道是不是你需要的。
如果要关闭除了选择对象的图层；(setvar "clayer" "图层");设置这个图层为当前，然后逐个关闭其它的图层。

全部回答

1楼网友：绝望伪装
2021-01-04 01:30

(princ "\n当前图层的打开与关闭") (defun c:abc() (setq layname (getvar "clayer")) (setq layen (tblobjname "layer" layname)) (setq data (entget layen)) (setq dxf62 (cdr (assoc 62 data))) (if (minusp dxf62) (progn (princ "\n打开当前层") (setq data (entmod (subst (cons 62 (- dxf62))(assoc 62 data) data))) ) (progn (princ "\n关闭当前层") (setq data (entmod (subst (cons 62 (- dxf62))(assoc 62 data) data))) ) ) (setvar "cmdecho" 0) (command "redraw") (setvar "cmdecho" 1) (princ) )

2楼网友：强势废物
2021-01-03 23:56

是不是通过选取图元，其所在图层是打开的，未选到的图元其所在图层就闭关。如果是这样，请试用下面两程序。 ;;选取图元，关闭其所在图层之外的所有图层 (defun c:gbtc() (vl-load-com) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_undo" "be") (setq tcmb nil) (vlax-for layer (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) (setq tcmb (cons (list (vla-get-name layer) layer) tcmb)) ) (if (setq ssa (ssget )) (progn (setq tymb (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssa)))) (foreach ent tymb (setq name (cdr (assoc 8 (entget ent))) tcmb (vl-remove (assoc name tcmb) tcmb) ) ) (foreach tcm tcmb (vla-put-LayerOn (cadr tcm) :vlax-false) ) ) ) (command "_undo" "e") (setvar "cmdecho" cm) (princ) ) ;;打开闭关的所有图层 (defun c:dktc() (vl-load-com) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_undo" "be") (setq tcmb nil) (vlax-for layer (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) (if (= (vla-get-LayerOn layer) ':vlax-false) (vla-put-LayerOn layer :vlax-true) ) ) (command "_undo" "e") (setvar "cmdecho" cm) (princ) )

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！