将autocad中坐标输出文本文件的lisp

fff

(defun c:zb2txt1()
(setq ffn (getfiled "坐标写入文本文件" "c:/坐标" "txt" 1))
(setq opf (open ffn "w"))
(setq ss (ssget '((0 . "*LINE"))))
(setq kg " ")
(setq txt (strcat "角点" kg "X坐标" kg "Y坐标"))
(write-line txt opf)
;(princ (strcat "角点" kg "X坐标" kg "Y坐标") opf)
(setq i -1)
(setq key 10)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))
(setq count 1)
(foreach xy ent
(if (eq (car xy) key)
(progn
(setq pe (cdr xy))
(setq x (rtos(cadr pe)2 3))
(setq y (rtos(car pe)2 3))
(write-line (strcat (itoa count) kg x kg y) opf)
;(princ "\n" opf)
;(princ (strcat (itoa count) kg x kg y) opf)
(setq count (1+ count))
)
)
)
)

(close opf)
(princ(strcat "\n坐标已写入文本: " ffn))
(princ)
)