求教，怎么样批量选择文字添加后缀，麻烦各位大师指点，感谢！

相信自己666

我自己做的一个选择文字添加后缀的小插件，只能单一选择，不能批量选择，不会用选择集或循环，麻烦会的大师帮帮忙修改下，做成可以批量选择添加后缀的，万分感谢。

1. (defun c:r2 ()
   
2.   (setq hz1 (entsel "\n 请选择为后缀的文字:"))
   
3.   (setq hz2 (entget (car hz1)))
   
4.   (setq hz3 (cdr (assoc 1 hz2)))
   
5.     (setq hz4 (entsel "\n 请选择要添加后缀的文字:"))
   
6.     (setq hz5 (entget (car hz4)))
   
7.     (setq hz6  (assoc 1 hz5))
   
8.     (setq hz7 (cdr hz6))
   
9.   (setq hz8 (strcat hz7 hz3))
   
10.   (setq hz9 (cons 1 hz8) )
    
11.   (setq hz5 (subst hz9 hz6 hz5))
    
12.   (entmod hz5)
    
13.   (prin1)
    
14. )

(defun c:r2 ()<br />   (setq hz1 (entsel "\n 请选择为后缀的文字:"))<br />   (setq hz2 (entget (car hz1)))<br />   (setq hz3 (cdr (assoc 1 hz2)))<br />     (setq hz4 (entsel "\n 请选择要添加后缀的文字:"))<br />     (setq hz5 (entget (car hz4)))<br />     (setq hz6  (assoc 1 hz5))<br />     (setq hz7 (cdr hz6))<br />   (setq hz8 (strcat hz7 hz3))<br />   (setq hz9 (cons 1 hz8) )<br />   (setq hz5 (subst hz9 hz6 hz5))<br />   (entmod hz5)<br />   (prin1)<br /> )

hh_lj007

ssget选中多个文字，循环处理每个文字就可以了
-----------------
  (setq ss (ssget '((0 . "TEXT"))) ii -1)
  (repeat (sslength ss)
    (setq
        ii (1+ ii)
        en (ssname ss ii)
    )
  )
  (处理en加后缀的函数 en)
-------以上------------

相信自己666

hh_lj007 发表于 2021-11-16 09:01
ssget选中多个文字，循环处理每个文字就可以了
-----------------
  (setq ss (ssget '((0 . "TEXT"))) i ...

万分感谢老师您的指点，恕小弟愚钝，不知道该放到程序的哪个位置，麻烦老师帮我再指点指点，感谢感谢

ketxu

With no Unicode Character, no too long Mtext content, and endless loop, you can start from here :

1. (defun c:Foo(/ e s e2v)
   
2.         (vl-load-com)
   
3.         (setq e2v vlax-ename->vla-object )
   
4.         (while
   
5.                 (and
   
6.                         (setq e (entsel "\nSelect suffix :"))
   
7.                         (setq e (car e))
   
8.                         (wcmatch (cdr (assoc 0 (entget e))) "TEXT,MTEXT")
   
9.                         (setq suf (vla-get-textstring (e2v e)))
   
10.                 )
    
11.                 (while
    
12.                         (setq s (ssget (list (cons 0 "TEXT,MTEXT"))))
    
13.                         (repeat (sslength s)
    
14.                                 (vla-put-textstring  (e2v (setq e (ssname s 0))) (strcat (vla-get-textstring (e2v e)) suf))
    
15.                                 (setq s (ssdel e s))
    
16.                         )
    
17.                 )
    
18.         )
    
19. )

(defun c:Foo(/ e s e2v)<br />         (vl-load-com)<br />         (setq e2v vlax-ename->vla-object )<br />         (while <br />                 (and <br />                         (setq e (entsel "\nSelect suffix :"))<br />                         (setq e (car e))<br />                         (wcmatch (cdr (assoc 0 (entget e))) "TEXT,MTEXT")<br />                         (setq suf (vla-get-textstring (e2v e)))<br />                 )<br />                 (while <br />                         (setq s (ssget (list (cons 0 "TEXT,MTEXT"))))<br />                         (repeat (sslength s)<br />                                 (vla-put-textstring  (e2v (setq e (ssname s 0))) (strcat (vla-get-textstring (e2v e)) suf))<br />                                 (setq s (ssdel e s))<br />                         )<br />                 )<br />         )<br /> )

hh_lj007

2. 
   
3. (defun c:r2 ()
   
4.   (setq hz1 (entsel "\n 请选择为后缀的文字:"))
   
5.   (setq hz2 (entget (car hz1)))
   
6.   (setq hz3 (cdr (assoc 1 hz2)))
   
7.   (princ "\n 请选择要添加后缀的文字(一个或者多个):")
   
8.   (setq
   
9.     ss
   
10.     (ssget
    
11.       '(
    
12.         (0 . "TEXT")
    
13.       )
    
14.     )
    
15.     ii -1
    
16.   )
    
17.   (repeat (sslength ss)
    
18.     (setq
    
19.       ii (1+ ii)
    
20.       hz4 (ssname ss ii)
    
21.       hz5 (entget hz4)
    
22.       hz6 (assoc 1 hz5)
    
23.       hz7 (cdr hz6)
    
24.       hz8 (strcat hz7 hz3)
    
25.       hz9 (cons 1 hz8)
    
26.       hz5 (subst hz9 hz6 hz5)
    
27.     )
    
28.     (entmod hz5)
    
29.   )
    
30.   (prin1)
    
31. )
    

<br /> (defun c:r2 ()<br />   (setq hz1 (entsel "\n 请选择为后缀的文字:"))<br />   (setq hz2 (entget (car hz1)))<br />   (setq hz3 (cdr (assoc 1 hz2)))<br />   (princ "\n 请选择要添加后缀的文字(一个或者多个):")<br />   (setq<br />     ss<br />     (ssget<br />       '(<br />         (0 . "TEXT")<br />       )<br />     )<br />     ii -1<br />   )<br />   (repeat (sslength ss)<br />     (setq<br />       ii (1+ ii)<br />       hz4 (ssname ss ii)<br />       hz5 (entget hz4)<br />       hz6 (assoc 1 hz5)<br />       hz7 (cdr hz6)<br />       hz8 (strcat hz7 hz3)<br />       hz9 (cons 1 hz8)<br />       hz5 (subst hz9 hz6 hz5)<br />     )<br />     (entmod hz5)<br />   )<br />   (prin1)<br /> )<br />

相信自己666

hh_lj007 发表于 2021-11-16 16:53

感谢您老师

hh_lj007

功能实现了，就是一个程序结构的事儿了

相信自己666

hh_lj007 发表于 2021-11-17 11:46
功能实现了，就是一个程序结构的事儿了

是的，我是刚接触lsp，还不太熟悉

aisong220