求提取如图中三个数字中的最大值LISP

lenovo1x1

求提取如图中三个数字中的最大值LISP

newer

仅对你说的这种格式：  数字中间用分隔符分开，分割符是什么无所谓别数字就行。

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n拾取文本" '((0 . "TEXT")))))
   
3.      (progn
   
4.         (setq txt (xdrx_getentdxf 1)
   
5.               txtl (XD::String:RegexpS "[0-9]+" txt "")
   
6.         )
   
7.         (setq maxt(apply 'max (mapcar 'atoi txtl)))
   
8.         (princ (strcat "\n最大值是：" (itoa maxt)))            
   
9.      )
   
10.    )
    
11.    (princ)
    
12. )
    

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n拾取文本" '((0 . "TEXT")))))<br />      (progn<br />         (setq txt (xdrx_getentdxf 1)<br />               txtl (XD::String:RegexpS "[0-9]+" txt "")<br />         )<br />         (setq maxt(apply 'max (mapcar 'atoi txtl)))<br />         (princ (strcat "\n最大值是：" (itoa maxt)))             <br />      )<br />    )<br />    (princ)<br /> )<br />

newer

对了，看你注册不久，程序运行前加载 XDRX API 和晓东LISP通用函数库。链接见论坛置顶的帖子和最上面的红色的广告图片。

lenovo1x1

:'(感动啊 。搞了很久。终于看到希望

hardthinking

lenovo1x1 发表于 2013-8-13 17:17
感动啊 。搞了很久。终于看到希望

同是结构人，请问，你提取这三个数的最大值有什么用啊？

newer

lenovo1x1 发表于 2013-8-13 17:17
感动啊 。搞了很久。终于看到希望

能对你有帮助就好了，有问题就发帖问就是了。

ysq101

newer 发表于 2013-8-13 17:55
能对你有帮助就好了，有问题就发帖问就是了。

NEWER不愧为最热心版主

hardthinking

我是搬运工：纯lisp的此帖解法
http://bbs.xdcad.net/thread-660621-1-1.html
亲测可用