【已解决】求个把选择的文字统一加后缀的代码

lisp_beginner

输入后缀，然后选择要处理的文字，统一给这些文字结尾加上后缀，谢谢！

Lisphk

试试

1. (defun c:tt ()
   
2.   (if (and
   
3.         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))
   
4.         (progn
   
5.           (princ "\n选取要添加后缀的文字<退出>:")
   
6.           t
   
7.         )
   
8.         (setq ss (ssget '((0 . "TEXT"))))
   
9.       )
   
10.     (progn
    
11.       (setq i -1)
    
12.       (while (setq e (ssname ss (setq i (1+ i))))
    
13.         (setq ed (entget e)
    
14.               txt (cdr (setq old (assoc 1 ed)))
    
15.               txt (strcat txt str)
    
16.               ed (subst
    
17.                    (cons 1 txt)
    
18.                    old
    
19.                    ed
    
20.                  )
    
21.         )
    
22.         (entmod ed)
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(defun c:tt ()<br />   (if (and<br />         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))<br />         (progn<br />           (princ "\n选取要添加后缀的文字<退出>:")<br />           t<br />         )<br />         (setq ss (ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (setq i -1)<br />       (while (setq e (ssname ss (setq i (1+ i))))<br />         (setq ed (entget e)<br />               txt (cdr (setq old (assoc 1 ed)))<br />               txt (strcat txt str)<br />               ed (subst<br />                    (cons 1 txt)<br />                    old<br />                    ed<br />                  )<br />         )<br />         (entmod ed)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

yangjian001

给这些文字结尾加上后缀

q3_2006

(strcat str 后缀)

marting

Lisphk 发表于 2017-8-1 09:41

借LISPHK的，改个VLISP版的

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (if (and
   
4.         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))
   
5.         (progn
   
6.           (princ "\n选取要添加后缀的文字<退出>:")
   
7.           t
   
8.         )
   
9.         (setq ss (ssget '((0 . "TEXT"))))
   
10.       )
    
11.     (progn
    
12.       (setq sel (vla-get-activeselectionset (vla-get-activedocument
    
13.                                                                     (vlax-get-acad-object)
    
14.                                             )
    
15.                 )
    
16.       )
    
17.       (vlax-for item sel (vla-put-textstring item (strcat
    
18.                                                           (vla-get-textstring item)
    
19.                                                           str
    
20.                                                   )
    
21.                          )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   (vl-load-com)<br />   (if (and<br />         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))<br />         (progn<br />           (princ "\n选取要添加后缀的文字<退出>:")<br />           t<br />         )<br />         (setq ss (ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (setq sel (vla-get-activeselectionset (vla-get-activedocument<br />                                                                     (vlax-get-acad-object)<br />                                             )<br />                 )<br />       )<br />       (vlax-for item sel (vla-put-textstring item (strcat<br />                                                           (vla-get-textstring item)<br />                                                           str<br />                                                   )<br />                          )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

newer

API版：

1. (defun c:tt ( / e ss str txt)
   
2.   (if (and
   
3.         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))
   
4.         (xdrx_initssget "\n选取要添加后缀的文字<退出>:")
   
5.         (setq ss (xdrx_ssget '((0 . "TEXT"))))
   
6.       )
   
7.     (progn
   
8.       (xdrx_begin)
   
9.       (xdrx_setsstodb ss 0)
   
10.       (while (setq e (xdrx_getentdata 0))
    
11.         (setq txt (xdrx_getpropertyvalue e "textstring"))
    
12.         (setq txt (strcat txt str))
    
13.         (xdrx_setpropertyvalue e "textstring" txt)
    
14.       )
    
15.       (xdrx_end)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

(defun c:tt ( / e ss str txt)<br />   (if (and<br />         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))<br />         (xdrx_initssget "\n选取要添加后缀的文字<退出>:")<br />         (setq ss (xdrx_ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq txt (xdrx_getpropertyvalue e "textstring"))<br />         (setq txt (strcat txt str))<br />         (xdrx_setpropertyvalue e "textstring" txt)<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

或者：

1. (defun c:tt (/ e ss str txt)
   
2.   (if (and
   
3.         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))
   
4.         (xdrx_initssget "\n选取要添加后缀的文字<退出>:")
   
5.         (setq ss (xdrx_ssget '((0 . "TEXT"))))
   
6.       )
   
7.     (progn
   
8.       (xdrx_begin)
   
9.       (mapcar
   
10.         '(lambda (x)
    
11.            (setq txt (xdrx_getpropertyvalue x "textstring"))
    
12.            (setq txt (strcat txt str))
    
13.            (xdrx_setpropertyvalue x "textstring" txt)
    
14.          )
    
15.         (xdrx_pickset->ents ss)
    
16.       )
    
17.       (xdrx_end)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    
22. 
    

(defun c:tt (/ e ss str txt)<br />   (if (and<br />         (/= "" (setq str (getstring "\n输入后缀文字<退出>:")))<br />         (xdrx_initssget "\n选取要添加后缀的文字<退出>:")<br />         (setq ss (xdrx_ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (mapcar<br />         '(lambda (x)<br />            (setq txt (xdrx_getpropertyvalue x "textstring"))<br />            (setq txt (strcat txt str))<br />            (xdrx_setpropertyvalue x "textstring" txt)<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

kqqt6236

高手太多了。

sh_h

有了大师的指点加前缀的也就不难了，谢谢！

lisp_beginner

谢谢楼上各位大神，都好用，再次谢谢！！！！

tyjtyj19811981

没有人来个纯LISP版的？

newer

tyjtyj19811981 发表于 2017-8-1 11:00

二楼LISPHK的不就是纯LISP的，还怎么纯。

ll_j

tyjtyj19811981 发表于 2017-8-1 11:00

到我的网络U盘去下载一个cn.lsp，早期的程序，纯Lisp版本，功能比较多，其中有加前后缀功能。

tyjtyj19811981

newer 发表于 2017-8-1 11:06

是的，就像井冈山打广告的纯净水一样。

tyjtyj19811981

ll_j 发表于 2017-8-1 11:07

非常感谢！

ray7891

各位大师，屌屌屌