请问用vlisp如何实现在选择的文本后加上给定的字母呢

20020729

我有很多图的序列号要改


数字的增加和减少用机械工程师的数字增减可以实现


可是有很多是要在数字的后面加上字母的


怎么实现呢


希望各位帮忙


非常感谢


小弟急用！！！

xyp1964

最好给个例子！


例如：1008→1008A         ？

20020729

是的主要是想在图号的后面加A


象06446-01-34变成06446-01-34A         A表示修改一次         B表示修改两次


单位的规定


每次我都是手工该的 麻烦的很


注意：虽然数字间有短线，属性还是单行文本的


希望帮忙                 再次感谢

xyp1964

文本加后缀程序。 加载wbjhz.lsp，运行wbjhz。 增加文本加前缀功能，加载wbjhz.lsp，运行wbjqz。 程序已修改重新上载！

xyp1964

已经增加文本加前缀功能。

叶文军

不错,很好,谢谢!

无痕

2. ;;e=ename; st1=前缀;st2=后缀.
3. (defun prestr (e st1 st2 / obj str)
4.    (setq obj (vlax-ename->vla-object e)
5.   str (strcat st1 (vla-get-textstring obj) st2))
6.    (vla-put-textstring obj str)
7. )
8. ;; pst = 文字加前后缀.---------------------无痕即兴 2004.8
9. (defun c:pst ( / ss st1 st2 i e)
10.    (princ "\n选择加前后缀的文字:")
11.    (setq ss (ssget '((0 . "TEXT")))
12.   st1(getstring "\n前缀<"">:")
13.   st2(getstring "\n后缀<"">:")
14.   i -1)
15.    (if (not st1)(setq st1 ""))
16.    (if (not st2)(setq st2 ""))
17.    (if ss
18.        (while (setq e(ssname ss (setq i(1+ i))))
19.          (prestr e st1 st2)
20.        )
21.    )(princ)
22. )

;;e=ename; st1=前缀;st2=后缀. (defun prestr (e st1 st2 / obj str)    (setq obj (vlax-ename->vla-object e)   str (strcat st1 (vla-get-textstring obj) st2))    (vla-put-textstring obj str) ) ;; pst = 文字加前后缀.---------------------无痕即兴 2004.8 (defun c:pst ( / ss st1 st2 i e)    (princ "\n选择加前后缀的文字:")    (setq ss (ssget '((0 . "TEXT")))   st1(getstring "\n前缀<"">:")   st2(getstring "\n后缀<"">:")   i -1)    (if (not st1)(setq st1 ""))    (if (not st2)(setq st2 ""))    (if ss        (while (setq e(ssname ss (setq i(1+ i))))          (prestr e st1 st2)        )    )(princ) )

xyp1964

收下！

20020729

非常感谢两位的帮忙！！


小弟收到！