晨曦CAD 发表于 2022-9-14 12:07:26

图层锁定解锁 变灰暗显问题



图层锁定解锁 变灰暗显问题整理
描述：图层锁定后自动暗显图层，解锁后恢复原来颜色
技术关键：LAYLOCKFADECTL 变量
(defun c:hglayerlocksingle(/ lay tof layobj oldLAYLOCKFADECTL)
(defun tof(msg / )
    (if(= msg :vlax-true)
      (progn
      (setvar "LAYLOCKFADECTL" -90)
      (setq msg :vlax-false)
      )
      (progn
      (setvar "LAYLOCKFADECTL" 90)
      (setq msg :vlax-true)
      )
      )
    )
(setq oldLAYLOCKFADECTL (getvar "LAYLOCKFADECTL"))

(setq lay (cdr (assoc 8 (entget(car(entsel "\n选择需更改图层锁定状态的图元"))))))
(setq layobj (vlax-ename->vla-object (tblobjname "layer" lay)))
(vla-put-lock layobj (tof(vla-get-Lock layobj)))

(setvar "LAYLOCKFADECTL" oldLAYLOCKFADECTL)
(princ)
)

参考帖子：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69187&extra=&highlight=%CB%F8%B6%A8%2B%B0%B5&page=1http://bbs.mjtd.com/thread-83744-1-1.html

panliang9 发表于 2022-9-14 14:57:29

谢谢楼主分享！

mokson 发表于 2022-9-14 15:49:02

这样就很明显地知道图层是锁定还是解锁状态了。

xj6019 发表于 2022-9-14 15:50:27

谢谢楼主分享！

BUBUBA918 发表于 2022-9-14 16:57:36

如何多选图元？？？

gzcsun 发表于 2022-9-15 07:39:35

图纸一大就太慢，没有什么用。直接 -LA 就可以。

e2002 发表于 2022-9-15 16:56:15

印象中这个问题我以前回答过的...
果然在参考帖子里找到了我在2011年的回复{:1_1:}

gzcsun 发表于 2022-11-5 21:40:54

e2002 发表于 2022-9-15 16:56
印象中这个问题我以前回答过的...
果然在参考帖子里找到了我在2011年的回复

         
什么回复?      

F海市蜃楼 发表于 2022-11-25 23:54:55

不是CAD本身锁定就暗显吗？

friendship 发表于 2022-11-29 22:13:24

谢谢楼主，谢谢
页: [1] 2
查看完整版本: 图层锁定解锁 变灰暗显问题