HTH公司
编辑：
抓取代码。进一步的测试表明，使用距离函数是可行的。除非我能找到在给定半径的圆周内强制选择的方法。
李和大卫的荣誉
第二次尝试：（类似于李的方法）
（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（
以下是公差提示：
（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）（ 是的，pBe先生。一些原件被添加到复制层。我仍然赞扬你
页:
1
[2]