清理图形（可以在块编辑器内运行）

YueFeng

1. ;
   
2. (defun C:YF_QLTX ()
   
3.   (prompt "YFCAD工具箱 清理图形:")
   
4.   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   
5.   ; 当前图层置为0层
   
6.   (setvar "CLAYER" "0")
   
7.   ; 当前文字样式置为Standard样式
   
8.   (setvar "TEXTSTYLE" "Standard")
   
9.   ; 查看有没有Standard这个尺寸样式，没有就新建这个样式。
   
10.   (if (null (tblsearch "DIMSTYLE" "Standard"))
    
11.     (entmakex
    
12.       '((0 . "DIMSTYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2 . "Standard") (70 . 0))
    
13.     )
    
14.   )
    
15.   ; 当前尺寸样式置为Standard样式
    
16.   (vla-put-activedimstyle (vla-get-ActiveDocument (vlax-get-acad-object)) (vlax-ename->vla-object (TblObjName "DIMSTYLE" "Standard")))
    
17.   ;执行两遍，清理尺寸样式后，会遗留相应的尺寸样式中的引用的文字样式未清洗。
    
18.   (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
    
19.   (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
    
20. )

;<br /> (defun C:YF_QLTX ()<br />   (prompt "YFCAD<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱 清理图形:")<br />   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")<br />   ; 当前图层置为0层<br />   (setvar "CLAYER" "0")<br />   ; 当前文字样式置为Standard样式<br />   (setvar "TEXTSTYLE" "Standard")<br />   ; 查看有没有Standard这个尺寸样式，没有就新建这个样式。<br />   (if (null (tblsearch "DIMSTYLE" "Standard"))<br />     (entmakex<br />       '((0 . "DIMSTYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbDimStyleTableRecord") (2 . "Standard") (70 . 0))<br />     )<br />   )<br />   ; 当前尺寸样式置为Standard样式<br />   (vla-put-activedimstyle (vla-get-ActiveDocument (vlax-get-acad-object)) (vlax-ename->vla-object (TblObjName "DIMSTYLE" "Standard")))<br />   ;执行两遍，清理尺寸样式后，会遗留相应的尺寸样式中的引用的文字样式未清洗。<br />   (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))<br />   (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))<br /> )

p-3-ianlcc

出现错误的消息
指令: YF_QLTX
Application Error: 2 :- 参数太多ADS 要求错误

YueFeng

p-3-ianlcc 发表于 2024-4-23 19:08
出现错误的消息
指令: YF_QLTX
Application Error: 2 :- 参数太多ADS 要求错误

我在ACAD2021上通过，你调试看看。

你加一句
(vl-load-com)试试

p-3-ianlcc

我试了，一样
指令: YF_QLTX
Application Error: 93 :- 参数太多ADS 要求错误
指令:
指令: YF_QLTX
Application Error: 0 :- 参数太多ADS 要求错误
指令:

分别在2016、2023这二个版本都有这个错误的消息
或许是我电脑设置的问题，我再试试看

qazxswk

这么多代码，清理图形的，只有这两句代码，其他都是设置样式的
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

YueFeng

qazxswk 发表于 2024-4-24 12:43
这么多代码，清理图形的，只有这两句代码，其他都是设置样式的
(dictremove (namedobjdict) "ACAD_DGNLI ...

因为当前的文字与样式也是不清理的。所以我把这两个样式，也设为普遍值。