最终设置Lisp

mit20 · 发表于 2022-7-5 22:05:09

你好

我想准备一种“最终设置”程序。清理图形并设置打印布局的功能。我想知道是否有人能帮我做这件事。这很简单，但我无法让它工作。。（我不是任何类型的程序员）
我准备了粗糙的lisp工作（附件）。
我想能够使用切换来决定哪些功能将被激活（审计，清除，过度杀伤，布局设置）。
我也希望它是在一个文件，没有单独的。dcl文件。
部分dcl。随附文件。

提前谢谢你。
当做
最终安装工具。lsp
最终设置。dcl

BlackBox · 发表于 2022-7-5 22:15:26

好吧，如果您使用的是LISP，那么您将降级为使用单独的。DCL文件AFAIK。。。也许编译到。FAS或。VLX解决了这个问题*不确定*

至于设置布局，请查看我的一篇文章，其中包含一个链接和一个带有vla SetActivePageSetup函数的示例代码段。

干杯

BIGAL · 发表于 2022-7-5 22:20:23

dcl没有被使用？你当然可以添加一个你想吗？当程序中的步骤将which is Nil作为Getstring的答案时，我会将qsave放在最后，而不是每次都对每个布局执行。

copy


(setq ans (Getstring "\nDo Purge for yes press <Cr> or any key for No"))
(if (= ans nil)
(Command "-purge" "a" "n")
)

BlackBox · 发表于 2022-7-5 22:26:16

也可以自动清除这些注册表应用程序。

https://apps.exchange.autodesk.com/ACD/en/Detail/Index?id=appstore.exchange.autodesk.com%3aappautopurgeregforautocad00ae_windows32and64%3aen

mit20 · 发表于 2022-7-5 22:32:23

谢谢你的回复。我会继续努力的。很难说服人们按顺序画画。。
自动注册。用黑盒清除似乎很有用。我会用的。

干杯

BlackBox · 发表于 2022-7-5 22:38:07

关键是“尝试”，让用户更容易遵守标准，而不是做自己的事情。。。像上面链接的事件驱动工具在这里有很大帮助。

我很高兴你发现自动外科医生很有用。

干杯

mit20 · 发表于 2022-7-5 22:42:25

只是和更新。
显然不久前还有其他人也想到了同样的事情。（附上Lisp）。
这仅用于页面设置。我会添加画框块插入和清理工具。如果有人知道如何做到这一点，这将是很好的，在这一刻的代码是我太多。
我也发现了BlackBox应用程序（也附上），但我无法让它运行。我有ACad 2015。

干杯
布局工具。dcl
布局工具。lsp
bbox\u AcPageSetup。捆拉链