[原创]：如何把CAD中的点的坐标输出到文本文件

yuanxiaoxiao

我是一测量工程师，经常用到坐标，请问如何把CAD中的点的坐标输出到文本文件。我一般都是先将DWG文件导入到TRIMBLE TGO软件中，再编辑点名，再导出到自定义的TXT文件中。不知各位有无其它办法？谢谢！

z000000

你是要把坐标值输出保存到TXT文档吗/如果是,你可以试下

(defun c:zbdc()
  (setvar "cmdecho" 0)
  (setq ffn (getfiled "选取文件" "" "txt" 1))
  (setq ff (open ffn "w"))
  (close ff)
  (princ "\n选择多义线")
  (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 p (trans (cdr pp) 0 1))
   (setq a (car p) )
   (setq b (cadr p))
   ;(command "point" (list a b))
   (setq x (rtos a 2 3))
          (setq y (rtos b 2 3))
   (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)
  )

老人小孩

我不会编程序，用的是笨办法，先使用list命令将所有点的坐标显示出来，然后“复制—粘贴”，不好意思，太笨了，不如楼上的办法好。*-*p

lxch

2楼的程序是把多义线上的坐标值输出保存到TXT文档，非常好用。

yfsj

2楼是高手啊，编程太复杂了。

ypt1234

二楼的程序把文件打开就关闭,又往文件里写数据,可以吗?

土豆王子

list,将所有点的坐标显示出来，copy至文本文档，用excel打开，选择“分隔符号”，然后把空格，还有其他的一些用的上的选上或者填在“其他”里面，然后删除没用的行和列，就可以把坐标输出了。
也可以用ultraedit的行列模式

lizagen

我认为7楼的办法不错，以前只是将测量仪器里面的数据导入到excel表格里面是这么做的，怎么就没有想到CAD里面的数据也可以这么做呢？看来还得努力学习再学习啊！谢谢！！！