明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 553|回复: 5

[提问] 求助:如何批量删除单多行文字后缀?

[复制链接]
发表于 2018-2-9 23:47 | 显示全部楼层 |阅读模式
本帖最后由 zhangcan0515 于 2018-2-10 18:56 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-2-10 09:14 | 显示全部楼层
Try:
vl-string-*
 楼主| 发表于 2018-2-10 18:57 | 显示全部楼层

帖子设置有无,已经修改了,麻烦师傅指点
发表于 2018-2-11 09:40 | 显示全部楼层
用文字批量替换文字操作即可。
 楼主| 发表于 2018-2-11 21:00 | 显示全部楼层
mikewolf2k 发表于 2018-2-11 09:40
用文字批量替换文字操作即可。

搞定了,谢谢你的思路,刚开始我就想到用替换,我的情况不符合。
发表于 2018-2-12 11:37 | 显示全部楼层
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. )

评分

参与人数 1明经币 +1 金钱 +20 收起 理由
zhangcan0515 + 1 + 20 赞一个!已经有了,不过你这个比我那个太简.

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-10-22 19:37 , Processed in 0.228187 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表