修订云LISP:help revi

madonthemike · 发表于 2022-7-6 07:51:12

大家好，

我发现这个Lisp程序在工作中真的很有帮助，问题是我只能让它部分工作。

简而言之，它创建一个修订云线，然后插入一个修订标记（保存为不同图形的三角形），最后一个阶段是在修订标记中插入修订号（由用户输入，例如3）。

我到达它插入修订标签的部分，然后我得到错误消息：

放置云的标签：未知命令“3”。按F1键获取帮助

以下是部分代码：

copy

(setq m:REVNUM (getstring "\nEnter the revision set: "))

后面几行代码

copy

(setq m:PLACETAG (getpoint "\nPlace the cloud's tag: "))
 (command "._insert" "cloudtag" m:PLACETAG (getvar "DIMSCALE") "" "0" m:REVNUM)

我相信这与语法有关，我想输入存储在m:REVNUM中的值，但不知为什么我遗漏了一些东西。

如果它有助于我使用Autocad 2010

查看完整代码：http://delapp.com/cad/lisp/revcloud.lsp

pBe · 发表于 2022-7-6 07:57:28

尝试将Attreq设置为1

madonthemike · 发表于 2022-7-6 08:04:25

已经试过了，同样的错误。

pBe · 发表于 2022-7-6 08:08:13

你使用的积木是否比例不合适？

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

我刚刚测试了该例程-如果ATTREQ设置为1，则该例程应该可以工作，块可用并且包含一个属性。你能把街区张贴在这里吗？

pBe · 发表于 2022-7-6 08:18:14

好我猜是的。

要么删除多余的“”

copy

 
(command "._insert" "cloudtag" m:PLACETAG (getvar "DIMSCALE") [b][color=blue]""[/color][/b] "0" m:REVNUM)
to
(command "._insert" "cloudtag" m:PLACETAG (getvar "DIMSCALE") "0" m:REVNUM)

或者重新定义块：
命令：Block
选择“cloudtag”
Ucheck“均匀缩放”

这样你就不需要修改代码了

madonthemike · 发表于 2022-7-6 08:20:56

我只是尝试更改attreq值，但仍然不起作用。现在我自己创建了一个随机块，我不知道它需要以某种方式设置，lisp才能工作。我已经附上了我使用的测试块。cloudtag。图纸

madonthemike · 发表于 2022-7-6 08:26:29

尝试删除“”，它要求我手动输入，但结果相同：

BIGAL · 发表于 2022-7-6 08:29:50

我会做一些改变。m：不确定，但是

copy

Replace (getvar "dimscale") with dimsc and a new line at start (setq dimsc (getvar "dimscale"))  
others will advise about getting variables as answer to command

pBe · 发表于 2022-7-6 08:37:21

是我还是你攻击的街区没有属性。

[编程交流] 修订云LISP:help revi

发表回复

精选推荐