用指定字符分割文本，文本位置不变

newer · 发表于 2016-12-12 19:09:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2016-12-12 19:23 编辑

(defun c:XDTB_TEXTSPLITBY ( / i ss str x)
  (xdrx_begin)
  (xdrx_initssget "\n选取断开的字符串<退出>")
  (if (and
        (/= "" (setq str (getstring t "\n输入分割字符<退出>:")))
        (setq ss (xdrx_ssget '((0 . "text"))))
      )
    (progn
      (setq i 0)
      (mapcar
        '(lambda (x)
           (if (XD::Text:SplitBy x str t)
             (setq i (1+ i))
           )
         )
        (xdrx_pickset->ents ss)
      )
      (xdrx_prompt "\n分割了 " i " 个字符串.")
    )
  )
  (xdrx_end)
  (princ)
)

longer1000 · 发表于 2016-12-12 19:15:35

啥也不说了，感谢楼主分享哇！

gwpgcc · 发表于 2016-12-12 19:54:01

收到，试试看

whdong76 · 发表于 2017-2-7 08:33:24

啥也不说了，感谢楼主分享哇！

yenaidong123 · 发表于 2017-6-8 14:55:25

不错吧不错

Trouble12138 · 发表于 2023-3-3 19:46:08

能不能分割成两行，位置居中

账号		自动登录	找回密码
密码			立即注册

[文字] 用指定字符分割文本，文本位置不变

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。