跪求有没有一键冻结非打印图层的程序

1034072509

xg2010 发表于 2020-8-1 09:04

hhh454

附件下载：
一键冻结所有不打印属性的图层

hhh454

用CAD自带的图层管理也可以，就几步就行了

maiko

1034072509 发表于 2020-7-31 09:06
是不是这种哦，加过后，说语法错误 还是不得行哦

(defun c:tt ( / lar )
  (vlax-for lyr (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    (if (zerop (vlax-get lyr 'plottable))
      (vla-put-freeze lyr :vlax-true)
    )
  )
)

1034072509

hhh454 发表于 2020-8-4 00:49
用CAD自带的图层管理也可以，就几步就行了

给力..................

1034072509

maiko 发表于 2020-8-4 08:05
(defun c:tt ( / lar )
  (vlax-for lyr (vla-get-layers (vla-get-activedocument (vlax-get-acad-obj ...

好用，么么哒，太棒了、

xg2010

谢谢分享

1034072509

hhh454 发表于 2020-8-4 00:41
附件下载：
一键冻结所有不打印属性的图层

谢谢大神的指导，

醉月武

1034072509 发表于 2020-7-31 18:46

不是很清楚，我也刚学没多久。下面是原代码你再试一下
我是用VS2019 C#写的，目标框架4.5，调用的库是ObjectARX 2016。我电脑上之有CAD2021，运行没有问题。

1. [CommandMethod("DJTC")]
   
2.         public void DJTC()
   
3.         {
   
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
   
5.             Database db = doc.Database;
   
6. 
   
7.             using(Transaction trans = db.TransactionManager.StartTransaction())
   
8.             {
   
9.                 LayerTable lt = (LayerTable)trans.GetObject(db.LayerTableId, OpenMode.ForRead);
   
10.                 foreach (ObjectId id in lt)
    
11.                 {
    
12.                     LayerTableRecord ltr = (LayerTableRecord)trans.GetObject(id, OpenMode.ForWrite);
    
13. 
    
14.                     if (ltr.IsPlottable == false) ltr.IsFrozen = true;
    
15. 
    
16.                     ltr.DowngradeOpen();
    
17.                 }
    
18. 
    
19.                 trans.Commit();
    
20.             }
    
21.         }

[CommandMethod("DJTC")]<br />         public void DJTC()<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br /> <br />             using(Transaction trans = db.TransactionManager.StartTransaction())<br />             {<br />                 LayerTable lt = (LayerTable)trans.GetObject(db.LayerTableId, OpenMode.ForRead);<br />                 foreach (ObjectId id in lt)<br />                 {<br />                     LayerTableRecord ltr = (LayerTableRecord)trans.GetObject(id, OpenMode.ForWrite);<br /> <br />                     if (ltr.IsPlottable == false) ltr.IsFrozen = true;<br /> <br />                     ltr.DowngradeOpen();<br />                 }<br /> <br />                 trans.Commit();<br />             }<br />         }