【基本操作】图层操作--选实体解冻部分图层

1028695446

(setq
        *ACAD*  (vlax-get-acad-object)
        *DOC*   (vla-get-ActiveDocument *ACAD*)
        *LAYS*  (vla-get-Layers *DOC*)
)
;选择集与对象名表互转
(defun ss-enlst        (ss / enlst)
        (cond
                ((= (type ss) 'PICKSET)
                        (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
                )
                ((= (type ss) 'LIST)
                        (setq enlst (ssadd))
                        (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
                )
        )
)
;;71.9 [功能] 返回冻结图层列表
(defun MJ:ListLayers-Frozen (/ each out)
  (vlax-for each *LAYS*
    (if        (= (vlax-get-property each "Freeze") :vlax-true)
      (setq out (cons (vla-get-name each) out))
    )
  )
  out
)
;;71.3 [功能] 图层列表 冻结
(defun MJ:LayerFreeze (LayList)
  (vlax-for each *LAYS*
    (if        (member (strcase (vla-get-name each)) LayList)
      (if (vlax-write-enabled-p each)
                                (vla-put-Freeze each :vlax-True)
      )
    )
    (vlax-release-object each)
  )
)
;;71.4 [功能] 图层列表 解冻
(defun MJ:LayerThaw (LayList)
  (vlax-for each *LAYS*
    (if        (member (strcase (vla-get-name each)) LayList)
      (if (vlax-write-enabled-p each)
                                (vla-put-Freeze each :vlax-False)
      )
    )
    (vlax-release-object each)
  )
)
(defun C:jd(/ LayerFreeze_lst layer_lst ss x)
        (princ "\n图层操作--解冻选定\n")
        (setvar "cmdecho" 0)
        (command ".undo" "be");;;建立undo组开始
        (setq LayerFreeze_lst(MJ:ListLayers-Frozen))
        (command "-layer" "TH" "*" "")
        (if (setq ss (ssget))
                (progn
                        (setq ss(ss-enlst ss))
                        (setq layer_lst
                                (mapcar '(lambda(x)(cdr (assoc 8 (entget x)))) ss)
                        )
                        (foreach x layer_lst
                                (setq LayerFreeze_lst(vl-remove x LayerFreeze_lst))
                        )
                )
        )
        (MJ:LayerFreeze LayerFreeze_lst)
        (command ".undo" "e");;;建立undo组完成
        (setvar "cmdecho" 1)
)

cghdy

对块和参照内图层不能用，希望能改进，使用场景将极大扩展。

1028695446

cghdy 发表于 2020-5-12 10:32
对块和参照内图层不能用，希望能改进，使用场景将极大扩展。

自己改下，把ssget模式换成nentsel模式

cghdy

1028695446 发表于 2020-5-12 17:39
自己改下，把ssget模式换成nentsel模式

nentsel牺牲有点大，只能点选了

cghdy

(DEFUN HY-GET-DXF (CODE ENAME) (CDR (ASSOC CODE (ENTGET ENAME))))
(defun C:jd()
        (princ "\n图层操作--解冻选定\n")
        (setvar "cmdecho" 0)
        (command ".undo" "be");;;建立undo组开始
        (setq LayerFreeze_lst(MJistLayers-Frozen))
        (command "-layer" "TH" "*" "")       
        (setq layer_lst nil)
        (while (setq nenam (car(nentsel )))
                (setq layer_lst (list (HY-GET-DXF 8 nenam) layer_lst))       
    (foreach x layer_lst
                        (setq LayerFreeze_lst(vl-remove x LayerFreeze_lst))
                )               
        )       
        (MJayerFreeze LayerFreeze_lst)
        (command ".undo" "e");;;建立undo组完成
        (setvar "cmdecho" 1)
)
;;;修改可以针对块及参照使用。
;;;顺带提一下nentsel使用起来一无法像ssget一样框选，二反馈不直观，无法判断是否点中图元。望高手改进。

cghdy

cghdy 发表于 2020-5-12 22:04
(DEFUN HY-GET-DXF (CODE ENAME) (CDR (ASSOC CODE (ENTGET ENAME))))
(defun C:jd()
        (princ "\n图层操 ...

原函数MJayerFreeze针对外部参照无效，举例(MJayerFreeze '("参照所在独立图层"))返回值0，但是没有冻结该图层。

htxhtx

冻结的图层看不到，锁定的图层才能看到！ 如果图上都看不到冻结的图层，请问 如何选择需要解冻的图层啊