树形表摊平

960322

已知一个图块快名的树形层级表，我想得到该块内所有的块名，重叠的也不要删除，就是把这个树形表的所有元素全部摊平，麻烦会的大师帮个忙，谢谢！

kozmosovia

1. (Defun vldcl-Flatten (lst)
   
2.   (if (atom lst)
   
3.     (list lst)
   
4.     (append (vldcl-Flatten (car lst))
   
5.       (if  (cdr lst)
   
6.         (vldcl-Flatten (cdr lst))
   
7.       )
   
8.     )
   
9.   )
   
10. )

复制代码

guosheyang

;; Flatten List  -  Lee Mac
;; Transforms a nested list into a non-nested list
(defun LM:flatten ( l )
    (if (atom l)
        (list l)
        (append (LM:flatten (car l)) (if (cdr l) (LM:flatten (cdr l))))
    )
)

960322

表如下：((("F") ((("E") ((("C") nil) (("B") nil))) (("D") ((("B") nil) (("A") nil))))) (("A") nil) (("E") ((("C") nil) (("B") nil))) (("C") nil) (("F") ((("E") ((("C") nil) (("B") nil))) (("D") ((("B") nil) (("A") nil))))))

清水白粥

不知道是不是你想要，通过句柄统计块，即使相同名字的块，也会进行统计，方便做BOM表用 赋予每一个块不同的属性

jkop

清水白粥 发表于 2025-9-17 13:31
不知道是不是你想要，通过句柄统计块，即使相同名字的块，也会进行统计，方便做BOM表用 赋予每一个块不同的 ...

错误: no function definition: ADDLINEONE ，测试失败，
劳烦分享的前辈协拨空回覆～感谢。

kozmosovia

清水白粥 发表于 2025-9-17 13:31
不知道是不是你想要，通过句柄统计块，即使相同名字的块，也会进行统计，方便做BOM表用 赋予每一个块不同的 ...

这种用数据提取（dataextraction）就能做出来，不需要写代码

960322

谢谢楼上的各位老师，非常感谢！

清水白粥

kozmosovia 发表于 2025-9-17 19:32
这种用数据提取（dataextraction）就能做出来，不需要写代码

可以是可以，但是比较繁琐

清水白粥

jkop 发表于 2025-9-17 18:47
错误: no function definition: ADDLINEONE ，测试失败，
劳烦分享的前辈协拨空回覆～感谢。

这个要看你版本的CAD 我用CAD2026是没有问题的