[编程申请]：申请编一个LISP程序

wcf

图中每个方向每个字符是单个的，相当于已经炸开的文本，编一个LISP程序能把如图中每个方向字符串中的相挨着的两个以上数字连起来，其它字符仍为炸开的情况，在屏幕上代换原文本，且能批量处理。最好R14及以上版本都能通用。这个题目有一定的难度，请高手解决。

lsjjm

1. aa 是单个的吗?
2. 你的目的是否要返回: "253276" ?

自由的鱼

把数字连起来还是把字符连起来？

wcf

仅把两个以上数字连起来，其它字母和别的符号还在原位置不相连，要求框选批处理。这个题目有一定的难度。

lsjjm

请参考:
[PHP]
(defun c:test ( / lst)
  (setq nd 2)
  (setq olds (cdr (assoc 1 (entget (car (entsel))))))               
  (setq flag nil)
  (repeat (strlen olds)
    (setq item (substr olds 1 1))
    (if (and (>= (ascii item) 48)(<= (ascii item) 57))
      (if flag
        (setq str (strcat str item))
        (setq str item flag T)
      )
      (if (>= (strlen str) nd)
        (setq lst (append lst (list str)) str "" flag nil)
        (setq str "" flag nil)
      )
    )
    (setq olds (substr olds 2))
  )
  (setq nstr "")
  (foreach i lst (setq nstr (strcat nstr i)))
  (strcat nstr str)
)
[/PHP]

wcf

测试结果：－字符串为“145*(35)%3%681()5”
　　　　结果为："145356815"
我想要的结果为："145" , "35", "681"
希望lsjjm进一步改正，另外能否框选，一次选多个。

陌生人

为什么要这么连？是为了统计方便么？
如果是这样，用xdcad工具将一行的字符都连起来，再做一个提取数字的程序（论坛已经有这样的程序）。

对单个字符的连接处理，应该支持w，c，cp选，选完后进行x，y排序（y值排序设容差）。

wcf

如果全连起来，用晓东工具箱就能做到，现在是专业的需求，在这些字符串中两个以上的数字有特定的意义。因此要求提取２个以上的数字。

lsjjm

最初由 wcf 发布
[B]测试结果：－字符串为“145*(35)%3%681()5”
　　　　结果为："145356815"
我想要的结果为："145" , "35", "681"
希望lsjjm进一步改正，另外能否框选，一次选多个。 [/B]

1. 二楼问: 是否要返回: "253276" ? 怎么不见你回答?
下次请把问题说清楚.
2.  请参考:
http://www.xdcad.net/forum/showthread.php?s=&threadid=201848

wcf

我在六楼已经说清楚了，仔细的看一下。

lsjjm

最初由 wcf 发布
[B]我在六楼已经说清楚了，仔细的看一下。 [/B]

六楼? 第一个程序是发在5楼呀!?

wcf

好，谢谢你的热心，能否把你第５楼的程序改一下，详细一些，我是答的晚一点。

lsjjm

最初由 wcf 发布
[B]好，谢谢你的热心，能否把你第５楼的程序改一下，详细一些，我是答的晚一点。 [/B]

9楼的贴子看了吗? 改好的程序在: 2:
http://www.xdcad.net/forum/showthre...threadid=201848

陌生人

楼上连接无效

lsjjm

最初由 陌生人 发布
[B]楼上连接无效 [/B]

其实你已经看过并跟了贴:
Autolisp/Vlisp开发技术栏目
"提取诸文本字符串中n 位以上的数字"