LISP创建图例表

broncos15 · 发表于 2022-7-5 17:35:59

我正在尝试开发一个LISP例程，该例程将为用户创建一个图例表，其中每个用户都有一个带有属性的块。我的最终目标是让用户能够说出他们需要多少行，然后插入一个表，其中第1列中的每一行都会插入一个块，该块的属性对应于它当前所在的行。我不知道如何通过LISP将块插入表中，然后更改属性值。有人对如何做到这一点有什么建议吗？附上的是一个形象，有我的最终目标在脑海中。

Lee Mac · 发表于 2022-7-5 17:40:24

要将块插入表格单元格，请参阅我的块计数器程序使用的count:setblocktablerecord函数。

为了在表格单元格内配置块的属性，请研究setblockattributevalue/setblockattributevalue 32 ActiveX方法。

broncos15 · 发表于 2022-7-5 17:44:53

谢谢李！我将学习块计数器代码。所以在看了setblockattributevalue之后，我觉得我理解了它是如何工作的。我的快速代码是：是否需要插入引用tablerow的字段，而不仅仅是插入给出tablerow的文本？

broncos15 · 发表于 2022-7-5 17:48:31

我有点放弃了字段的概念，因为我无论如何都不知道字段引用单元格的行是什么。相反，我计划创建另一个LISP例程，允许用户对整个表重新编号。这个例程写起来很简单，但是，我很难弄清楚A1单元中实际存储了什么块，所以现在用户必须说出图例中使用了什么块。我曾尝试使用vla getcellvalue函数，但它没有返回块值。是否有其他函数会给出块名？

Lee Mac · 发表于 2022-7-5 17:55:04

看看这个代码，也许还有这个代码。

broncos15 · 发表于 2022-7-5 17:59:55

李非常感谢你！这两个代码都很有用！我试图将您的代码合并到我的代码中，但我无法使其正确工作，我得到了错误“error:lisp值不强制使用这种类型的变体：“SN”，其中SN是块名。我的代码是

copy

但是，当我提供块名时，我最初能够让它工作。

Lee Mac · 发表于 2022-7-5 18:03:22

不客气

请注意，ActiveX setblockattributevalue方法需要与要修改其值的属性对应的属性定义的对象ID，而不是块名。

broncos15 · 发表于 2022-7-5 18:04:22

啊，这很有道理。所以尝试用这个来纠正它，但是，我仍然得到一个错误。我只是用错误的方式/错误地思考了这个问题吗？

Lee Mac · 发表于 2022-7-5 18:10:13

请注意，我的LM:blocknamefromtablecell函数将返回与插入表单元格中的块名相对应的字符串-ActiveX objectid方法需要一个vla对象参数。

您需要迭代与我的函数返回的块名对应的块定义的组件，获得适当的属性定义，然后检索该对象的对象ID（考虑64位体系结构）。然后，此对象ID可以与ActiveX setblockattributevalue/setblockattributevalue 32方法一起使用。

broncos15 · 发表于 2022-7-5 18:13:33

谢谢李！这让我走了，现在我把一切都弄清楚了。

[编程交流] LISP创建图例表

发表回复

精选推荐