锁定已知图层名的几个图层，不用Command命令怎么写？

talentzf · 发表于 2019-8-15 10:51:18

已知图层名，比如"BG1" "BG2""BG3"的3个图层，我想锁定它们，不要在图纸里面选择相应的图层，不用lisp的Command命令该怎么写？
（主要当锁定的图层较多的时候，command写的执行慢）

springwillow · 发表于 2019-8-15 11:13:47

[code=lisp];图层锁定解锁 by:孤帆
(defun c:layerlock( / layer layername layernames layers obj sset);<图层锁定解锁>
(setq Layers(vla-get-Layers AcadDocument))
(if (and (ssget)
(setq sset (vla-get-ActiveSelectionSet AcadDocument))
)
(progn
(setq layernames '())
(vlax-for obj sset
(if (not (member (setq layername (vla-get-layer obj)) layernames))
(setq layernames (cons layername layernames))))
(vlax-for layer Layers
(if (member (vla-get-name layer)layernames)
(vla-put-Lock layer :vlax-true)
;(vla-put-Lock layer :vlax-false)
)
)
)
(vlax-for layer Layers
(vla-put-Lock layer :vlax-false))
)
(princ)
)

[/code]

yangchao2005090 · 发表于 2019-8-15 14:26:58

springwillow 发表于 2019-8-15 11:13
[/code]

http://bbs.mjtd.com/thread-107231-2-1.html
请问一下，指定图层对象随层，这个代码是哪里有问题呀，能否帮忙看一下

talentzf · 发表于 2019-9-3 20:49:04

springwillow 发表于 2019-8-15 11:13
[/code]

参考你的member命令，经过半个月的学习，终于会了。
(defun C:laylock1 ( / acaddocument acadobject layersobj lay_list obj)
  (setq AcadObject (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
      LayersObj (vla-get-layers AcadDocument)
  );end setq

(setq lay_list (list "bg1" "bg2" "bg3" "bg4" “bg5”));不需要锁定的图层列表，锁定这些以外的图层
   (vlax-for obj LayersObj
   (if (member (vla-get-name obj) lay_list)
      (vla-put-lock obj :vlax-false)
      (vla-put-lock obj :vlax-true)
      ));end vlax-for  endif

  (princ)
);;锁基础图层

springwillow · 发表于 2019-9-6 10:19:23

talentzf 发表于 2019-9-3 20:49
参考你的member命令，经过半个月的学习，终于会了。
(defun C:laylock1 ( / acaddocument acadobject la ...

恭喜恭喜！

注册 · 发表于 2019-9-8 09:14:40

不错，不错，下载学习~~

liner122 · 发表于 2023-5-15 11:10:37

如果是"BG1""BG2"开头的图层，该如何表示呢？

alexmai · 发表于 2023-5-15 13:35:42

liner122 发表于 2023-5-15 11:10
如果是"BG1""BG2"开头的图层，该如何表示呢？

这是比较笨的办法，*就是通配符，自己改一下

;;;图层改打印图层
(defun c:rqp ()
(command "-layer" "p" "p" "202*" "")
(princ)
)

;;;图层改不打印图层
(defun c:rqn ()
(command "-layer" "p" "n" "202*" "")
(princ)
)

;;;冻结日期图层
(defun c:rqf ()
(command "-layer" "off" "202*" "p" "n" "202*" "")
(princ)
)

;;;显示日期图层
(defun c:rqt ()
(command "-layer" "on" "202*" "")
(princ)
)

liner122 · 发表于 2023-5-15 14:05:33

alexmai 发表于 2023-5-15 13:35
这是比较笨的办法，*就是通配符，自己改一下

;;;图层改打印图层

多谢。这个用command命令编写的lsp文件，当图层比较多时在高版本上执行有点慢。所有想用vla编写的lsp文件，本人测试过，四楼楼主的那个就可以用。想在那个的基础上指定的已知图层支持通配符。
下面是四楼楼主的代码
(defun C:laylock1 ( / acaddocument acadobject layersobj lay_list obj)
  (setq AcadObject (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
      LayersObj (vla-get-layers AcadDocument)
  );end setq

(setq lay_list (list "bg1" "bg2" "bg3" "bg4" “bg5”));不需要锁定的图层列表，锁定这些以外的图层
   (vlax-for obj LayersObj
   (if (member (vla-get-name obj) lay_list)
      (vla-put-lock obj :vlax-false)
      (vla-put-lock obj :vlax-true)
      ));end vlax-for  endif

  (princ)
);;锁基础图层

gzcsun · 发表于 2024-2-21 12:53:09

autocad只要锁定图层要求变灰，什么程序执行速度都一样。
如果只锁定图层用vla，如果锁定图变灰还是用layer方便。

账号		自动登录	找回密码
密码			注册

[提问] 锁定已知图层名的几个图层，不用Command命令怎么写？

点评