[求助]：求助：输出DWG图形中单行文字的“文字值”及其坐标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坐标
......
以空格分隔也可以。
这位朋友提供的程序运行时出现提示：no function definition: DXF

zxq0220

[php]
(DEFUN C:WTXTPT ()
(SETVAR "CMDECHO" 0)
(SETQ NMM (IF NMM NMM ""))
(SETQ NMM (GETFILED "File Name :" NMM "txt" 9))
(IF (SETQ F (OPEN NMM "w")) (PROGN
  (PRINC "\nSelect Text : ")
  (IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
   (SETQ SL (SSLENGTH SS) I 0)
   (REPEAT SL
    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
    (SETQ TP (CDR (ASSOC 1 ENT))
          PT (CDR (ASSOC 10 ENT))
          X (CAR PT)
          Y (CADR PT))
    (PRINC TP F) (PRINC "," F)
    (PRINC X F) (PRINC "," F)
    (PRINC Y F) (PRINC "\n" F)
   )
  ))
  (CLOSE F)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]