求助"文字位置互换"

yx1985321

求助大神，本人在文字录入的时候，将文字的位置录入反了，现在换过来，因为工作量太大，请求帮助。"2.05/2.0"变成“2.0/2.05"

vectra

不能查找替换吗

Andyhon

请上传该文件且附三例解说...

yx1985321

这个是正确的"2.0/2.05"
这个是错误的"2.05/2.0"。就是想把2.0和2.05的位置换一下，中间是用“/"隔开的

Andyhon

Command: (setq str2 (parse str "/"))
("2.0" "2.05")

Command: (strcat (last str2) "/" (car Str2))
"2.05/2.0"

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）
   
3. (defun c:tt ()
   
4.   (xyp-Start)
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget '((0 . "text") (1 . "*/*"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq lst        (xyp-Str2LstSpr (xyp-DXF 1 s1) "/")
   
9.             tx        (strcat (cadr lst) "/" (car lst))
   
10.             s1        (xyp-SubUpd s1 1 tx)
    
11.       )
    
12.     )
    
13.   )
    
14.   (xyp-End)
    
15. )
    

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）<br /> (defun c:tt ()<br />   (xyp-Start)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text") (1 . "*/*"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq lst        (xyp-Str2LstSpr (xyp-DXF 1 s1) "/")<br />             tx        (strcat (cadr lst) "/" (car lst))<br />             s1        (xyp-SubUpd s1 1 tx)<br />       )<br />     )<br />   )<br />   (xyp-End)<br /> )<br />

鱼与熊掌

按/隔开 .重新构造字符就OK了

llsheng_73

直接用FIND命令。。。

ZZXXQQ

2. (defun c:tt ()
   
3. (while (and (setq s1 (entsel "\n选择文字: "))
   
4.              (setq ent (entget(car s1)))
   
5.              (= (cdr(assoc 0 ent)) "TEXT"))
   
6.   (setq txt (cdr(assoc 1 ent)))
   
7.   (if (wcmatch txt "*/*") (progn
   
8.    (setq n (vl-string-position (ascii "/") txt))
   
9.    (setq txt (strcat (substr txt (+ n 2)) "/" (substr txt 1 n)))
   
10.    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))
    
11.   ))
    
12. )
    
13. (princ)
    
14. )
    

(defun c:tt ()<br /> (while (and (setq s1 (entsel "\n选择文字: "))<br />              (setq ent (entget(car s1)))<br />              (= (cdr(assoc 0 ent)) "TEXT"))<br />   (setq txt (cdr(assoc 1 ent)))<br />   (if (wcmatch txt "*/*") (progn<br />    (setq n (vl-string-position (ascii "/") txt))<br />    (setq txt (strcat (substr txt (+ n 2)) "/" (substr txt 1 n)))<br />    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))<br />   ))<br /> )<br /> (princ)<br /> )<br />