将lisp和脚本转换为

Mark_ATCW · 发表于 2022-7-5 15:21:25

大家好，

我是这个论坛的新手，所以我希望我已经把这个贴在了正确的地方，如果我没有，请告诉我！

好的，开始吧，我有一个脚本，我在打印图纸之前运行，但它并不总是像我习惯的那样工作。在脚本中，它运行一个lisp文件。

我附上了我使用的lisp、脚本和块文件。

出于内心的善良，有人能为我创建一个lisp文件吗？

我曾尝试过这样做，但我在lisp编程方面迷失了方向。

谢谢你，堆，
做记号
时间戳。lsp
ATCW\u Timestamp\u awa。可控硅
A3_印章。图纸

DGRL · 发表于 2022-7-5 15:35:21

@Mark_ATCW

你能写下你想做什么吗？因为看起来，我想，如果没有脚本部分，这可能总共是1个lsp

Mark_ATCW · 发表于 2022-7-5 15:39:12

对不起大家，

我上传了错误的脚本文件，正确的一个附件。

做记号
时间戳。可控硅

Mark_ATCW · 发表于 2022-7-5 15:47:58

嗨，好的。

我们有一些旧图纸，其中包含一个“日期戳块”，名为“A3\U戳”，其中包含块内的旧格式和信息。

所以我试着做的是：

1.选择“A3_Stamp”块，将其从图形中删除，并将其从图形中清除。
2.然后运行lisp程序，将时间戳块带回图形中，然后自动填写块中的属性。
3、保存图纸
4.然后打开绘图对话框。

我遇到的问题是，如果图章块“A3_stamp”不在图形中，或者它有不同的名称，那么它会随机删除图形中的一个块，非常随机。

我希望它能做几乎相同的事情，但在一个单一的lisp文件，但添加一个命令，能够插入到一个特定的层这个块。

这有意义吗？

谢谢
做记号

DGRL · 发表于 2022-7-5 16:03:16

我没有那么多时间，但我建议删除整个脚本并使其成为autolisp

脚本中的ssget可以在lisp中，类似于（ssget“_x”'（（0。“INSERT”）（2。“A3_Stamp”））；
从这里开始做剩下的

脚本中的所有命令也可以在autolisp中执行

DGRL · 发表于 2022-7-5 16:04:30

@Mark_ATCW

你知道如何使用选择集吗？

BIGAL · 发表于 2022-7-5 16:13:38

在插入之前添加DGRL ssget，将其包装在IF ie选择集中，然后删除块使用-清除B“A3\U戳记”可以保存dwg，也可以设置lisp打印。我们设置了标题栏，因此我们为pdf和各种绘图仪预定义了打印例程。

copy


(if (setq ss (ssget "_x" '((0 . "INSERT")(2 . "A3_Stamp"))))
(progn (command "erase" ss "")(command "-purge" "B" "A3_Stamp"))
)
(command "Insert" "A3_Stamp.dwg" "0,0" "" "" "" thedate thetime plotby savename)
;insert the block and fill in the attribute data

Mark_ATCW · 发表于 2022-7-5 16:27:16

完美的男人，

多亏了你的帮助，我现在有了一个完美的lisp:thumbsup：

干杯
做记号

P、如果有人想用，我可以上传

[编程交流] 将lisp和脚本转换为

发表回复

精选推荐