[LISP程序]：提取诸文本字符串中n 位以上的数字

lsjjm · 发表于 2004-6-24 06:02:19

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

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

×

提取诸文本字符串中n 位以上的数字
[PHP]
(defun c:test ( / lst)
  (prompt "Select String Text: ")
  (setq ss (ssget '((0 . "*text"))))
  (setq nd (getint "Number of digit: "))
  (setq m 0)
  (while (< m (sslength ss))
(setq str (cdr (assoc 1 (entget (ssname ss m)))))
(setq n 1)
(while (<= n (strlen str))
   (setq item (substr str n 1))
   (if (or (< (ascii item) 48)(> (ascii item) 57))
      (setq str (vl-string-subst "-" item str))
   )
   (setq n (1+ n))
)
(setq str (acet-str-to-list "-" str))
(setq lst (append lst (list (vl-remove-if '(lambda (e) (< (strlen e) nd)) str))))
(setq m (1+ m))
  )
  lst
)
[/PHP]

陌生人 · 发表于 2004-6-24 21:51:52

mtext字数超过250，用dxf3保存附加文字(可选)

zgq_gev · 发表于 2004-6-24 22:11:51

挺好的

陌生人 · 发表于 2004-6-24 23:24:03

能改进一下，支持小数点和e么？
如 234.12 2e-2

lsjjm · 发表于 2004-6-25 04:01:36

最初由陌生人发布
[B]能改进一下，支持小数点和e么？如 234.12 2e-2 [/B]

当然可以. 具体条件和要求? 不过yi你的水平自己完全可以编呀!

tuger · 发表于 2004-6-25 21:22:05

程序是不是用了et的函数啊

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

[LISP程序]：提取诸文本字符串中n 位以上的数字

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

相关帖子

浏览过的版块