(defun c:xzb (/)
(setvar "cmdecho" 0)
(setq ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)
ff (open ffn "w")
ss (ssget '((0 . "*LINE")))
i -1
)
(setq xh 0);xh代表序号
(repeat (sslength ss)
(setq ssdata (entget (ssname ss (setq i (1+ i)))) n 0)
(repeat (length ssdata)
(setq pp (nth n ssdata) key (car pp))
(if (= key 10)
(progn
(setq tx (strcat (itoa (setq xh(1+ xh))) "," (rtos (caddr pp) 2 3) "," (rtos(cadr pp) 2 3) "," " " "1"))
(write-line tx ff)
)
)
(setq n (1+ n))
)
)
(close ff)
(princ (strcat "\n 坐标写至=>" ffn))
(princ (strcat "\n 共提取" (itoa xh) "个坐标点"))
(princ)
)
这个程序输出从第一点到最后一点坐标，我想最后一行再次输出第一点坐标，怎么实现？？