消除重复图元时，有部分文字清除不掉。

dyjwyqz5221

         问题：用黄明儒的消除重复图元命令在消除重复文字时，出现了问题。
该文字原位复制黏贴了多次（捕捉的直线的端点作为原位复制黏贴点），
运行消除重复图元程序后，一个位置多了一个，清除不掉。
试着设置精度也无济于事。望予以解答。附：dwg文件、字体及lsp文件。
   (defun c:yqzdel ( / ss e en n nn lst old5 typ)
        (setvar "CMDECHO" 0)
        (setvar "osmode" 0)
        (setq nn 0)
        (if (setq ss(ssget))
                    (repeat (setq n (sslength ss))
                              (if (and (setq e (ssname ss (setq n (1- n)))) (setq en (entget e)))
                                  (progn
                                            (setq typ (cdr en))
                                            (if (setq old5 (assoc 5 typ))
                                                      (setq typ (subst '(5 . "ASD") old5 typ))
                                            )
                                        (xdrx_document_setprec 1e+1 0.01)
                                        (if (member typ lst)
                                                (progn
                                                        (setq nn (1+ nn))
                                                              (entdel e)
                                                )
                                                      (setq lst (cons typ lst))
                                            )
                                  )
                              )
                )
            )
        (if (> nn 0)
                (princ (strcat "\n共删除 " (itoa nn) " 个重复实体。"))
                (princ (strcat "\n未找到重复实体。"))
        )
        (setvar "CMDECHO" 1)
        (setvar "osmode" 1)
        (princ)
)

marting

精度的事，他代码用member 判断是否重复，有些情况，虽然“克隆”但也有精度的问题出现，所以换个带精度的“member”就行了

拷贝下面的代码回去试试

用 xd::list:members 替换了 member

1. (defun c:yqzdel ( / ss e en n nn lst old5 typ)
   
2.         (setvar "CMDECHO" 0)
   
3.         (setvar "osmode" 0)
   
4.         (setq nn 0)
   
5.         (if (setq ss(ssget))
   
6.                     (repeat (setq n (sslength ss))
   
7.                               (if (and (setq e (ssname ss (setq n (1- n)))) (setq en (entget e)))
   
8.                                   (progn
   
9.                                             (setq typ (cdr en))
   
10.                                             (if (setq old5 (assoc 5 typ))
    
11.                                                       (setq typ (subst '(5 . "ASD") old5 typ))
    
12.                                             )
    
13.                                         (xdrx_document_setprec 1e-1 0.01)
    
14.                                         (if (xd::list:members typ lst)
    
15.                                                 (progn
    
16.                                                         (setq nn (1+ nn))
    
17.                                                               (entdel e)
    
18.                                                 )
    
19.                                                       (setq lst (cons typ lst))
    
20.                                             )
    
21.                                   )
    
22.                               )
    
23.                 )
    
24.             )
    
25.         (if (> nn 0)
    
26.                 (princ (strcat "\n共删除 " (itoa nn) " 个重复实体。"))
    
27.                 (princ (strcat "\n未找到重复实体。"))
    
28.         )
    
29.         (setvar "CMDECHO" 1)
    
30.         (setvar "osmode" 1)
    
31.         (princ)
    
32. )
    
33. 
    

(defun c:yqzdel ( / ss e en n nn lst old5 typ)<br />         (setvar "CMDECHO" 0)<br />         (setvar "osmode" 0)<br />         (setq nn 0)<br />         (if (setq ss(ssget))<br />                     (repeat (setq n (sslength ss))<br />                               (if (and (setq e (ssname ss (setq n (1- n)))) (setq en (entget e)))<br />                                   (progn<br />                                             (setq typ (cdr en))<br />                                             (if (setq old5 (assoc 5 typ))<br />                                                       (setq typ (subst '(5 . "ASD") old5 typ))<br />                                             )<br />                                         (xdrx_document_setprec 1e-1 0.01)<br />                                         (if (xd::list:members typ lst)<br />                                                 (progn<br />                                                         (setq nn (1+ nn))<br />                                                               (entdel e)<br />                                                 )<br />                                                       (setq lst (cons typ lst))<br />                                             )<br />                                   )<br />                               )<br />                 )<br />             )<br />         (if (> nn 0)<br />                 (princ (strcat "\n共删除 " (itoa nn) " 个重复实体。"))<br />                 (princ (strcat "\n未找到重复实体。"))<br />         )<br />         (setvar "CMDECHO" 1)<br />         (setvar "osmode" 1)<br />         (princ)<br /> )<br /> <br />

newer

(xdrx_document_setprec 1e+1 0.01)
这行是你自己添加的？

他没用API编程，你加上这个没作用

dyjwyqz5221

是的，加上不起作用。麻烦你看看为啥出现这种情况，所有都测试成功，唯有这部分文字有问题，而且是部分能去重，部分不能去重。

王子

试着学习一下。。。。。