简单数字与文本分离，望大神们多多指导

永不言弃 · 发表于 2014-5-6 20:26

简单数字与文本分离，望大神们多多指导
(defun c:tt();;;数字与文本分离
  (vl-load-com)
  (setq ss (ssget '((0 . "text,mtext")
      (1 . "[0-9]*")
   )
   )
)
  (setq nn (sslength ss)
n 0
)
  (repeat nn
(setq en (ssname ss n))
(setq pt (cdr (assoc 10 (entget en))))
(setq ob (vlax-ename->vla-object en))
(setq tx (vla-get-TextString ob))
(setq num (rtos (atof tx) 2 0))
(setq ntx (vl-string-subst "" num tx))
(vla-put-TextString  ob num)
(command "text" "j" "ml" pt 1 0 ntx )
(setq n (1+ n))
)
  )

香田里浪人 · 发表于 2014-5-7 15:48

应该叫文本数字整数与小数分离？阁下的程序根本无法实现文本数字与文字的分离

永不言弃 · 发表于 2014-5-7 17:02

等待大神们完善

永不言弃 · 发表于 2014-5-7 17:06

简单的文字与数字分离

freeok · 发表于 2014-5-8 23:37

数字与特殊符号呢？比如 2-5* 呵呵

永不言弃 · 发表于 2014-5-9 08:33

分不了

chenbh2 · 发表于 2015-2-21 08:38

新年好,这个要G版,黄工等版主高手来出马!

xiabin68 · 发表于 2015-2-24 22:46

你都能分离，还要加什么要求？

hsmamw · 发表于 2023-10-12 13:55

这个只能处理数字在前的文本。文本在前的没法处理。

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

[讨论] 简单数字与文本分离，望大神们多多指导

相关帖子

本帖子中包含更多资源