求助：如何批量删除单多行文字后缀？

zhangcan0515

1最好可以加个判断就是要删除什么？自定义填写后在刷文字。

Andyhon

Try:
vl-string-*

zhangcan0515

Andyhon 发表于 2018-2-10 09:14
Try:
vl-string-*

帖子设置有无，已经修改了，麻烦师傅指点

mikewolf2k

用文字批量替换文字操作即可。

zhangcan0515

mikewolf2k 发表于 2018-2-11 09:40
用文字批量替换文字操作即可。

搞定了，谢谢你的思路，刚开始我就想到用替换，我的情况不符合。

Gu_xl

zhangcan0515 发表于 2018-2-11 21:00
搞定了，谢谢你的思路，刚开始我就想到用替换，我的情况不符合。

1. (defun c:tt ()
   
2.   (if (setq s (ssget '((0 . "*text"))))
   
3.     (progn
   
4.       (repeat (setq n (sslength s))
   
5.         (setq o (vlax-ename->vla-object (ssname s (setq n (1- n)))))
   
6.         (setq str (VL-LIST->STRING
   
7.                     (vl-remove-if
   
8.                       '(lambda (a) (or (< a 48) (> a 57)))
   
9.                       (VL-STRING->LIST (vla-get-textstring o))
   
10.                     )
    
11.                   )
    
12.         )
    
13.         (vla-put-TextString o str)
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt ()<br />   (if (setq s (ssget '((0 . "*text"))))<br />     (progn<br />       (repeat (setq n (sslength s))<br />         (setq o (vlax-ename->vla-object (ssname s (setq n (1- n)))))<br />         (setq str (VL-LIST->STRING<br />                     (vl-remove-if<br />                       '(lambda (a) (or (< a 48) (> a 57)))<br />                       (VL-STRING->LIST (vla-get-textstring o))<br />                     )<br />                   )<br />         )<br />         (vla-put-TextString o str)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

cyfdean

谢谢分享

78946299

Gu_xl 发表于 2018-2-12 11:37

24-A,前面都是数字，后面都是字码，,格式都是数字-字码。这类型，请教下如何变成字码(数字x)谢谢大佬指点。