社区 › Auto Lisp › 如何关闭一层I

CadTechJGC184 发表于 2022-7-6 14:40:57

如何关闭一层I

这是我需要在dwg的中冻结的exref层的屏幕截图https://www.cadtutor.net/forum/N:%5CJAMES%20CADE%20SHARED%5Cfreeze.bmp

CadTechJGC184 发表于 2022-7-6 14:45:58

我为什么不能添加一个打印屏幕…我放弃了！！
 
这是外部参照名称和图层：UTILITY BASE/C-ELEC-LIN

Lee Mac 发表于 2022-7-6 14:51:17

打开冻结层所需的所有文档并使用：
 

(defun frzlay (lay / doc lyr)
(vlax-for doc (vla-get-Documents
               (vlax-get-acad-object))
   (and (setq lyr (vla-item (vla-get-layers doc) lay))
      (vla-put-freeze lyr :vlax-true)))
(princ))

Lee Mac 发表于 2022-7-6 14:55:10

 
只需点击打印屏幕按钮，粘贴到MS Paint中，保存为JPEG，然后附加。

CadTechJGC184 发表于 2022-7-6 14:58:32

嘿Lee Mac，
 
你好吗？谢谢你的建议。我会让他们两个都试试。

CadTechJGC184 发表于 2022-7-6 14:59:43

李，我是一次全部打开还是一次一个打开？

CadTechJGC184 发表于 2022-7-6 15:02:48

它不起作用！

Lee Mac 发表于 2022-7-6 15:09:14

一次打开它们。
 
我刚刚测试过，如果要冻结的层不在图纸中，它似乎有问题-这很奇怪，因为我认为我已经解释了这一点

Lee Mac 发表于 2022-7-6 15:10:20

您是否正确调用了该函数？
 
它是一个子函数，应按如下方式调用：
 

(defun frzlay (lay / doc lyr)
(vlax-for doc (vla-get-Documents
               (vlax-get-acad-object))
   (and (setq lyr (vla-item (vla-get-layers doc) lay))
      (vla-put-freeze lyr :vlax-true)))
(princ))

(frzlay "UTILITY BASE/C-ELEC-LIN")

CadTechJGC184 发表于 2022-7-6 15:15:14

打开所有需要frz层的图形后，我要键入什么？是Lisp程序吗？

查看完整版本: 如何关闭一层I