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))
    )
    

    
)