[讨论]：根据模糊距离进行批量文字合并!(编程高手请进)

shuaier

前几天网友的原始地形图上的高程数据点的数字都被炸开了,如果要还原成一个一个的数字就有点麻烦了!
        普通的文字合并只能一个一个的合并连接,如果有个能够根据文字间的模糊距离进行批量文字合并就好了!
        如果能消除重合的文字就更好了!
        数据如附件!

snoopychen

搞好了：）
数据new.dwg在附件里面

这个是刚才编的lsp，不过你的原图里面的重叠数字太多，需先用express tool的overkill命令运行一遍后才能运行这个lisp

编程思路

这个程序是专门针对这个图形进行的，对于其他的需要重新修改一下，不过反正思路都差不多

做法，查找小数点“，”，然后对小数点进行前后找窗口，找到相邻的数据，然后进行合并
仅此而已

[php]
(defun c:all ()
  (setq sset nil
        sslist nil
  )
  (command "layer" "n" "temp" "s" "temp" "")
  (command "color" "3")
  (setq sset (ssget '((1 . "."))))
  (setq lena (sslength sset)
        i 0
  )
  (repeat lena
    (setq a (ssname sset i))
    (setq pointa (cdr (assoc 11 (entget a))))
    (setq pointc (polar (polar pointa pi 6) (* pi 1.5) 2))
    (setq pointd (polar (polar pointa 0 3) (* pi 0.5) 3))
    (setq sset1 (ssget "w" pointc pointd)) ; (grdraw pointc pointd 4)
    (setq sslist nil
          sslist1 nil
    )
    (setq sslist (std-sslist sset1))
    (setq sslist1 (vl-sort sslist (function (lambda (e1 e2)
                                              (< (car (cdr (assoc 11
                                                                  (entget e1)
                                                           )
                                                      )
                                                 ) (car (cdr (assoc 11
                                                                    (entget e2)
                                                             )
                                                        )
                                                   )
                                              )
                                            )
                                  )
                  )
    )
    (if (< (length sslist1) 6)
      (progn
        (setq m "")

        (foreach x sslist1
          (setq m (strcat m (cdr (assoc 1 (entget x)))))
        )
        (setq p1 (cdr (assoc 11 (entget (nth 0 sslist1)))))
        (command "text" p1 "2.2" "0" m)
      )
    )
    (setq i (1+ i))
  )
)


(defun STD-SSLIST (ss / n lst)
  (if (eq 'PICKSET (type ss))
    (repeat (setq n (fix (sslength ss))) ; fixed
      (setq lst (cons (ssname ss (setq n (1- n))) lst))
    )
  )
)
[/php]

snoopychen

结果的图形

shuaier

非常感谢!
基本上可以解决我的问题了,不过有点个别的需要单独进行合并,而且合并后的数据偏移了相同的距离,能不能位置不变或则干脆替换了原来的文字!
能不能提供一些参数:模糊距离\新建图层\颜色等

有发现个问题,这个图中的文字怎么不能转换?
旁边的蓝色点删掉后就可以转换了!为什么?

snoopychen

这个模糊距离你可以自己修改一下的
就是这句话
(setq pointc (polar (polar pointa pi 6) (* pi 1.5) 2))
    (setq pointd (polar (polar pointa 0 3) (* pi 0.5) 3))
里面的那个6，2，3，3这几个数
而蓝色不能修改的则是    (setq sset1 (ssget "w" pointc pointd))
这句话应该再加一句对文字过滤的
图层的改变是改变这句(command "layer" "n" "temp" "s" "temp" "") ，颜色的差不多
至于文字的偏移位置则是因为原来文字的定位方式不一样，一个是左下，一个是center
你先改改看：），程序都是得自己用才能调的最好

shuaier

我对编程真的是一巧不通啊!
看来什么东东都得懂一点!
还是谢谢snoopychen,这个程序已经节省了我大量时间!

pimixixi

snoopychen 发表于 2006-1-6 21:57
搞好了：）
数据new.dwg在附件里面

非常不错,学习了

树櫴希德

没有看见附件啊

树櫴希德

附件在这里

树櫴希德

错误: 参数类型错误: consp nil