使用distanc查找点对

pBe · 发表于 2022-7-6 09:03:02

更新第#4页的代码，将副本放置在单独的层上。

HTH公司

编辑：
抓取代码。进一步的测试表明，使用距离函数是可行的。除非我能找到在给定半径的圆周内强制选择的方法。
李和大卫的荣誉

第二次尝试：（类似于李的方法）

[code]（defun c:Ptnum（/cnt ss coll p）（vl load com）（if（and（setq cnt 0 coll nil fuzz（getdist“\nEmter fuzz Value：”）（ssget“_X”（list“（0.”POINT”）（cons 410（getvar“Ctab”））（progn（vlax for itm（setq ss（vla get ActiveSelectionSet（vla get ActiveDocument（vlax get acad object）））（setq coll（cons（list（list（car（setq a（vlax get itm’Coordinates））））（cadr a））itm）coll））（vla delete ss）（while（and（setq p（car coll））（/=（length coll）1））（setq cnt（1+cnt））（foreach j coll（if（

Lee Mac · 发表于 2022-7-6 09:05:22

以下是公差提示：

[code]（defun c:ptcount（/a b d e f i s x y）（setq d’（8“$DUPLICATE-POINTS$”）；；重复点层（if（和（setq s（ssget“\u X”'（（0。“点”）（410。“模型”）））（setq f（getdist”\n指定容差：））（progn（setq a（vl sort（repeat（setq i（sslength s））（setq e（entget（ssname s（setq i（1-i）））a（cons（cdr）））（assoc 10 e）e）a）'（λ（a b）（

ctdlc888 · 发表于 2022-7-6 09:12:56

是的，pBe先生。一些原件被添加到复制层。我仍然赞扬你

[编程交流] 使用distanc查找点对

发表回复

精选推荐