用Autolisp代替脚本文件

Tom_Drawer · 发表于 2022-7-6 12:22:45

你好我正在尝试将脚本转换为autolisp。我已经在网上搜索过了，但我仍然没有掌握诀窍。
问题：我有这样一个脚本：


"INSERT
REV_TAG
0,0  
blanc line for <enter>
"

我把它保存得很好。scr文件，如果我把它放在工作区或通过命令行，它会很好地工作。
我希望它在每次启动Autocad时自动启动。我还有其他Autolisp格式的脚本，我已经放在acaddoc中了。lsp文件，它们工作正常。
代替了。scr文件我想学习的语法，使一个lisp文件，例如：（命令“..u layer”“\u M”“NLN”“”）。
“INSERT….”的语法是什么文件，如果我使用lisp方式？

/垫子

MSasu · 发表于 2022-7-6 12:45:36

Tom_Drawer，我从您的帖子中了解到，您正在使用该脚本将一个名为“REV_TAG”（可能与修订相关）的块插入到您的图形中-不确定它是否具有属性；因此，建议的代码将忽略属性（需要稍后设置其值）。当然，块必须位于AutoCAD的搜索路径上。

copy

(defun C:RTIns( / OldARq )
(setq OldARq (getvar "ATTREQ"))
(setvar "ATTREQ" 0)
(setvar "CMDECHO" 0)
(command "_INSERT" "REV_TAG" '(0.0 0.0) 1 1 0)
(setvar "ATTREQ" OldARq)
(princ)
)