wei-lin 发表于 2020-6-12 19:57:57

求助一个文字刷，将：（含）前面的文字删除

例子：1:2刷成2
A3:2刷成2
文字1:2刷成2
谢谢。

wei-lin 发表于 2020-6-12 19:59:02

自己顶一帖，沙发

1028695446 发表于 2020-6-12 20:08:47

什么类型的文字，，，单行文字？？？

wei-lin 发表于 2020-6-12 20:21:55

1028695446 发表于 2020-6-12 20:08
什么类型的文字，，，单行文字？？？

借楼补充一下说明：文字是单行文字，需求去掉:（含）前面的文字

1028695446 发表于 2020-6-12 20:46:50

wei-lin 发表于 2020-6-12 20:21
借楼补充一下说明：文字是单行文字，需求去掉:（含）前面的文字

http://bbs.mjtd.com/thread-181679-1-1.html

wei-lin 发表于 2020-6-12 21:50:31

1028695446 发表于 2020-6-12 20:46
http://bbs.mjtd.com/thread-181679-1-1.html

麻烦查阅链接里边回复。谢谢

start4444 发表于 2020-6-13 01:35:27

(defun c:tt5 (/ en entdat i ss txt x)
(vl-load-com)
(setq ss (ssget '((0 . "text"))))
        (setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
        (setq txt (cdr(assoc 1 (setq entdat (entget en)))))       
        (if (setq x (vl-string-search ":" txt)) (progn (setq txt (substr txt (+ x 2))) (entmod (setq entdat (subst (cons 1 txt) (assoc 1 entdat) entdat )))))       
        )
)

wei-lin 发表于 2020-6-13 11:36:09

已解决，感谢start4444。源码在7楼
页: [1]
查看完整版本: 求助一个文字刷，将：（含）前面的文字删除