关于autocad点的坐标

wwcomehere

我想描等直线图从而得到很多组点的坐标，但是一个一个记录太麻烦了，用LIST命令也比较麻烦，有没有办法把这些点的坐标直接自动形成一个坐标文件？

jdhszh

仅仅是个例子

(defun C:DR (/ cdate rq ct named filename name f s aa a z )
(setq named (vl-filename-base (getvar "dwgname")))
(setq filename (getvar "dwgprefix"))
(setq name (strcat filename named "点.dat"))
 (setq S (ssget (list (cons 0 "POINT"))))
(if s (progn
(setq f (open name "W"))
(setq aa (itoa (sslength s)))
(princ aa f)
(princ "\n" f)
(setq a 0)
(repeat (sslength s)
(setq z (entget (ssname s a)))
(setq pt1 (cdr (assoc 10 z)))
(setq z1 (caddr pt1))
(setq x1 (rtos (car pt1) 2 3 ))
(setq y1 (rtos (cadr pt1) 2 3 ))
(setq n (+ a 1))
(princ n f)
(princ ",," f)
(princ x1 f)
(princ "," f)
(princ y1 f)
(princ "," f)
(princ z1 f)
(princ "\n" f)
(setq a (1+ a ))
)
(close f)
(princ (strcat "一共有" (itoa a) "个点写入" name "文件内。"))
(princ)
)(alert"选择集不存在或输入有误！"))
)