将单行文本改为多行文本的源程序

xofox

不用多说，一目了然，关键是文本宽度计算

----------------------------------代码--------------------------------------------------

;********单行文本转换为多行文本xofox**********
;en 图元名,endata 图元数据,tid 图元标志(若为TEXT则表示为单行文本),tt 文本,th文本高度
;pt 文本基点,ang 文本旋转角度,ttlen 文本大致长度,tstr 相对坐标形式的多行文本的另一点

(defun c:dm(/ s1 i en tid tt th pt ang ttlen twid tang tlen tstr)

  (setq sysvar (getvar "OSMODE")) ;获得并保存对象捕捉设置
  (setvar "OSMODE" 16384)  ;关闭对象捕捉

  (setq s1 (ssget '((0 . "TEXT") ))) ;选取单行文本，构造非空选择集
  (if (/= s1 nil) (print)
      (progn (setvar "OSMODE" sysvar) (exit) )
  )

  (setq i -1)
  (repeat (sslength s1)
     (setq i (+ i 1))
     (setq en (ssname s1 i))
     (setq endata (entget en))
     (setq tid (cdr (assoc 0 endata)))  ;判断是否单行文本
     (setq tt (cdr (assoc 1 endata)))  ;取得文字
     (setq th (cdr (assoc 40 endata)))  ;取得文字高度
     (setq pt (cdr (assoc 10 endata)))  ;取得文字插入点
     (setq ang (cdr (assoc 50 endata)))  ;取得文字旋转角度
     (setq ttlen (strlen tt))   ;取得文字长度
     (setq twid (* (* th 0.7) ttlen))  ;计算文字宽度
     (setq tang (/ (* 180 (+ ang (atan(/ th twid)))) pi))  ;计算多行文本对角点的旋转角度
     (setq tlen (sqrt (+ (* th  th) (* twid twid))))  ;计算多行文本对角线的长度
     (setq tstr (strcat "@" (rtos tlen) "<" (rtos tang)))  ;对角点的相对坐标
     (setq ang (/ (* ang 180) pi))  ;转换弧度为角度
     (command "-mtext" pt "h" th "r" ang tstr tt "")  ;在原位置以原角度原高度生成多行文本
     (entdel en)     ;删除单行文本 
   )

  (setvar "OSMODE" sysvar)  ;恢复对象捕捉设置
)

------------------------------------------------------------------------------------------------

xhq1954425

顶！先下来再说！支持！

暂时不用，但是对于新手来说定有启发性。

jaminth

有没有多行文本改为单行文本的程序?

mingvictor

谢谢楼主的分享，现在用不着，以后应该用得着！

carrot1983

坦白说，不好用。

phoenixdjq

回3楼，炸开就可以了

不需要程序呀

fawn_lgc

我已经把该功能移植到4.3版仿R14特性工具中。

4.3版添加双击启动编辑命令、点转标高、中心线、同心圆、单行文本转多行文本等功能，
并作了多处小改进：支持标注变量dimsoxd、添加对文字遮罩的支持等。
详细内容:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=61313

我也试图开发这样个程序，用entmake的方法写了一大堆程序，由于无法有效控制对齐点只好作罢。
你的程序简单实用我直接采纳。非常感谢！

含第三方程序的文件：

燃烧

entmake我试了也不行为什么啊？

东北-水地暖-温

正在找，偏偏就有；急人所急，多多多谢。

xyp1964

下面这个不知道算不算：