zhangcan0515 发表于 2018-2-9 23:47:51

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

本帖最后由 zhangcan0515 于 2018-2-10 18:56 编辑

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

Andyhon 发表于 2018-2-10 09:14:50

Try:
vl-string-*

zhangcan0515 发表于 2018-2-10 18:57:40

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

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

mikewolf2k 发表于 2018-2-11 09:40:03

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

zhangcan0515 发表于 2018-2-11 21:00:48

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

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

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

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

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

cyfdean 发表于 2020-10-13 09:48:15

谢谢分享{:1_1:}

78946299 发表于 2022-5-28 23:02:09

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


24-A,前面都是数字，后面都是字码，,格式都是数字-字码。这类型，请教下如何变成字码(数字x)谢谢大佬指点。
页: [1]
查看完整版本: 求助：如何批量删除单多行文字后缀？