删除中的所有页面设置

Locked and Load · 发表于 2022-7-6 07:46:54

大家好，

好的，我仍在完成上的LISP培训http://www.jefferypsanders.com/autolisptut.html但这很难接受。

我在工作中被要求开发一个lisp/script，它将删除图形中的所有页面设置。我不知道哪一个更有效（脚本/lisp），我也不知道从哪里开始编写例程。

非常感谢任何人的专业知识/建议/帮助。此外，如果可能的话，如果有人用lisp例程回答这个问题，你能简单解释一下什么是一切，这是我唯一要学习的方法（我知道括号的意思，我理解defun的意思，我知道设置变量……就是这样……）

marko_ribar · 发表于 2022-7-6 08:15:44

这个很短很简单。。。你只需要知道基本的Visual Lisp Activex COM+。。。

copy


[color=RED]([/color][color=BLUE]vl-load-com[/color][color=RED])[/color]
[color=RED]([/color][color=BLUE]prompt[/color] [color=#a52a2a]"\nLoading c:deleteallpagesetups ..."[/color][color=RED])[/color]
[color=RED]([/color][color=BLUE]defun[/color] c:deleteallpagesetups [color=RED]([/color] [color=BLUE]/[/color] *acad* *adoc* *plotconfig* [color=RED])[/color]
 [color=RED]([/color][color=BLUE]setq[/color] *acad* [color=RED]([/color][color=BLUE]vlax-get-acad-object[/color][color=RED]))[/color] [color=#990099]; getting acad main VLA-OBJECT[/color]
 [color=RED]([/color][color=BLUE]setq[/color] *adoc* [color=RED]([/color][color=BLUE]vla-get-activedocument[/color] *acad*[color=RED]))[/color] [color=#990099]; getting active document VLA-OBJECT under main acad-VLA-OBJECT[/color]
 [color=RED]([/color][color=BLUE]setq[/color] *plotconfig* [color=RED]([/color][color=BLUE]vla-get-plotconfigurations[/color] *adoc*[color=RED]))[/color] [color=#990099]; getting plot configurations VLA-OBJECT under active document VLA-OBJECT[/color]
 [color=RED]([/color][color=BLUE]vlax-for[/color] itm *plotconfig*
   [color=RED]([/color][color=BLUE]vla-delete[/color] itm[color=RED])[/color] [color=#990099]; iterating through *plotconfig* VLA-OBJECT collection and deleting each newly stored item (PAGE SETUP - VLA-OBJECT) residing *plotconfig*[/color]
 [color=RED])[/color]
[color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]
[color=RED])[/color]
[color=RED]([/color][color=BLUE]defun[/color] c:daps [color=BLUE]nil[/color] [color=RED]([/color]c:deleteallpagesetups[color=RED]))[/color]
[color=RED]([/color][color=BLUE]prompt[/color] [color=#a52a2a]"\nShortcut for c:deleteallpagesetups is c:daps"[/color][color=RED])[/color]
[color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]