求助，哪位高手帮忙改改该段代码？？？？

lpl

(defun c:tt()
   (setq olderror *error*)
     (setq *error* zxx_err)
  (if (not currdir)
         (setq currdir "d:\\")
     )
    (setq of(getfiled "输出文件名" currdir "xls" 1))
    (setq fp1(open of "w"))

  (setq currdir (strcat (vl-filename-directory of) "\\"))  ;记忆本次的路径
  (setq ss(ssget '((-4 . "<or")(0 . "text")(0 . "mtext")(-4 . "or>"))) )
  (SETQ t1 "桩号=")
  (setq a1 0)
  (setq nnn(sslength ss))  
  (repeat nnn
    (setq tt1 (cdr (assoc 1 (entget(ssname ss a1)))))
    (setq d1 (cdr (assoc 10 (entget(ssname ss a1)))))
    (print t1 fp1)
    (princ "\t" fp1)  (princ tt1 fp1)
    (princ "\t" fp1)  (princ "x=" fp1)
    (princ "\t" fp1)  (princ (rtos(cadr d1)2 4) fp1)
    (princ "\t" fp1)  (princ "y=" fp1)
    (princ "\t" fp1)  (princ (rtos(car d1)2 4) fp1)
    (setq a1(+ a1 1))
   )
   (close fp1)

  (princ)

)
(defun zxx_err(msg)

(setq *error* olderror)
( if fp1
     (close fp1)
)
(princ)
)

以上代码坐标标注结果输出不正确，并未按图形的形心坐标输出，哪位大侠帮忙改改，谢谢

lpl

没人气，自己顶下。。。。。。。。。。。。。。。。。

newbuser

来学习下，我也遇到了open的问题，不知阁下能否帮小弟个忙？(setq f (open "e:/ceshi/1.dwg" "w"))  (close f)运行完代码后，生成的图形文件无效。