这时有一段代码，可供参考(写的时间太久了)

;;==================================================================== ;;

;将选择的多义线以每行一个坐标点对的形式输出到文件中

;;====================================================================

(defun c:OPL (/ Ss Ts n i Os Ns ent Fh sp Os0 Os1)        ;        08:35 2000-10-13

(prompt"\n ***** Output Pline(s) *****  08:35 2000-10-13") ;;

(prompt "\n************* 以填加形式打开文件 ************")

(setq i (getString "\n 为保存数据,请输入一个文件名(如:D:/TTTT.Dat)===>"))

(if (= "" i) (setq i "D:/TTTT.Dat"))

(setq sp (getString "\n 输入一个字符作为数据间的分隔符(如逗号或空格等)"))

(if (= "" sp) (setq sp " "))

;;        ( print i )                ; 文件名

(setq Fh( open i "a"))

(setq ss (ssget))                                ; 选择对象

(setvar "CMDECHO" 0)                        ; 执行过程没有回应

(setvar "LUPREC" 8)                        ; 设置小数位

(setq n (sslength ss))

(setq i 0)

;---------------------------------------------------------------

(repeat n

(setq    ent (entget(ssname ss i ))    i (+ i 1))

;;                ( print ent )                ; 显示当前表

(if (= "LWPOLYLINE" (cdr (assoc 0 ent))) ; 取对象名,判断该对象是否是 LWPOLYLINE

(Progn

;;--------------------------------------------------------

( setq Ns (cdr (assoc 90 ent )))                ; 取每条线的总点数

( princ "\n This Line Total Point is ===>")

( princ Ns )                ; 显示当前线的总点数

;;--------------------------------------------------------

( setq Os (cdr (assoc 70 ent )))        ; 取每条线的闭合状态(0不闭合，1闭合)

(setq Clo 0)                ; 设置非闭合线标致0

(if (Or (= OS 1) (= OS 129))                 ; 当前线是封闭线

(Progn

(setq Clo 1)        ; 设置闭合线标致1

(setq Ns (+ Ns 1))        ; 当前线的总点数加1

(princ "  ") (Princ Ns)                ; 显示当前线的总点数

)                                ; 用于在线尾增加线的首点，人为进行闭合。

)        ;当前线是封闭线，线节点数加1。

;;--------------------------------------------------------

( setq Os ( assoc 10 ent ))                ; 取第一点子表

( setq Ts 5        Os1 0)

(while (/= Os  ( nth Ts ent ))  (setq Ts( + Ts 1))    ); 确定第一点子表位置

(princ "\n" Fh)                ;;每条线空一行

;;----------------------------------------

(princ Ns Fh)                ;;每条线的总点数

(princ "\n" Fh)

;;----------------------------------------

;;----------------------------------------

(while  Os                 ;;是否是空子表

( setq Os ( nth Ts ent ))        ; 取每一点的子表

( setq Ts (+ Ts 4))

(if (= (car Os) 10)

(Progn

(setq Os0 (strcat (rtos(cadr Os)) "," (rtos(caddr Os))) )

(if (/= Os0 Os1) (princ (strcat Os0 "\n") fh ) )  ; 非重复点

(setq Os1 Os0)

);;;; Progn

);;;;  If

(If (= Clo 1)                        ; 是闭合线

(setq Clo 2    XY0 Os0)        ; 设置闭合线标致2，保存第一点坐标

;;(princ XY0)        ; 显示闭合点坐标

);;;; if

) ; while

(If (= Clo 2)                ; 是闭合线

(princ (Strcat XY0 "\n") fh ) ; 输出第一点

)                ; 在线尾增加线的首点，人为进行闭合。

) ; Progn

) ; end if

) ; repeat

(setvar "CMDECHO" 1)

(close fh)

)