[分享]：文本编辑工具chtts（免币）

SONG421

我要爱心

hmh888888

我在调整行距中测试，按提示操作，但执行后行距不发生改变，奇怪
我的是dt文字

xyp1964

最初由 hmh888888 发布
[B]我在调整行距中测试，按提示操作，但执行后行距不发生改变，奇怪
我的是dt文字 [/B]

“dt文字”是什么文字？！

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;调整行距
    
16. (DEFUN c:tzhj ()
    
17.   (cmdla0)
    
18.   (princ "\n选择文本: ")
    
19.   (if (null no4)
    
20.     (setq no4 1000)
    
21.   )
    
22.   (while (not (SETQ SS (ssget '((0 . "TEXT"))))))
    
23.   (WHILE (NOT (SETQ pt1 (getpoint "\n基点 : "))))
    
24.   (setq        no4  (ureal 7 "" "\n行距" no4)
    
25.         tlst (xyp-Sort-Text ss 1)
    
26.         n    -1
    
27.         y    (cadr pt1)
    
28.   )
    
29.   (princ "\n")
    
30.   (foreach tx tlst
    
31.     (progn
    
32.       (setq s1         (cdr tx)
    
33.             pt10 (car tx)
    
34.             pt1         (list (car pt10) (- y (* (setq n (1+ n)) no4)))
    
35.       )
    
36.       (command "move" s1 "" pt10 pt1)
    
37.       (princ ".")
    
38.     )
    
39.   )
    
40.   (princ (length tlst))
    
41.   (princ " 个文本行距调整完成!")
    
42.   (cmdla1)
    
43. )
    
44. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;调整行距<br /> (DEFUN c:tzhj ()<br />   (cmdla0)<br />   (princ "\n选择文本: ")<br />   (if (null no4)<br />     (setq no4 1000)<br />   )<br />   (while (not (SETQ SS (ssget '((0 . "TEXT"))))))<br />   (WHILE (NOT (SETQ pt1 (getpoint "\n基点 : "))))<br />   (setq        no4  (ureal 7 "" "\n行距" no4)<br />         tlst (xyp-Sort-Text ss 1)<br />         n    -1<br />         y    (cadr pt1)<br />   )<br />   (princ "\n")<br />   (foreach tx tlst<br />     (progn<br />       (setq s1         (cdr tx)<br />             pt10 (car tx)<br />             pt1         (list (car pt10) (- y (* (setq n (1+ n)) no4)))<br />       )<br />       (command "move" s1 "" pt10 pt1)<br />       (princ ".")<br />     )<br />   )<br />   (princ (length tlst))<br />   (princ " 个文本行距调整完成!")<br />   (cmdla1)<br /> )<br /> [/FONT]

ld80721

很不错,望提供标注修改方面的程序,比如标注对齐.

lengliqun

我CAD2002调整行距，按提示操作，但执行后行距不发生改变，奇怪?

yuiqi2cn

插件太多！下了几个回去学习一下！感谢楼主！

ynjzlzd

可惜不能用于多行文字的编辑,另外提个小建议,能否改进下,使用对话框方式.

雨箭风刀

要是能配上图标，就更容易识别了

liuyj

先让所有命令都能用了再说，比如引说明、说明引线、文本朗读等，都不能用。怎么回事？

xyp1964

最初由 liuyj 发布
[B]先让所有命令都能用了再说，比如引说明、说明引线、文本朗读等，都不能用。怎么回事？ [/B]

说得是，程序太多，编译时忘加入了。
修改后1楼下载。

yjtdkj

试用以后，成功！但有三点问题不知是可以改进？
1。在选择对象时把单行文字也选进去了，能不能过滤掉单行文字？
2。属性定义转文字以后文字位置变化（我的属性定义为中间对齐）。
3。属性定义转文字以后文字图层随了当前层，能不能不改变原有图层？

marcoyuwen

能否提供源码，让我等学习一下！！！

ruan_gdqf

不错的套件，用着挺好。
多谢楼主

NET-JOB

文件坏了 不能解压

xyp1964

最初由 NET-JOB 发布
[B]文件坏了 不能解压 [/B]

已重新上载。