如何得到一个闭合的线段中的文本对象？
<P>这个闭合的线段可以是任何的形状。如果得到这个对象中的文本？</P><P>最好是VBA程序，谢谢！</P> (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屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|;
;;;闭合线段中的文本对象
(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)
)
页:
[1]