AutoLisp 获得选中的单行文字的内容

代码如下：

 1 (defun c:yy()
 2     ;显示出选中的所有单行文字
 3     (setq myxz (ssget '((0 . "text"))))   ;获取仅有单行文字的选择集
 4     (setq wenzishu (sslength myxz))  ;获取选择集中图元的个数
 5     (setq i 0)
 6     (while (< i wenzishu)
 7         (setq tuyuanhao (ssname myxz i))   ;获取图元号
 8         (setq wenzi_str (cdr (assoc 1 (entget tuyuanhao))))
 9         ;entget 返回图元属性列表
10         ;assoc 返回单行文字的内容，为一点对，（1."字符串"）
11         ;cdr 去除点对第一个元素
12         (print wenzi_str)
13         (setq i (+ 1 i))
14     )
15     
16 
17     
18 )

 

posted @ 2017-09-23 20:46  钉钉铛铛  阅读(3148)  评论(0)  编辑  收藏  举报