[求助]求教各位班主，急！急！急！

meflying

为什么总是看一半呢，我还问你是出了什么问题，怎么也不回答？是程序运行出错，还是结果不正确，
我测试了，运行一切正常，第一次运行处理了170个点，再继续运行则处理0个点。按此看来程序应该是没有问题的。不过170是否正确，就无从考证了，我不可能去数的。。。

gfxing

多谢飞哥，飞哥应该已经知道，这是一个处理同一点位有重点的程序，也就是说，170个点中有不是重点的，但也被删除了，您可以将处理过的与未处理过的按不同颜色插到一起，就能看到在被删除的点中，有的点位只有一个点，就说明程序在此处处理错了。希望能再见飞哥！！！

gfxing

多谢飞哥，飞哥应该已经知道，这是一个处理重点的问题，170个点不错，但其中有不是重点的点也被删除了，您可以将处理过的DWG插到未处理过的DWG中，就可以看到被删掉的点了，而此处只有一个点，没有重点，是程序处理错了。麻烦飞哥，希望能再见飞哥！！！

gfxing

几天没见飞哥了，是不是最近太忙了，还是希望飞哥及各位高手能帮小弟一把。
鲜花！

meflying

你说的重合点，是否是指视觉重合，还是事实重合？
就是说它们的Z坐标是否相同？

meflying

经反复测试，发现你的图并没有重合点，即使是视觉上的重合都没有。
测试程序如下，你可以自己画几个点试一下，可以Z值不同，再把两个挪得很近，只要大于你定的0.001，就完全可以。。。

2. 
   
3. (defun c:chpoint (/ ss len1 i ii si se xx yy ss1 len2 j ent ents xx1 yy1)
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "pickbox" 0)
   
6.   (command "_.undo" "be")
   
7.   (command "pdmode" "0" "zoom" "e" "regen")
   
