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

代码如下：

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

    
)