[求助]：如何取得当前图中所有的文字样式

marcoyuwen

如何取得当前图中所有的文字样式呢，用LISP实现。请各位高手指点。预谢！！！

xyp1964

2. [FONT=courier new](load "xyp_lib");版本 V.20060314
   
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. ★通用函数下载地址：
    
12. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
13. |;
    
14. 
    
15. 
    
16. ;;; xyp-get-tblnext
    
17. ;;; 获得特定符号表的列表
    
18. ;;; (xyp-get-tblnext 符号名)                  
    
19. ;;; 有效符号表名称为Layer,Ltype,Viewx,Style,Block,Appid,Ucs,Dimstyle和Vport
    
20. 
    
21. (xyp-get-tblnext "Style")
    
22. [/FONT]

[FONT=courier new](load "xyp_lib");版本 V.20060314<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 /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> <br /> ;;; xyp-get-tblnext<br /> ;;; 获得特定符号表的列表<br /> ;;; (xyp-get-tblnext 符号名)                  <br /> ;;; 有效符号表名称为Layer,Ltype,Viewx,Style,Block,Appid,Ucs,Dimstyle和Vport<br /> <br /> (xyp-get-tblnext "Style")<br /> [/FONT]

marcoyuwen

2楼楼主很有水平，不知可否列出LISP原码呢？期待中......

xyp1964

2. [FONT=courier new];;;获得特定符号表的列表
   
3. ;;;有效符号表名称为Layer、Ltype、Viewx、Style、Block、Appid、Ucs、Dimstyle和 Vport
   
4. (defun xyp-get-tblnext (table-name / lst d)
   
5.   (while (setq d (tblnext table-name (null d)))
   
6.     (setq lst (cons (dxf 2 d) lst))
   
7.   )
   
8.   (reverse lst)
   
9.   lst
   
10. )[/FONT]

[FONT=courier new];;;获得特定符号表的列表<br /> ;;;有效符号表名称为Layer、Ltype、Viewx、Style、Block、Appid、Ucs、Dimstyle和 Vport<br /> (defun xyp-get-tblnext (table-name / lst d)<br />   (while (setq d (tblnext table-name (null d)))<br />     (setq lst (cons (dxf 2 d) lst))<br />   )<br />   (reverse lst)<br />   lst<br /> )[/FONT]

marcoyuwen

xyp1964,非常感谢，但DXF未定义，我已知悉DXF。

wkai

vlisp 代码:

2. 
   
3.   (setq A (vlax-get-acad-object))
   
4.   (setq B (vlax-get A 'ACTIVEDOCUMENT))
   
5.   (setq C (vlax-get B 'TEXTSTYLES))
   
6.   (vlax-for N  C
   
7.   .......
   
8.   )
   

<br />   (setq A (vlax-get-acad-object))<br />   (setq B (vlax-get A 'ACTIVEDOCUMENT))<br />   (setq C (vlax-get B 'TEXTSTYLES))<br />   (vlax-for N  C<br />   .......<br />   )<br />

marcoyuwen

万分感谢，受益匪浅！！！