删除布局

ikias

下面这个LISP，是删除所有布局的程序。
分享给大家。

1. (defun C:DelAllLayout ( / LLst Layout)
   
2. (setq LLst (layoutlist))
   
3. (foreach Layout LLst
   
4. (command "layout" "d" Layout)
   
5. )
   
6. (princ)
   
7. )

(defun C:DelAllLayout ( / LLst Layout)<br /> (setq LLst (layoutlist))<br /> (foreach Layout LLst<br /> (command "layout" "d" Layout)<br /> )<br /> (princ)<br /> )

lileiaj

学习了，大神我那805源码有代码太长看到好迷糊

cfc

感谢无私的分享

e2002

AutoCAD 至少会保留一个布局的哦...

gaics

e2002 发表于 2023-8-21 11:53
AutoCAD 至少会保留一个布局的哦...

意在删除一切不需要的布局。
我也经常这么干，有些甲方的图纸确实太大、太卡了，在不影响读图的前提下删除所有布局能够提高看图效率。
删除后确实会生成一个新的布局，但是已经不影响什么了。

3278

群主如何实现删除布局内无图元的布局