[日积月累]：去除图中重复的文字

ykklms

2. [font=courier]
   
3. ;本程序的目的是要去除图中重复的文字(主要是针对测量图中存在的大量在同一位置上重复的数字)
   
4. (defun invar ()
   
5.   (setvar "cmdecho" 0)                        ;屏蔽命令行显示
   
6.   (setq os (getvar "osmode"))                ;提取物体捕捉变量
   
7.   (setvar "osmode" 0)                        ;设置物体捕捉变量为空
   
8.   (command "undo" "g")                        ;设置“U”回的值
   
9. )
   
10. (defun revar ()
    
11.   (setvar "osmode" os)                        ;恢复物体捕捉设置
    
12.   (command "undo" "e")                        ;设置“U”的最点
    
13.   (setvar "cmdecho" 1)                        ;恢复命令行显示
    
14. )
    
15. 
    
16. (defun c:retext        ()
    
17.   (invar)
    
18.   (alert "每次所选数字总数最好不要超过200个，否则太慢!!!")
    
19.   (prompt "\n请选取文字：")
    
20.   (terpri)
    
21.   (setq ss (ssget '((0 . "text"))))        ;选取并过滤为文字
    
22.   (if (= ss nil)                        ;对没有选取文字的处理
    
23.     (progn
    
24.       (prompt "\n你没有选取任何文字!!!")
    
25.       (exit)
    
26.     )
    
27.   )
    
28.   (terpri)
    
29.   (setq i (sslength ss))                ;所选取的文字数
    
30.   (if (= i 1)                                ;对只选取一个文字的处理
    
31.     (progn
    
32.       (prompt "\n你只选取了一个文字!!!")
    
33.       (exit)
    
34.     )
    
35.   )
    
36.   (setq ii 0)                                ;循环体中文字个数的值
    
37.   (setq n 0)                                ;用来计算总共删除的重复文字个数
    
38.   (while (> i 1)
    
39.     (setq entname (ssname ss ii))
    
40.     (setq ent (entget entname))
    
41.     (setq ent10 (assoc 10 ent))
    
42.     (setq ent1 (cdr (assoc 1 ent)))
    
43.     (setq ent10x (cadr ent10))
    
44.     (setq ent10y (caddr ent10))
    
45.     (setq ss (ssdel entname ss))
    
46.     (setq i (sslength ss))
    
47.     (repeat i
    
48.       (setq lentname (ssname ss ii))
    
49.       (setq lent (entget lentname))
    
50.       (setq lent10 (assoc 10 lent))
    
51.       (setq lent1 (cdr (assoc 1 lent)))
    
52.       (setq lent10x (cadr lent10))
    
53.       (setq lent10y (caddr lent10))
    
54.       (if (and
    
55.             (= lent1 ent1)
    
56.             (= lent10x ent10x)
    
57.             (= lent10y ent10y)
    
58.           )
    
59.         (progn
    
60.           (setq ss (ssdel lentname ss))
    
61.           (entdel lentname)
    
62.           (setq n (1+ n))
    
63.         )                                ;end of progn
    
64.         (setq ii (1+ ii))
    
65.       )                                        ;end of if
    
66.     )                                        ;end of repeat
    
67.     (setq ii 0)
    
68.     (setq i (sslength ss))
    
69.   )                                        ;end of while
    
70.   (if (= n 0)
    
71.     (prompt "\n没有重复的文字!!!")
    
72.     (progn
    
73.       (prin1 "总共删除了")
    
74.       (prin1 n)
    
75.       (prin1 "个重复的文字")
    
76.       (terpri)
    
77.       (prompt "\n山东省水利勘测设计院 杨克坤 2003.05.17编")
    
78.     )
    
79.   )
    
80.   (revar)
    
81. )
    
82. 
    
83. [/font]

[font=courier]<br /> ;本程序的目的是要去除图中重复的文字(主要是针对测量图中存在的大量在同一位置上重复的数字)<br /> (defun invar ()<br />   (setvar "cmdecho" 0)                        ;屏蔽命令行显示<br />   (setq os (getvar "osmode"))                ;提取物体捕捉变量<br />   (setvar "osmode" 0)                        ;设置物体捕捉变量为空<br />   (command "undo" "g")                        ;设置“U”回的值<br /> )<br /> (defun revar ()<br />   (setvar "osmode" os)                        ;恢复物体捕捉设置<br />   (command "undo" "e")                        ;设置“U”的最点<br />   (setvar "cmdecho" 1)                        ;恢复命令行显示<br /> )<br /> <br /> (defun c:retext        ()<br />   (invar)<br />   (alert "每次所选数字总数最好不要超过200个，否则太慢!!!")<br />   (prompt "\n请选取文字：")<br />   (terpri)<br />   (setq ss (ssget '((0 . "text"))))        ;选取并过滤为文字<br />   (if (= ss nil)                        ;对没有选取文字的处理<br />     (progn<br />       (prompt "\n你没有选取任何文字!!!")<br />       (exit)<br />     )<br />   )<br />   (terpri)<br />   (setq i (sslength ss))                ;所选取的文字数<br />   (if (= i 1)                                ;对只选取一个文字的处理<br />     (progn<br />       (prompt "\n你只选取了一个文字!!!")<br />       (exit)<br />     )<br />   )<br />   (setq ii 0)                                ;循环体中文字个数的值<br />   (setq n 0)                                ;用来计算总共删除的重复文字个数<br />   (while (> i 1)<br />     (setq entname (ssname ss ii))<br />     (setq ent (entget entname))<br />     (setq ent10 (assoc 10 ent))<br />     (setq ent1 (cdr (assoc 1 ent)))<br />     (setq ent10x (cadr ent10))<br />     (setq ent10y (caddr ent10))<br />     (setq ss (ssdel entname ss))<br />     (setq i (sslength ss))<br />     (repeat i<br />       (setq lentname (ssname ss ii))<br />       (setq lent (entget lentname))<br />       (setq lent10 (assoc 10 lent))<br />       (setq lent1 (cdr (assoc 1 lent)))<br />       (setq lent10x (cadr lent10))<br />       (setq lent10y (caddr lent10))<br />       (if (and<br />             (= lent1 ent1)<br />             (= lent10x ent10x)<br />             (= lent10y ent10y)<br />           )<br />         (progn<br />           (setq ss (ssdel lentname ss))<br />           (entdel lentname)<br />           (setq n (1+ n))<br />         )                                ;end of progn<br />         (setq ii (1+ ii))<br />       )                                        ;end of if<br />     )                                        ;end of repeat<br />     (setq ii 0)<br />     (setq i (sslength ss))<br />   )                                        ;end of while<br />   (if (= n 0)<br />     (prompt "\n没有重复的文字!!!")<br />     (progn<br />       (prin1 "总共删除了")<br />       (prin1 n)<br />       (prin1 "个重复的文字")<br />       (terpri)<br />       (prompt "\n山东省水利勘测设计院 杨克坤 2003.05.17编")<br />     )<br />   )<br />   (revar)<br /> )<br /> <br /> [/font]

请大家指教

梦断江南

应该是去重叠文字吧?
完全重叠的情况不多见,最好加个干涉判断,文字外框相交而且内容相同,保留一个.

ykklms

最近用了一些好几幅地形图拼起来的图，一是图太大，一般在10M左右，好多地方的高程点数据多的重叠9次。上面写的东西判断起来太麻烦，运行起来数字多了太慢。
能否教我如果进行干涉判断？我是初学者，不懂，先谢谢了。

aeo

(if (and
            (= lent1 ent1)
            (= lent10x ent10x)
            (= lent10y ent10y)
          )
这不能判断重叠的.

大地

最初由 aeo 发布
[B](if (and
            (= lent1 ent1)
            (= lent10x ent10x)
            (= lent10y ent10y)
          )
这不能判断重叠的. [/B]

我认为有道理。这只是判断了一个点，还有角度，字高，字宽等，要比较的还有好多。