单行文字转多行文字

linshiyin2

此为常青藤，谁能写个lisp的方法。

linshiyin2

2. (defun C:test (/ EN ENT LST LST1 OLDAUN OLDOSM PT SS STR TXT ZG)
   
3.   (setq oldaun (getvar "aunits")
   
4. oldosm (getvar "osmode"))
   
5.   (setvar "aunits" 3)   ;设为弧度
   
6.   (setvar "osmode" 0 )                   ;设为无捕捉方式
   
7.   (setq ss (ssget '((0 . "TEXT"))))
   
8.    (if (not ss)                     ;图中没有插入各种符号
   
9.     (progn (alert " 没有选中文本")
   
10.            (exit))
    
11.     (progn
    
12.       (while (> (sslength ss) 0)
    
13. (setq ent (entget(setq en (ssname ss 0))));取出第一个数据
    
14. (setq pt (cdr(assoc 10 ent))
    
15.       txt (cdr(assoc 1 ent))
    
16.       zg (cdr(assoc 40 ent))
    
17.       lst (cons (list pt txt zg) lst);;获取表
    
18.       ss (ssdel en ss))
    
19. (entdel  en));删除图元
    
20.       (setq lst1 (vl-sort lst
    
21.          (function (lambda (e1 e2)
    
22.                 (< (cadr(car e1)) (cadr(car e2))) ) ) ));根据y坐标排序
    
23.       (setq str "")
    
24.       (foreach e lst1
    
25. (setq str (strcat (cadr e) "\n" str))
    
26. (setq pt (car e);插入点
    
27.     zg (caddr e)));字高
    
28.       (setq pt (polar pt (* pi 0.5) zg))
    
29.       (command "MTEXT" pt "H" zg "W" 0 str "")))
    
30.   (setvar "aunits" oldaun)   ;设为弧度
    
31.   (setvar "osmode" oldosm )
    
32.   (princ)
    
33.   )

(defun C:test (/ EN ENT LST LST1 OLDAUN OLDOSM PT SS STR TXT ZG)<br />   (setq oldaun (getvar "aunits")<br /> oldosm (getvar "osmode"))<br />   (setvar "aunits" 3)   ;设为弧度<br />   (setvar "osmode" 0 )                   ;设为无捕捉方式<br />   (setq ss (ssget '((0 . "TEXT"))))<br />    (if (not ss)                     ;图中没有插入各种符号<br />     (progn (alert " 没有选中文本")<br />            (exit))<br />     (progn<br />       (while (> (sslength ss) 0)<br /> (setq ent (entget(setq en (ssname ss 0))));取出第一个数据<br /> (setq pt (cdr(assoc 10 ent))<br />       txt (cdr(assoc 1 ent))<br />       zg (cdr(assoc 40 ent))<br />       lst (cons (list pt txt zg) lst);;获取表<br />       ss (ssdel en ss))<br /> (entdel  en));删除图元<br />       (setq lst1 (vl-sort lst<br />          (function (lambda (e1 e2)<br />                 (< (cadr(car e1)) (cadr(car e2))) ) ) ));根据y坐标排序<br />       (setq str "")<br />       (foreach e lst1<br /> (setq str (strcat (cadr e) "\n" str))<br /> (setq pt (car e);插入点<br />     zg (caddr e)));字高<br />       (setq pt (polar pt (* pi 0.5) zg))<br />       (command "MTEXT" pt "H" zg "W" 0 str "")))<br />   (setvar "aunits" oldaun)   ;设为弧度<br />   (setvar "osmode" oldosm )<br />   (princ)<br />   )

linshiyin2

nuts26173802 发表于 2012-12-30 18:37
cad有這個功能 是text2mtext

啥功能呢，指点一下，是什么命令？

meja

linshiyin2 发表于 2013-1-10 17:14

这个实现了原位合并，非常适合那些施工说明被炸开的图纸

zyhandw

原来是广告

nuts26173802

cad有這個功能 是text2mtext（X） 記錯了------誤人子弟了
工具条：Express Text Tools 菜单：Express > Text 快捷工具中的文字命令，可用于处理文字和属性

TXT2MTXT

该命令可将一行或多行文本转换为段落文本。其命令提示是：

Command: TXT2MTXT
Select text objects or press ENTER to set Options:
Select objects:选择需转换的文本对象

http://www.mjtd.com/caduse/info-49-35.html

小风吹大树

看不出来 哥都是复制的。。

无语且听吟

未知命令“TEXT2MTEXT”。按 F1 查看帮助。
用不了,别误人子弟

zhengxiansz

linshiyin2 发表于 2013-1-10 17:14

为什么字体的样式改变了呀。如果还是原来的字体样式要好点。

幸福是真

linshiyin2 发表于 2013-1-10 17:14

字体位置会跑掉啊，能不能在原位不动啊

zyhandw

3楼说的应该是“txt2mtxt”