视口的图层解冻的VLA方法

寒潮大冬瓜

edata 发表于 2014-1-15 12:37
忘了出处。。。

很好→很棒！很好~很棒！！很好……很棒！！！
我用中望CAD：
Error: 在 *error* 函数中遇到错误 ZWCAD 变量设置被拒绝: CLAYER nil

寒潮大冬瓜

;;在视口内的图层操作----
;DVV冻结视口图层
(DEFUN C:DVV()(DVV2023)(princ))
(defun DVV2023 (/ ES EN EL A)
        (princ "冻结视口图层QQQ.")
        (setq ES (ssget) A 0 EN "" EL nil FL nil)
        (while (/= EN nil)
                (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
        (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
        (repeat (- A 2)
                (setq EN (cdr (assoc ' 8 (entget (car EL))))
                        FL (strcat EN "," FL) EL (cdr EL)) )
        (command "vpLAYER" "F" (eval FL) """")
        (princ)
)
期待有个在该视口内操作的时候想恢复该图层的可见性，复杂了→要到管理器找到再点亮那盏灯！能不能显示该视口内已经被关闭的图层列表→选一下就重新显示？

tensir

感谢作者的分享！