插入块和属性

Glen Smith · 发表于 2022-7-5 23:42:07

我正试图破解（来自李和其他人在这里发布的一些代码）一个LISP，它将从列表中插入一块门。门块需要将门编号指定给属性。在列表中，我已经有了街区名称和门号。我已经设法让LISP插入块并开始填充属性，但我不知道如何让它停止添加属性并移动到下一个块。

帮助文件引用了一个sequend标志，这应该是我所需要的，但我不确定如何对其进行编码。

问题代码突出显示：
发生的事情是插入第一个块，将“GLEN”作为第一个属性，然后用后续命令调用填充其余属性。attribute2是“-insert”，属性3是下一个块名，依此类推。

谢谢你能提供的任何帮助。

格伦

BlackBox · 发表于 2022-7-5 23:52:55

我只浏览了一下代码。

也就是说，这条线的目的是什么：

copy


(foreach entity  inslst
         [color=red](progn)[/color]
         (if entity
           (command "-insert" entity ipt xScale yScale rot "GLEN")
           )
         (setq ipt (list (car ipt) (- (cadr ipt) 12) (caddr ipt)))
         )

该行：

copy


(command "-insert" entity ipt xScale yScale rot "GLEN")

... 插入块，并指定“GLEN”作为第一个属性值*如果我理解正确，插入的块有多个属性，因此得到的属性值不正确。再说一次，如果那句话是真的，那么我想这行代码就是你应该开始的地方。

如果要在添加“GLEN”后终止属性条目，请尝试在“GLEN”后添加一个“”，如下所示：

copy


(command "[color=red]._[/color]-insert" entity ipt xScale yScale rot "GLEN" [color=red]""[/color])

如果您确实想为其他属性“填充”其他值，则应将其添加到“GLEN”之后的行中。有道理？

Glen Smith · 发表于 2022-7-6 00:07:31

RenderMan，谢谢你的关注。

（progn）是一些被删除的代码的工件，现在也不见了。

我插入的块有许多属性，属性的数量不同，我希望有一种方法可以只填充第一个块，然后转到下一个块。

我尝试将“”添加到insert语句的末尾，这将保留属性的默认值，但不会终止命令。

在lisp帮助中查找insert可从DXF参考部分生成：
我认为这意味着有一种方法可以停止输入属性并进入下一步，我只是不知道Sequend实体是什么。我试着把sequend放在你建议的双引号的地方。这将导致终止属性条目和插入，从而不会插入块。

谢谢您的关注。
格伦