动态块提取到表

Lee Mac · 发表于 2022-7-5 17:44:10

在不测试代码的情况下，我怀疑出现错误的原因是其中一个属性值为null，因为在将foreach循环推送到主数据列表之前，在评估foreach循环之后，没有测试包含每个属性值的变量的有效性：
测试该理论的一种简单方法是在评估外部vlax for循环后打印attdata的值。

marko_ribar · 发表于 2022-7-5 17:47:50

正确，其中一个块属性名称与foreach循环中的名称不对应。

谢谢你的帮助。

Tharwat · 发表于 2022-7-5 17:52:27

不客气！

Spaj · 发表于 2022-7-5 17:54:07

Spaj · 发表于 2022-7-5 17:56:47

Hi Marko

Thanks for the input, but that did not seem to work. The routine does not recognize the specified blocks.

Lee Mac · 发表于 2022-7-5 18:01:20

Table names (i.e. layers, blocks, linetypes etc.) which contain the pipe character are xref-dependent items, with the content to the left of the pipe equal to the name of the xref from which they are derived.

Can you post your current modified code?

Spaj · 发表于 2022-7-5 18:04:35

Aha, helps if you understand these nuances.

Sure...

CList_Duct.LSP

Lee Mac · 发表于 2022-7-5 18:06:52

Without testing the code, I suspect that the error arises because one of the attribute values is null, as the variables holding each attribute value are not tested for validity following evaluation of the foreach loop before being pushed onto the main data list:

copy

(progn           (setq atts (vlax-invoke x 'getattributes))       (foreach att atts             (cond ((wcmatch (vla-get-tagstring att) "DUCT_START")                    (setq a1 (vla-get-textstring att))            ;(setq coordStart (vlax-get att insertionpoint))                   )                   ((wcmatch (vla-get-tagstring att) "DUCT_END")                    (setq a2 (vla-get-textstring att))                    ;(setq coordEnd (vlax-get att insertionpoint))                   )                   ((wcmatch (vla-get-tagstring att) "DUCT_TYPE")                    (setq a3 (vla-get-textstring att))                   )             ) ;end Cond           ) ; end ForEach           (setq attdata (cons (list [highlight]a1 a2 a3[/highlight]) attdata))         )

An easy way to test this theory is to print the value of attdata after evaluation of the outer vlax-for loop.