忘了出处。。。
很好→很棒！很好~很棒！！很好……很棒！！！
我用中望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)
)
期待有个在该视口内操作的时候想恢复该图层的可见性，复杂了→要到管理器找到再点亮那盏灯！能不能显示该视口内已经被关闭的图层列表→选一下就重新显示？ 感谢作者的分享！
页:
1
[2]