8.   (setq ss (ssget "x" '((0 . "point") (8 . "58"))))
   
9.   (setq len1 (sslength ss))
   
10.   (setq        i  0
    
11.         ii 0
    
12.   )
    
13.   (while (< i len1)
    
14.     (setq si (ssname ss i))
    
15.     (setq se (entget si))
    
16.     (setq xx (cadr (assoc 10 se)))
    
17.     (setq yy (caddr (assoc 10 se)))
    
18.     (setq ss1 (ssget "c"
    
19.                      (list (- xx 0.001) (- yy 0.001))
    
20.                      (list (+ xx 0.001) (+ yy 0.001))
    
21.                      (list (cons 0 "point") (cons 8 "58"))
    
22.               )
    
23.     )
    
24.     (if ss1
    
25.       (progn
    
26.         (ssdel si ss1)
    
27.         (setq len2 (sslength ss1))
    
28.       )
    
29.       (setq len2 0)
    
30.     )
    
31.     (if        (> len2 0)
    
32.       (progn
    
33.         (setq j 0)
    
34.         (repeat len2
    
35.           (setq ent (ssname ss1 j))
    
36.           (setq ents (entget ent))
    
37.           (setq xx1 (cadr (assoc 10 ents)))
    
38.           (setq yy1 (caddr (assoc 10 ents)))
    
39.           (if (and (equal xx xx1 0.001) (equal yy yy1 0.001))
    
40.             (progn
    
41.               (entdel ent)
    
42.               (ssdel ent ss)
    
43.               (setq len1 (1- len1))
    
44.               (setq ii (+ ii 1))
    
45.             )
    
46.           )
    
47.           (setq j (1+ j))
    
48.         )
    
49.        
    
50.       )
    
51.     )                               
    
52.     (setq i (+ i 1))
    
53.     (grtext -2
    
54.             (strcat "共有" (itoa len1) "，已处理" (itoa i) "个大量点！")
    
55.     )
    
56.   )  
    
57.   (command "_.undo" "e")
    
58.   (setvar "cmdecho" 1)
    
59.   (prompt "检查完毕，共有")
    
60.   (princ ii)
    
61.   (prompt "个重合点！")
    
62. 
    
63.   (princ)
    
64. )

<br /> (defun c:chpoint (/ ss len1 i ii si se xx yy ss1 len2 j ent ents xx1 yy1)<br />   (setvar "cmdecho" 0)<br />   (setvar "pickbox" 0)<br />   (command "_.undo" "be")<br />   (command "pdmode" "0" "zoom" "e" "regen")<br />   (setq ss (ssget "x" '((0 . "point") (8 . "58"))))<br />   (setq len1 (sslength ss))<br />   (setq        i  0<br />         ii 0<br />   )<br />   (while (< i len1)<br />     (setq si (ssname ss i))<br />     (setq se (entget si))<br />     (setq xx (cadr (assoc 10 se)))<br />     (setq yy (caddr (assoc 10 se)))<br />     (setq ss1 (ssget "c" <br />                      (list (- xx 0.001) (- yy 0.001))<br />                      (list (+ xx 0.001) (+ yy 0.001))<br />                      (list (cons 0 "point") (cons 8 "58"))<br />               )<br />     )<br />     (if ss1<br />       (progn<br />         (ssdel si ss1)<br />         (setq len2 (sslength ss1))<br />       )<br />       (setq len2 0)<br />     )<br />     (if        (> len2 0)<br />       (progn<br />         (setq j 0)<br />         (repeat len2<br />           (setq ent (ssname ss1 j))<br />           (setq ents (entget ent))<br />           (setq xx1 (cadr (assoc 10 ents)))<br />           (setq yy1 (caddr (assoc 10 ents)))<br />           (if (and (equal xx xx1 0.001) (equal yy yy1 0.001))<br />             (progn<br />               (entdel ent)<br />               (ssdel ent ss)<br />               (setq len1 (1- len1))<br />               (setq ii (+ ii 1))<br />             )<br />           )<br />           (setq j (1+ j))<br />         )<br />         <br />       )<br />     )                                <br />     (setq i (+ i 1))<br />     (grtext -2<br />             (strcat "共有" (itoa len1) "，已处理" (itoa i) "个大量点！")<br />     )<br />   )  <br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br />   (prompt "检查完毕，共有")<br />   (princ ii)<br />   (prompt "个重合点！")<br /> <br />   (princ)<br /> )

龙龙仔

测试图并没有重合点????

2. 
   
3. ;;By 龙龙仔(LUCAS)
   
4. ;;直接比较会更简单
   
5. (defun C:CHPOINT_LAI (/ HOLDECHO SS SS1 SS2 PT LEN)
   
6.   (setq HOLDECHO (getvar "cmdecho"))
   
7.   (setvar "cmdecho" 0)
   
8.   (command "_.undo" "be")
   
9.   (setq        SS  (ssget "x" '((0 . "point") (8 . "58")))
   
10.         SS1 (ssadd)
    
11.         N   0
    
12.   )
    
13.   (if SS
    
14.     (progn
    
15.       (repeat (sslength SS)
    
16.         (if (member (setq PT (cdr (assoc 10 (entget (ssname SS N)))))
    
17.                     SS2
    
18.             )
    
19.           (ssadd (ssname SS N) SS1)
    
20.           (setq SS2 (append SS2 (list PT)))
    
21.         )
    
22.         (grtext        -2
    
23.                 (strcat        "共有"
    
24.                         (itoa (sslength SS))
    
25.                         "，已处理"
    
26.                         (itoa n)
    
27.                         "个大量点！"
    
28.                 )
    
29.         )
    
30.         (setq N (1+ N))
    
31.               )
    
32.       
    
33.       (prompt (strcat "\n检查完毕，共有"(itoa (sslength ss1)) "个重合点！"))(command "_.ERASE" SS1 "")
    
34.     )
    
35.   )
    
36.   (command "_.undo" "e")
    
37.   (setvar "cmdecho" HOLDECHO)
    
38.   (princ)
    
39. )
    

<br /> ;;By 龙龙仔(LUCAS)<br /> ;;直接比较会更简单<br /> (defun C:CHPOINT_LAI (/ HOLDECHO SS SS1 SS2 PT LEN)<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (setq        SS  (ssget "x" '((0 . "point") (8 . "58")))<br />         SS1 (ssadd)<br />         N   0<br />   )<br />   (if SS<br />     (progn<br />       (repeat (sslength SS)<br />         (if (member (setq PT (cdr (assoc 10 (entget (ssname SS N)))))<br />                     SS2<br />             )<br />           (ssadd (ssname SS N) SS1)<br />           (setq SS2 (append SS2 (list PT)))<br />         )<br />         (grtext        -2<br />                 (strcat        "共有"<br />                         (itoa (sslength SS))<br />                         "，已处理"<br />                         (itoa n)<br />                         "个大量点！"<br />                 )<br />         )<br />         (setq N (1+ N))<br />               )<br />       <br />       (prompt (strcat "\n检查完毕，共有"(itoa (sslength ss1)) "个重合点！"))(command "_.ERASE" SS1 "")<br />     )<br />   )<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" HOLDECHO)<br />   (princ)<br /> )<br />

gfxing

多谢飞哥、龙龙仔！！！
鲜花！！！