高手来看看这个问题如何解决！

q3_2006 · 发表于 2013-11-7 17:13:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 q3_2006 于 2013-11-7 17:14 编辑

下午别人跟我求助的问题如图，直线上下有两个数值，想保留大值(小值删除掉)，如果相等，任意保留一个，只有一个值的不理会！
这个应该是软件生成的，字符前有一段看起来像是空格的东西，但似乎又不是空格，不知道如何处理，请高手帮助解决，谢谢了！
上测试图

st788796 · 发表于 2013-11-7 17:23:03

你试试 XD::List:GroupByIndex 构造表，用字的中心，误差取一个合适值

q3_2006 · 发表于 2013-11-7 17:25:28

st788796 发表于 2013-11-7 17:23
你试试 XD:ist:GroupByIndex 构造表，用字的中心，误差取一个合适值

前面空的那一段不知道是什么东西。。如何替换呀。用FIND吗？？数值如何提出来？？

st788796 · 发表于 2013-11-7 17:35:45

q3_2006 发表于 2013-11-7 17:25
前面空的那一段不知道是什么东西。。如何替换呀。用FIND吗？？数值如何提出来？？

后面的会处理了吧

(defun c:tt (/ ss el)
(if (setq ss (ssget '((0 . "text"))))
(progn
(setq el (xdrx_pickset->ents ss)
el (mapcar
'(lambda (x)
(list (nth 4 (XD::Geom:Box->9pt (Xd::Entity:Box x))) x)
)
el
)
el (vl-remove-if
'(lambda (x) (= (length x) 1))
(mapcar 'cdr (XD::List:GroupByIndex el 380.))
)
)
)
)
)

q3_2006 · 发表于 2013-11-7 17:39:02

st788796 发表于 2013-11-7 17:35
后面的会处理了吧

还是没说前面的空段怎么处理呀？怎么判断空的这一段是个什么东西？？

st788796 · 发表于 2013-11-7 17:42:34

本帖最后由 st788796 于 2013-11-7 17:48 编辑

q3_2006 发表于 2013-11-7 17:39
还是没说前面的空段怎么处理呀？怎么判断空的这一段是个什么东西？？

判断那个干什么? 空格
下面把相等的会删掉一个，如果保留，判断一下
数字特别密的地方单独处理

(defun c:tt (/ ss el)
(if (setq ss (ssget '((0 . "text"))))
(progn
(setq el (xdrx_pickset->ents ss)
el (mapcar
'(lambda (x)
(list (nth 4 (XD::Geom:Box->9pt (Xd::Entity:Box x))) x)
)
el
)
el (vl-remove-if
'(lambda (x) (= (length x) 1))
(mapcar 'cdr (XD::List:GroupByIndex el 380.))
)
el (mapcar
'(lambda (x)
(vl-sort
x
'(lambda (e1 e2)
(< (distof (xdrx_getpropertyvalue e1 "Textstring"))
(distof (xdrx_getpropertyvalue e2 "Textstring"))
)
)
)
)
el
)
)
(mapcar '(lambda (x)
(entdel (car x))
)
el
)
)
)
(princ)
)

(defun c:tt (/ ss el) 
  (if (setq ss (ssget '((0 . "text")))) 
    (progn 
      (setq el (xdrx_pickset->ents ss) 
            el (mapcar 
                 '(lambda (x) 
                    (list (nth 4 (XD::Geom:Box->9pt (Xd::Entity:Box x))) x) 
                  ) 
                 el 
               ) 
            el (vl-remove-if 
                 '(lambda (x) (= (length x) 1)) 
                 (mapcar 'cdr (XD::List:GroupByIndex el 380.)) 
               ) 
            el (mapcar 
                 '(lambda (x) 
                    (vl-sort 
                      x 
                      '(lambda (e1 e2) 
                         (< (distof (xdrx_getpropertyvalue e1 "Textstring")) 
                            (distof (xdrx_getpropertyvalue e2 "Textstring")) 
                         ) 
                       ) 
                    ) 
                  ) 
                 el 
               ) 
      ) 
      (mapcar '(lambda (x) 
                 (entdel (car x)) 
               ) 
              el 
      ) 
    ) 
  ) 
  (princ) 
)

q3_2006 · 发表于 2013-11-7 17:52:03

st788796 发表于 2013-11-7 17:42
判断那个干什么? 空格
下面把相等的会删掉一个，如果保留，判断一下
数字特别密的地方单独处理

空格不会影响数值比较吗？今才知道！

q3_2006 · 发表于 2013-11-7 18:08:39

st788796 发表于 2013-11-7 17:42
判断那个干什么? 空格
下面把相等的会删掉一个，如果保留，判断一下
数字特别密的地方单独处理

索引值是指什么呀，我不懂！求教了！

st788796 · 发表于 2013-11-7 18:11:31

本帖最后由 st788796 于 2013-11-7 18:13 编辑

q3_2006 发表于 2013-11-7 17:52
空格不会影响数值比较吗？今才知道！

用好XD::List:GroupByIndex，找出特征INDEX及fuzz要看发挥了

st788796 · 发表于 2013-11-7 18:15:13

本帖最后由 st788796 于 2013-11-7 18:18 编辑

q3_2006 发表于 2013-11-7 18:08
索引值是指什么呀，我不懂！求教了！

针对这个应用，Index就是TEXTBOX九点值的正中心点，fuzz取字的行距略大一点

q3_2006 · 发表于 2013-11-7 18:27:27

st788796 发表于 2013-11-7 18:15
针对这个应用，Index就是TEXTBOX九点值的正中心点，fuzz取字的行距略大一点

有个问题，这个问题我的其他的程序里也有这种情况，比如清理重叠块时：当我看全图处理容易清理不干净，但放大到局布就OK，不知道这种情况是为什么，如何避免呢？？

Free-Lancer · 发表于 2013-11-7 18:40:30

q3_2006 发表于 2013-11-7 18:27
有个问题，这个问题我的其他的程序里也有这种情况，比如清理重叠块时：当我看全图处理容易清理不干净，但 ...

regen 一下，眼见不一定为实

q3_2006 · 发表于 2013-11-7 18:45:36

Free-Lancer 发表于 2013-11-7 18:40
regen 一下，眼见不一定为实

不是这个问题，确实是看全图清不掉，局布就能，一直搞不懂是为什么？原本可以一次处理的，非得分几次。。麻烦得狠！拜托高手给找找原因，我程度太差，不容易发现问题，用上面的代码处理我的测试图也有这个问题。。。

st788796 · 发表于 2013-11-7 19:07:01

q3_2006 发表于 2013-11-7 18:45
不是这个问题，确实是看全图清不掉，局布就能，一直搞不懂是为什么？原本可以一次处理的，非得分几次。。 ...

你说上面的代码不能全图处理？

q3_2006 · 发表于 2013-11-7 19:12:18

不能，我用04 12都试了。。拜托找下原因。。我常遇到这个问题，局布都OK

账号		自动登录	找回密码
密码			立即注册

[求助] 高手来看看这个问题如何解决！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评