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

Lee Mac 发表于 2022-7-6 00:48:03

Grazie mille Gian！

aloy 发表于 2022-7-6 00:51:44

谢谢，我觉得这个很好用。我将测试GP。”s和Tharwat的代码。再次感谢大家。

Lee Mac 发表于 2022-7-6 00:58:11

 
非常欢迎你，艾莉-
不过，正如GP的基准测试所示，请注意，我后面的代码将执行得更快
（尽管不包括点比较的公差）
 
李
页: 1 [2]
查看完整版本: 从数据库中删除点