如何得到一个闭合的线段中的文本对象？

cgboy88

这个闭合的线段可以是任何的形状。如果得到这个对象中的文本？

最好是VBA程序，谢谢！

xyp1964

2. (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. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]|;
14. ;;;闭合线段中的文本对象
15. (defun c:test ()
16.   (CMDLA0)
17.   (setq s1    (entsel "\n选择 : ")
18. ptlst (UPTLST (car s1))
19.   )
20.   (command "select" "WP")
21.   (while (setq pt1 (car ptlst))
22.     (setq ptlst (cdr ptlst))
23.     (command pt1)
24.   )
25.   (command "" "")
26.   (setq ss (ssget "P" '((0 . "TEXT"))))
27.   (princ "\n选择集: !ss")
28.   (CMDLA1)
29. )

(load "xyp_lib") ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]|; ;;;闭合线段中的文本对象 (defun c:test ()   (CMDLA0)   (setq s1    (entsel "\n选择 : ") ptlst (UPTLST (car s1))   )   (command "select" "WP")   (while (setq pt1 (car ptlst))     (setq ptlst (cdr ptlst))     (command pt1)   )   (command "" "")   (setq ss (ssget "P" '((0 . "TEXT"))))   (princ "\n选择集: !ss")   (CMDLA1) )