提取文件名并替换指定文本，求修改

wlt179

想实现提取文档名后，部份替换到指定的文本

比方说，打开的文档名为，abc#123

提取文档名后，只把123替换到指定的文本


无奈水平有限，望大佬们帮改改

2. (defun c:tt ( / e22 e2 sn1 sn2  i)
   
3.     (setq e22 nil)   
   
4.     (while (or (= e22 nil) (/= (cdr (assoc '0 (entget (car e22)))) "TEXT"))
   
5.                (setq e22 (entsel "选择要更改的文本"))
   
6.     )
   
7.       (setq e2 (entget (car e22)))
   
8.       (setq sn1 (cdr (assoc '1  e2)))
   
9.       (setq i 1)
   
10.       (repeat (strlen sn1)
    
11.         (cond
    
12.                    ((= (substr sn1 i 1) "")   (setq sn2 (vl-filename-base  (getvar"dwgname"))))
    
13. )
    
14.     (entmod (setq e2 (subst (cons 1 sn2) (assoc 1 e2) e2))))
    
15. (PRINC)
    
16. )

(defun c:tt ( / e22 e2 sn1 sn2  i)<br />     (setq e22 nil)   <br />     (while (or (= e22 nil) (/= (cdr (assoc '0 (entget (car e22)))) "TEXT"))<br />                (setq e22 (entsel "选择要更改的文本"))<br />     ) <br />       (setq e2 (entget (car e22))) <br />       (setq sn1 (cdr (assoc '1  e2)))<br />       (setq i 1)<br />       (repeat (strlen sn1)<br />         (cond <br />                    ((= (substr sn1 i 1) "")   (setq sn2 (vl-filename-base  (getvar"dwgname"))))<br /> )<br />     (entmod (setq e2 (subst (cons 1 sn2) (assoc 1 e2) e2))))<br /> (PRINC)<br /> )

gaics

没看懂是要干什么，是把后三个字符替换？替换的原则又是什么？

wyl219

      (setq i 1)
      (repeat (strlen sn1)
        (cond
                   ((= (substr sn1 i 1) "")   (setq sn2 (vl-filename-base  (getvar"dwgname"))))
)
这一段不懂什么意思
      (repeat (strlen sn1)就是循环文字长度次,后面的(= (substr sn1 i 1) "")其实也是循环到最后才能为t吧?
而且循环这么多次后面的sn2其实每次取值不是一样的么?那干嘛还要费这个功夫?

另外你也没实现对文件名取部分啊?

分割文件名可以用正则表达式实现,论坛里有现成的函数.

wlt179

wyl219 发表于 2019-11-22 11:50
(setq i 1)
      (repeat (strlen sn1)
        (cond

谢谢提指点，以经弄好了