最终设置Lisp
你好我想准备一种“最终设置”程序。清理图形并设置打印布局的功能。我想知道是否有人能帮我做这件事。这很简单，但我无法让它工作。。（我不是任何类型的程序员）
我准备了粗糙的lisp工作（附件）。
我想能够使用切换来决定哪些功能将被激活（审计，清除，过度杀伤，布局设置）。
我也希望它是在一个文件，没有单独的。dcl文件。
部分dcl。随附文件。
提前谢谢你。
当做
最终安装工具。lsp
最终设置。dcl 好吧，如果您使用的是LISP，那么您将降级为使用单独的。DCL文件AFAIK。。。也许编译到。FAS或。VLX解决了这个问题*不确定*
至于设置布局，请查看我的一篇文章，其中包含一个链接和一个带有vla SetActivePageSetup函数的示例代码段。
干杯 dcl没有被使用？你当然可以添加一个你想吗？当程序中的步骤将which is Nil作为Getstring的答案时，我会将qsave放在最后，而不是每次都对每个布局执行。
(setq ans (Getstring "\nDo Purge for yes press <Cr> or any key for No"))
(if (= ans nil)
(Command "-purge" "a" "n")
)
也可以自动清除这些注册表应用程序。
https://apps.exchange.autodesk.com/ACD/en/Detail/Index?id=appstore.exchange.autodesk.com%3aappautopurgeregforautocad00ae_windows32and64%3aen 谢谢你的回复。我会继续努力的。很难说服人们按顺序画画。。
自动注册。用黑盒清除似乎很有用。我会用的。
干杯
关键是“尝试”，让用户更容易遵守标准，而不是做自己的事情。。。像上面链接的事件驱动工具在这里有很大帮助。
我很高兴你发现自动外科医生很有用。
干杯 只是和更新。
显然不久前还有其他人也想到了同样的事情。（附上Lisp）。
这仅用于页面设置。我会添加画框块插入和清理工具。如果有人知道如何做到这一点，这将是很好的，在这一刻的代码是我太多。
我也发现了BlackBox应用程序（也附上），但我无法让它运行。我有ACad 2015。
干杯
布局工具。dcl
布局工具。lsp
bbox\u AcPageSetup。捆拉链
不要发布我的应用程序，请提供一个链接到你找到它的地方，因为那篇文章包含了大量的相关信息，甚至是示例代码。
干杯 你能给我们提供链接吗？
这里是我最初发布我的vla SetActivePageSetup插件的地方：
http://forums.augi.com/showthread.php?80461-页面设置管理器&p=1219546&viewfull=1#post1219546
页:
[1]
2