saybluesky 发表于 2011-6-29 15:13:49

哪位能解决这个问题不？不胜感激。

ljpnb 发表于 2011-6-29 16:19:35

试了一下，在2010里直接用(command "-layer" "lo" 图层名 "")会出现变暗，用（vla-put-lock layer :vlax-true)会锁住层，但不会变暗.

ALXY 发表于 2011-6-29 16:41:53

我也想知道，在04里如何实现这样的效果？请各位指点

zhynt 发表于 2011-6-30 00:11:26

提供一个方法：

(defun c:ll (/ e h lay_c);;;锁层
(vl-load-com)
(setvar "cmdecho" 1)
(setq e (car (entsel "\n选择图层所在的实体 :")))
(if e
    (progn
      (setq h (cdr (assoc 8 (entget e))))
      (command "layer" "LO" h "")
      (setq lay_c (cdr
      (assoc
      62
      (tblsearch "layer" h)
      )
    )
      )
      (VLAX-LDATA-PUT h h lay_c)      
      (command "layer" "c" "252" h "")
    )
    (princ "\n没有选到实体!按回车继续.")
)
(setvar "cmdecho" 1)
(princ)
)
(defun c:ul (/ e h lay_c);;;解锁
(vl-load-com)
(setvar "cmdecho" 1)
(setq e (car (entsel "\n选择图层所在的实体 :")))
(if e
    (progn
      (setq h (cdr (assoc 8 (entget e))))
      (command "layer" "u" h "")      
      (if (setq lay_c (VLAX-LDATA-get h h))
(command "layer" "c" lay_c h "")
      )
    )
    (princ "\n没有选到实体!按回车继续.")
)
(setvar "cmdecho" 1)
(princ)
)
(print "命令：ll锁层，ul解锁")

daidong013 发表于 2011-6-30 05:50:27

回复 zhynt 的帖子

选层反选锁定颜色变暗可以做到吗？！~~~

xiguao 发表于 2011-6-30 08:21:54

http://bbs.mjtd.com/thread-83744-1-1.html

zhynt 发表于 2011-7-1 08:39:31

本帖最后由 zhynt 于 2011-7-1 08:43 编辑

回复 daidong013 的帖子

选层反锁我也弄了，但是有个问题就是当图层较多时，程序反应较慢，看来写字典信息速度比较慢，现将程序发上来大家研究一下。
还有就是回楼上的“西瓜哦”兄弟，2004以前的版本没有“LAYLOCKFADECTL"系统变量，不能控制图层的淡显。

daidong013 发表于 2011-7-1 09:46:17

回复 zhynt 的帖子

Z版大侠编的这个锁层工具还是不错的！~~
这里有一个【它山】做的图层灰锁大侠可以参考！~~

zhynt 发表于 2011-7-1 10:44:10

嗯，这个工具不错，可否发上来？

daidong013 发表于 2011-7-1 11:18:26

本帖最后由 daidong013 于 2011-7-1 11:19 编辑

回复 zhynt 的帖子

编译过的！~看不到源码！~~

Z版大侠用用看！~~
页: 1 [2] 3 4
查看完整版本: 如何让图层锁定后变暗？