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

网络工作者

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

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

(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 /> )

sharetow

2. (defun c:r2 (/ dx dxl i wz zx)
   
3.         (and
   
4.                 (setq zx (entsel "\n 请选择为后缀的文字:"))
   
5.                 (setq zx (cdr(assoc 1 (entget (car zx)))) i -1)
   
6.                 (setq dx (ssget '((0 . "TEXT,MTEXT"))))
   
7.                 (repeat (sslength dx)
   
8.                         (setq
   
9.                                 i   (1+ i)
   
10.                                 dxl (vlax-ename->vla-object (ssname dx i))
    
11.                                 wz  (vla-get-TextString dxl)
    
12.                         )
    
13.                         (vla-put-TextString dxl (strcat wz zx))
    
14.                 )
    
15.                 (princ)
    
16.         )
    
17. )

(defun c:r2 (/ dx dxl i wz zx)<br />         (and <br />                 (setq zx (entsel "\n 请选择为后缀的文字:"))<br />                 (setq zx (cdr(assoc 1 (entget (car zx)))) i -1)<br />                 (setq dx (ssget '((0 . "TEXT,MTEXT"))))<br />                 (repeat (sslength dx)<br />                         (setq<br />                                 i   (1+ i)<br />                                 dxl (vlax-ename->vla-object (ssname dx i))<br />                                 wz  (vla-get-TextString dxl)<br />                         )<br />                         (vla-put-TextString dxl (strcat wz zx))<br />                 )<br />                 (princ)<br />         )<br /> )

[/code]

vitalgg

http://atlisp.cn/package-info/at-text-stable.html

1. (@:add-menu "文本" "加前后缀" "(@text:menu-add-prefix-or-suffix)")
   
2. (defun @text:menu-add-prefix-or-suffix(/ res)
   
3.   (setq res (ui:input "请输入前后缀文字" '(("前缀:" )("后缀:"))))
   
4.   (@text:add-prefix-suffix (cdr (assoc "前缀:" res))
   
5.                            (cdr (assoc "后缀:" res))
   
6.                            (pickset:to-list (ssget '((0 . "TEXT")))))
   
7.   (princ))
   
8.   
   
9.    
   
10. (defun @text:add-prefix-suffix (str-prefix str-suffix lst-ent)
    
11.   (mapcar '(lambda (x)
    
12.              (entity:putdxf x 1
    
13.                             (strcat str-prefix (entity:getdxf x 1) str-suffix)))
    
14.           lst-ent))
    

(@:add-menu "文本" "加前后缀" "(@text:menu-add-prefix-or-suffix)")<br /> (defun @text:menu-add-prefix-or-suffix(/ res)<br />   (setq res (ui:input "请输入前后缀文字" '(("前缀:" )("后缀:"))))<br />   (@text:add-prefix-suffix (cdr (assoc "前缀:" res))<br />                            (cdr (assoc "后缀:" res))<br />                            (pickset:to-list (ssget '((0 . "TEXT")))))<br />   (princ))<br />   <br />     <br /> (defun @text:add-prefix-suffix (str-prefix str-suffix lst-ent)<br />   (mapcar '(lambda (x)<br />              (entity:putdxf x 1 <br />                             (strcat str-prefix (entity:getdxf x 1) str-suffix)))<br />           lst-ent))<br />

f4800

vitalgg 发表于 2021-11-18 05:01
http://atlisp.cn/package-info/at-text-stable.html

命令: AP APPLOAD 已成功加载 (@).fas。
已成功加载 (@).fas。
命令:
: Loading @lisp ...
: version: 1.4.55
INFO: Write to register. Please permit it.
INFO: Write to register. Please permit it.
INFO: Download @lisp.fas
INFO: Download @lisp.mnl
INFO: Download @lisp.dcl
INFO: Download locale/@lisp-chs.lang
Download and install base system.
INFO: create @lisp menus
加载自定义文件成功。自定义组: @LISP
@lisp was installed. Please input @H for help.; 错误: quit / exit abort
命令:
命令:
: Loading @lisp ...
: version: 1.4.55
...
@LISP 所有应用包加载完成。执行时间 0.011989 s
INFO: Download bin/curl-ca-bundle.crt
INFO: Download bin/libcurl-x64.dll
INFO: Download bin/curl.exe
INFO: downloading curl.exe, this need longer time，Please waitting...

大佬 出现这个      这是。。。

cghdy

对选择集对象做一个循环

网络工作者

cghdy 发表于 2021-11-16 09:31
对选择集对象做一个循环

您好老师，感谢您的指点，恕小弟愚钝，小弟不会用，选择集和循环语句，不知道该放到程序的哪个位置，麻烦老师帮我再指点指点，感谢感谢。

网络工作者

sharetow 发表于 2021-11-16 09:53
[/code]

感谢老师，可以了，感谢您，学会这个真牛，惭愧 我只会的简单的，工作方便很多的。

lxl217114

查找替换，把“塑料”替换成“塑料61”，完事。

网络工作者

lxl217114 发表于 2021-11-16 13:55
查找替换，把“塑料”替换成“塑料61”，完事。

聪明人，不是这么简单的，还有很多类似的数据需要换

vitalgg

正常， 有菜单就是安装成功了。
@P