社区 › Auto Lisp › 修订云LISP:help revi

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

修订云LISP:help revi

大家好，
 
我发现这个Lisp程序在工作中真的很有帮助，问题是我只能让它部分工作。
 
简而言之，它创建一个修订云线，然后插入一个修订标记（保存为不同图形的三角形），最后一个阶段是在修订标记中插入修订号（由用户输入，例如3）。
 
我到达它插入修订标签的部分，然后我得到错误消息：
 
放置云的标签：未知命令“3”。按F1键获取帮助
 
以下是部分代码：
 
(setq m:REVNUM (getstring "\nEnter the revision set: "))
 
后面几行代码
 
(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

好我猜是的。
 
要么删除多余的“”

(command "._insert" "cloudtag" m:PLACETAG (getvar "DIMSCALE") "" "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：不确定，但是
 
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