替换编程

hphkjz

哪位大哥能帮我修改一下下面这个LISP程序呢，这是一个文字替换程序，但是这个程序我觉得有一个缺点，就是需要一个一个的去替换，能不能帮我修改一下可以一键替换呢，按字数多的替换字数少的原则进行替换呢。
下面是原LISP原文：(defun c:tt ( / i s ss sss txt otxt o_txt ent)
        (setvar"CMDECHO" 0)
        (princ "\n选择替换成的文字")
        (setq s (ssget ":S" '((0 . "TEXT"))))
        (setq txt (assoc 1 (entget (ssname s 0))))
        (princ "\n选择被替换的文字类型")
        (setq ss (ssget ":S" '((0 . "TEXT"))))
        (setq otxt (assoc 1 (entget (ssname ss 0))))
        (princ"\n请框选需要替换的范围:")
        (setq sss (ssget (list (cons 0 "TEXT") otxt)))
        (setq i -1)
        (repeat (sslength sss)
                (setq ent (entget (ssname sss (setq i (1+ i)))))
                (setq o_txt (assoc 1 ent))
                (setq ent (subst txt o_txt ent))
                (entmod ent)
        )
  (princ)
)

aimisiyou

你得先确定替换前多的字里没有重复的字。不然"你说你在干什么？   你"怎么替换？

yuren008

做个对论坛有益的人。

dekill

学习一下````````````

hphkjz

aimisiyou 发表于 2020-2-16 12:13
你得先确定替换前多的字里没有重复的字。不然"你说你在干什么？   你"怎么替换？

哥，替换前多的字里面确实有重复的字，但是少的字只是多的字的一部分，相当于把少的字补全吧。这个能不能实现呢

aimisiyou

hphkjz 发表于 2020-2-16 15:20
哥，替换前多的字里面确实有重复的字，但是少的字只是多的字的一部分，相当于把少的字补全吧。这个能不能 ...

如果有重复的字（刚好是字少的开头），那从哪里配对开始呢？

hphkjz

aimisiyou 发表于 2020-2-16 15:30
如果有重复的字（刚好是字少的开头），那从哪里配对开始呢？

这样吧哥，我和你说一下我实际遇到的情况，一栋楼会有好多的梁，比如KL1 200*500，而相同的梁只标了一个KL1，我想把它补全了，也变成KL1 200*500。但是还有KL2、KL3等等。但是只需要一键就可以把他们搜索完毕并且替换完毕。哥，这个意思你能明白了么，这个功能能实现吗

hphkjz

aimisiyou 发表于 2020-2-16 15:30
如果有重复的字（刚好是字少的开头），那从哪里配对开始呢？

字多的里面一定包含着字少的才可以配对。

hphkjz

aimisiyou 发表于 2020-2-16 15:30
如果有重复的字（刚好是字少的开头），那从哪里配对开始呢？

并且都是开头的字相同

aimisiyou

可以实现的。先获取所有文字，然后分成两类，一类字多，一类字少。将每一个字少的和字多的匹对，替换。

hphkjz

aimisiyou 发表于 2020-2-16 16:32
可以实现的。先获取所有文字，然后分成两类，一类字多，一类字少。将每一个字少的和字多的匹对，替换。

是的，哥，你可以帮我设计一个lisp代码么

aimisiyou

发个CAD图过来，便于检测效果。

hphkjz

aimisiyou 发表于 2020-2-16 16:41
发个CAD图过来，便于检测效果。

大哥，CAD图纸发过去了，在附件了，那些文字有可能不在一个图层哦

aimisiyou

hphkjz 发表于 2020-2-16 16:57
大哥，CAD图纸发过去了，在附件了，那些文字有可能不在一个图层哦

(setq sn (ssget ":N" '((0 . "Mtext"))))
(setq i 0 n (sslength sn) plst nil)
(while (< i n)
        (setq plst (cons (cdr (assoc 1 (entget (ssname sn i)))) plst))
        (setq i (+ i 1))
)
(setq pt1 (vl-sort (vl-remove nil (mapcar '(lambda (x) (if (> (strlen x) 5) x nil)) plst)) '<))
(setq pt2 (vl-sort (vl-remove nil (mapcar '(lambda (x) (if (<= (strlen x) 5) x nil)) plst)) '<))
(setq ppst (mapcar '(lambda (x) (car (vl-remove nil (mapcar '(lambda (y) (if (= x (substr y 1 (strlen x))) (list x y) nil)) pt1)))) pt2))
(setq j 0)
(while (< j n)
     (setq ea (entget (ssname sn j)))
     (if (assoc (cdr (assoc 1 ea)) ppst)
      (progn
   (setq eb (reverse (cons (cons 1 (cadr (assoc (cdr (assoc 1 ea)) ppst)))
               (reverse (vl-remove (assoc 1 ea) ea))
                   )
       ))
   (setq ea eb)
       (entmod ea)
   )
     )
  (setq j (+ j 1))
)

电脑上CAD里没有相应字体，打开看不见字符。在电脑上同一图层上试了下，可以将少的字改成多的字。

newer

多利用论坛搜索

对话框文字万能替换工具（第二版）-加入正则替换

166 个回复 - 4754 次查看

加入了“正则表达式”查找替换功能，真正的“万能”替换。 **** 本内容被作者隐藏 **** 正则替换的几个例子： 1、字首的字母替换成"" 2、字母和数字之间添加“-” 3、字母变2个，后添加 “--” ...

2018-5-18 23:15 - Lispboy - 每日插件

                               
登录/注册后可看大图