需要LISP帮助

shakey230 · 发表于 2022-7-6 07:47:28

嗨，伙计们没有Lisp程序的实际经验，但对勒恩来说很难。

我需要知道是否有什么可以做以下事情？？

在图形中-另存为-（相同文件名）-pl.dwg（相同位置）
然后我需要在@0,0,0中X-Ref上一张图。
并将X-Ref重命名为ARCH

如果有什么东西甚至完成了第一部分，那将是惊人的，并将极大地赞赏它。

谢谢

MSasu · 发表于 2022-7-6 08:12:34

您可以通过AutoLISP实现这一点；这个例子应该让您开始：

copy

(vl-load-com)
(setq drawingOld (getvar "DWGNAME")
     drawingNew (strcat (getvar "DWGPREFIX")
                        (vl-filename-base drawingOld)
                        "-pl"
                        (vl-filename-extension drawingOld)))
(command "_SAVEAS" "" drawingNew)

shakey230 · 发表于 2022-7-6 08:33:05

非常感谢mircea，帮了大忙

MSasu · 发表于 2022-7-6 09:01:29

不客气！也许最好在这里继续讨论，而不是开始一个新的线程，因为这是同一个问题。

[编程交流] 需要LISP帮助

发表回复

精选推荐