[LISP程序]：Z轴坐标哪去了???

linhui12

本程序可将被选中二维多义线的节点绝对坐标以文本形式输出,希望大家帮忙改改让它支持三维多义线(也就是可以提取z坐标)
代码如下
(defun c:ouput ()
  (setvar "cmdecho" 0)
  (setq ffn (getfiled "选取文件" "" "txt" 1))
  (setq ff (open ffn "w"))
  (close ff)
  (princ "\n选取PLINE多义线...")
  (setq ss (ssget))
  (setq i 0)
  (setvar "pdmode" 33)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq endata (entget ssn))
    (setq n 0)
    (repeat (length endata)
      (setq pp (nth n endata))
      (setq key (car pp))
      (if (= key 10)
        (progn
          (setq x (cadr pp))
          (setq y (caddr pp))
          (command "point" (list x y))
          (setq ff (open ffn "a"))
          (princ x ff)
          (princ " " ff)
          (princ y ff)
          (princ "\n" ff)
          (close ff)
        )
     )
      (setq n (1+ n))
    )
    (setq ff (open ffn "a"))
    (princ "End\n" ff)
    (close ff)
    (setq i (1+ i))
  )
  (princ (strcat "\n文件写至=>" ffn))
  (prin1)
)