[编程申请]：数字付高程值并输出

z954134

请高手帮忙
现有一图（附件），里面都是数字，数字本身的高程信息都是0，现要将数字本身的数值赋予给高程，让高程信息和他本身显示的数值相同。并将数据以TXT格式输出，要求格式为Y坐标,X坐标,高程
先谢了！

AyungerStudio

(defun c:SetT(/ ss1 i entName1 entData1 strTXT XYZ)
        (setq ss1 (ssget '((0 . "TEXT"))))
        (if ss1
                (progn
                        (setq i 0)
                        (while (< i (sslength ss1))
                                (setq entName1 (ssname ss1 i))
                                (setq entData1 (entget entName1))
                                (setq strTXT (cdr (assoc 1 entData1)))
                                (setq XYZ (cdr (assoc 10 entData1)))
                                (setq entData1 (subst (cons 10 (list (car XYZ) (cadr XYZ) (distof strTXT))) (assoc 10 entData1) entData1))
                                (entmod entData1)
                                (entupd entName1)
                                (setq i (+ i 1))
                        );end _while i
                );end_progn
        );end_if
);end_defun
(princ "\nSet TEXT objects Z-coords value with it's text contention funcision, command: SetT")

z954134

用了一下，确实不错，可以将高程信息添加进去了，可没有输出TXT文件啊，这个要怎么弄呢？