[求助]使用通配符查找替换

cq_qg

使用通配符查找替换

在cad中我想将图号桥梁－施－01、桥梁－施－02、桥梁－施－03……等替换成
桥梁－施－01－SH、桥梁－施－02－SH、桥梁－施－03－SH……
怎么使用通配符进行替换？

phoenixdjq

没听说过

不过用程序很容易就能做到

(defun c:kk()
(setq a (ssget))
(setq len (sslength a))  
(setq n 0)
(repeat len
(setq en (ssname a n))   
(setq b (entget en))     

(setq djq (cdr (assoc 0 b)))

(if (= djq "TEXT")

(doujq)

)        ;end if

(setq n (+ 1 n))

)       ;end repeat

)

;;;子程序

(defun doujq()
(setq c (assoc 1 b))    
(setq d (cdr c))        

(setq g (strcat  d "-sh"))

(setq m (cons 1 g))
(setq b (subst m c b ))
(entmod b)

(princ)               
) 

sujiajia

楼上的Lisp

写的不错，我也正在学习，不过很初级，向你学习啊！

Robertbg

真厉害啊,佩服呀!!!~~

phoenixdjq

这个是我两年前写的

一直没有做过维护，其实可以更简单的。

呵呵：）

只要达到目的就可以了

longer1000

不错啊，，，，，，，

steelgang

写的不错，我也正在学习，不过很初级，向你学习啊！

olfav

贱人工具箱5.2版，里面有个文本修改增加前后缀的功能，可以实现对楼主的效果。

elsa0918

有时借用别人的式具就借用别人的工具，实现目标即可。