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

用Autolisp代替脚本文件

你好我正在尝试将脚本转换为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的搜索路径上。
 
(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)
)
 
要使用它,请在您的acaddoc中添加上述代码。并调用新定义的RTINS命令。
当做

alanjt 发表于 2022-7-6 12:52:56

如果您了解(命令“.u layer”“\M”“NLN”“”)的过程,则可以轻松地找出任何命令样式lisp宏的语法。只需单步执行命令并键入所需内容。

Tom_Drawer 发表于 2022-7-6 13:00:08

感谢msasu的快速回复,因为您猜这是我试图插入的修订标签,它有一些属性,假设我想给修订版一些属性,如下所示:

INSERT
REV_TAG
0,0

MEK
2009
A
2
3

lisp文件中的代码会变成什么?

Tom_Drawer 发表于 2022-7-6 13:14:42

很高兴你把我吵醒了,这样我就不用过河去喝水了
它一直在我面前。有时你需要在a。。继续前进。
我唯一的借口是我是一个新手,用lisprutines编写脚本。
 
/谢谢大家

alanjt 发表于 2022-7-6 13:24:37

我们在某个时间点上都是N00B。
 
不要犹豫问问题。你好像听不到我们的笑声眨眼:
页: [1]
查看完整版本: 用Autolisp代替脚本文件