请教如何用lisp清空dwg的页面设置

etoxp

手动点选可以一个个删除，但我想用程序实现。谢谢各位！

etoxp

自己回答一下，在https://jtbworld.com/autocad-pagesetup-lsp找到一个可用的程序。

2. (defun c:tt (/)
   
3.   
   
4.   ;;(deleteAllPageSetupsExcept (vla-get-activedocument (vlax-get-acad-object)) '());删除所有页面设置
   
5. 
   
6.   (deleteAllPageSetupsExcept
   
7.     (vla-get-activedocument (vlax-get-acad-object))
   
8.     '("白图 A4竖 3楼")
   
9.   )
   
10.   ;;删除所有页面设置，仅保留"白图 A4竖 3楼"
    
11.   
    
12.   (princ)
    
13. )
    
14. 
    
15. 
    
16. (defun deleteAllPageSetupsExcept (doc names)
    
17.   (vlax-for pc (vla-get-plotconfigurations doc)
    
18.     (if        (not (member (vla-get-name pc) names))
    
19.       (vla-delete pc)
    
20.     )
    
21.   )
    
22. )

(defun c:tt (/)<br />   <br />   ;;(deleteAllPageSetupsExcept (vla-get-activedocument (vlax-get-acad-object)) '());删除所有页面设置<br /> <br />   (deleteAllPageSetupsExcept<br />     (vla-get-activedocument (vlax-get-acad-object))<br />     '("白图 A4竖 3楼")<br />   )<br />   ;;删除所有页面设置，仅保留"白图 A4竖 3楼"<br />   <br />   (princ)<br /> )<br /> <br /> <br /> (defun deleteAllPageSetupsExcept (doc names)<br />   (vlax-for pc (vla-get-plotconfigurations doc)<br />     (if        (not (member (vla-get-name pc) names))<br />       (vla-delete pc)<br />     )<br />   )<br /> )

eii

楼主好棒！

yoyoho

谢谢!  etoxp 分享程序!!!!!