找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 617|回复: 1

[编程申请] 字符打断,求改为批量执行

[复制链接]
发表于 2023-3-22 11:28:17 | 显示全部楼层 |阅读模式

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

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

×
(defun to (n)
  (cdr (assoc n (entget sn)))
)

(princ "\n本程序按空格拆分单行文字。   gysjy 2009.8.27")
(defun  c:nn( / h j l n newl p sn st stl str str1 strn sty)
  (command "undo" "g")
  (setq sn(entsel "\n选择要打断的文字:")
        p (cadr sn) sn (car sn)  n 0
  )
  (if (= "TEXT" (to 0))
    (progn
      (setq str (to 1) l (strlen str) sty (to 7)
            h (to 40) j (to 72) st "" newl l
      )
      (command "text" "s" sty p h "")
      (while (< n l)
        (setq n (1+ n) strn (substr str n 1))
        (if (= strn "+")
          (progn
            (setq st (strcat st " ") stl (strlen st))
            (if (= l newl)
              (command st)
              (if ( = st " ")(princ)(command "text" "" st))
            )
            (setq str1 (substr str (1+ n)) newl (strlen str1) st "")
          )
          (setq st (strcat st strn))
        )        
      )
      (command "text" "" st)
      (command "erase" sn "")
    )
    (princ "\n所选图元不是文字。")
  )
  (command "undo" "e")
  (princ)
)  
论坛内找的指定字符打断文本为多个单行文字,求大师改为批量执行。 另外现在打断后的文本出现移位,可否改为不改变最前面的文本位置。  对齐方式保持原文字的对齐方式
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-10-31 08:21:14 | 显示全部楼层
谢谢分享!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-25 15:37 , Processed in 0.386372 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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