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

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

简单数字与文本分离，望大神们多多指导
(defun c:tt();;;数字与文本分离
(vl-load-com)
(setq ss (ssget '((0 . "text,mtext")
                  (1 . "*")
                   )
           )
        )
(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-TextStringob num)
    (command "text" "j" "ml" pt 1 0 ntx )
    (setq n (1+ n))
    )
)

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

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

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

等待大神们完善

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

简单的文字与数字分离

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

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

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

分不了

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

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

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

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

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

这个只能处理数字在前的文本。文本在前的没法处理。
页: [1]
查看完整版本: 简单数字与文本分离，望大神们多多指导