删除中的所有页面设置
大家好，好的，我仍在完成上的LISP培训http://www.jefferypsanders.com/autolisptut.html但这很难接受。
我在工作中被要求开发一个lisp/script，它将删除图形中的所有页面设置。我不知道哪一个更有效（脚本/lisp），我也不知道从哪里开始编写例程。
非常感谢任何人的专业知识/建议/帮助。此外，如果可能的话，如果有人用lisp例程回答这个问题，你能简单解释一下什么是一切，这是我唯一要学习的方法（我知道括号的意思，我理解defun的意思，我知道设置变量……就是这样……） 这个很短很简单。。。你只需要知道基本的Visual Lisp Activex COM+。。。
(vl-load-com)
(prompt "\nLoading c:deleteallpagesetups ...")
(defun c:deleteallpagesetups ( / *acad* *adoc* *plotconfig* )
(setq *acad* (vlax-get-acad-object)) ; getting acad main VLA-OBJECT
(setq *adoc* (vla-get-activedocument *acad*)) ; getting active document VLA-OBJECT under main acad-VLA-OBJECT
(setq *plotconfig* (vla-get-plotconfigurations *adoc*)) ; getting plot configurations VLA-OBJECT under active document VLA-OBJECT
(vlax-for itm *plotconfig*
(vla-delete itm) ; iterating through *plotconfig* VLA-OBJECT collection and deleting each newly stored item (PAGE SETUP - VLA-OBJECT) residing *plotconfig*
)
(princ)
)
(defun c:daps nil (c:deleteallpagesetups))
(prompt "\nShortcut for c:deleteallpagesetups is c:daps")
(princ)
M、 R。 Hvala Puno！我想你就是这么拼写的？？哈哈哈。 FWIW-
通过删除命名页面设置，您没有删除应用于布局的设置。
页:
[1]