自动启用的Lisp

cgv · 发表于 2022-7-5 22:50:38

嘿伙计们，

不久前，我正在执行一个例程，该例程将在保存图形时将UCS设置回0,0,0。李·麦克写了一个（附件）。只是想知道是否有办法在加载时启用例程？
对于这个例程，我希望在加载例程时执行命令UCSR-ON。

干杯
ucsr。LSP

Lee Mac · 发表于 2022-7-5 23:07:16

添加：

(c:ucsr-on)

在文件最末尾的新行上。

我很高兴你发现它很有用！

cgv · 发表于 2022-7-5 23:15:38

啊，Mac的回归。

谢谢工作是一种享受。
还有一个问题——我一直在努力做一个“阿卡多克”。lsp文件中包含此例程，但AutoCAD似乎没有在启动时加载该文件。该文件位于一个支持路径中，所以我不知道为什么它没有加载。

编辑：成功了。需要重新启动CAD。再次感谢。

cgv · 发表于 2022-7-5 23:28:49

可以所以反应堆运行良好。还有一件事要补充。有没有一种方法，如果您在图纸空间中保存，它会切换到模型空间并将UCS发送回世界？似乎当你节省纸张空间时，例行程序就行不通了。

为李干杯。

Lee Mac · 发表于 2022-7-5 23:40:12

杰出的

是的，据我所知，用于配置活动UCS的ActiveX方法仅适用于Modelspace。

附加的修改版本使用我从这里获取的代码来保留原始代码格式-
修改后的程序未经测试，但有望按要求执行。

李
ucsr。lsp

cgv · 发表于 2022-7-5 23:44:39

李。很棒的东西。效果完美。

cgv · 发表于 2022-7-5 23:53:39

李，

我还要请你帮个忙。反应堆工作得很好，但有时当切换回布局选项卡时，UCS也会在其中改变方向。在模型空间UCS设置为世界坐标后，有没有办法让反应堆将图纸空间UCS设置为世界坐标？

希望这有意义。

谢谢

[编程交流] 自动启用的Lisp