[求助]：输出单行文字的“文字值”及其坐标X和Y为文本文件的程序运行时出现找不到函数

hzygs430

求助：输出DWG图形中单行文字的“文字值”及其坐标X和Y为文本文件的程序

一cad图形中有许多地物的单行文字编号，如J1,J2,J3......，现求一程序：选中这些文字后，能自动把各文字的“文字值”及其X和Y坐标输出为一文本文件，格式如下：



J1,J1的X坐标,J1的Y坐标

J2,J2的X坐标,J2的Y坐标

J3,J3的X坐标,J3的Y坐标

......

以空格分隔也可以。

谢谢！！！
;;;文本写出文件

(defun c:test ()

  (setq        ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)

        ff  (open ffn "w")

        ss  (ssget '((0 . "*TEXT")))

        i   -1

  )

  (while (setq s1 (ssname ss (setq i (1+ i))))

    (setq txt (dxf 1 (entget s1))

          pt  (dxf 10 (entget s1))

          tx  (strcat txt

                      " "

                      (rtos (car pt) 2 3)

                      " "

                      (rtos (cadr pt) 2 3)

                      " "

                      (rtos (caddr pt) 2 3)

              )

    )

    (write-line tx ff)

  )

  (close ff)

  (princ (strcat "\n 坐标写至=>" ffn))

)

yshf

因为程序中就没有dxf函数，在程序中加入下面dxf函数，也许能解决问题：
(defun dxf(n db)
   (cdr (assoc n db))
)