如何拾取三维多段线

aloy · 发表于 2022-7-5 17:58:58

大家好，
我用以下代码创建了一条三维多段线：

(defun Bigal2(lst)
(setq x 0)
(command "_3dpoly")
(while (= (getvar "cmdactive") 1 )
(repeat (length lst)
(command (nth x lst))
(setq x (+ x 1))
)
)
)
(setq pl '((5 5 5) (10 5 4) (10 10 3) (5 10 2) (5 7 1) (5 5 5)))

然后，我尝试用以下行选择相同的内容：
（setq sel1（ssget’（（0“_3dpoly”）（8。“0”）））

它似乎不起作用。有什么问题吗？。

感谢BIGAL，他为“3dpoly”的创建提供了代码。

Lee Mac · 发表于 2022-7-5 18:54:57

三维多段线图元的图元类型（DXF组0）为“多段线”，DXF组70中启用位代码8，以将图元与二维多段线或网格区分开来。

因此，您的选择过滤器需要：

copy

'((0 . "POLYLINE") (8 . "0") (-4 . "&=") (70 . )

aloy · 发表于 2022-7-5 19:28:35

非常感谢LM。它工作得很好。也许这就是我几天前开始的标题为“Poyline错误”的线程的解决方案。

[编程交流] 如何拾取三维多段线

发表回复

精选推荐

浏览过的版块