从数据库中删除点

Lee Mac · 发表于 2022-7-6 00:34:00

很高兴听到pBe

aloy · 发表于 2022-7-6 00:40:03

谢谢大家，
然而，给出的代码似乎不会影响我要从图形中删除的点。我已经从窗口获得了如下选择集：
我从包含以下函数开始，并执行了它：
（定义delpoints（列表X/e i p q s）
（如果（setq i-1
s（ssget“_X”'（（0。“点”））
)
（while（和listx（setq e（ssname s（setq i（1+i 1070;））））））
（if（setq p（cdr（assoc 10（entget e）））
q（vl some’（λ（x）（if（equal x p 1e-x））listx）
)
（程序
（entdel e）
（setq listx（vl remove q listx））
)
)
)
)
（普林斯）
)
从图像中可以看出，使用变量指定并尝试从图形中删除的点仍然存在。

它在三角形内。

也许我们没有访问图纸的数据库。
当做
芦荟

Lee Mac · 发表于 2022-7-6 00:41:28

您是否为“delpoints”函数提供了所需的列表参数？

GP_ · 发表于 2022-7-6 00:45:45

太棒了

__________________________________________________

1000点测试

delpoints1-（LM）-经过时间：0.294秒

del_p-（GP）-经过时间：0.725秒
delpoints2-（LM）-经过时间：0.040秒：冲击：nds