画一条曲线，可以将曲线上的各点的坐标值输出不？

咕噜咕噜

   我用AutoCAD自定义坐标系，然后绘制曲线，我想将这条曲线上各点的坐标值输出成*.txt文件或用数据库形式输出，我只想得到该曲线上各点的x,y值。

   我将曲线制作成模块，可以输出*.txt文件，但是输出后只有一个插入点的x,y值，而且我还不晓得这个插入点是怎么来的。

  恳请各位给与指导，加急！！

ynbszhy

我想要获取坐标，只需采用List命令后，将获取的坐标信息复制，粘贴在记事体上，以*.TXT格式保存即可。

shh_188

用id命令,然后把坐标复制到txt文本中就可以了

qoufengyu

我上次也遇到过这样的问题,有朋友指点说,用ID可以查到,但要更精确点,还是另一位朋友说的,就是双出那条线,就会出现特性框栏,里面就在这条线的起点与终点的坐标值.你也可以试下

zxdcad

若想输出曲线上的点（不一定是控制点），有一个比较好的办法，先用定数（或定距）等分的方法作出曲线上的点，然后将这些点导出即可。

下面这个是我以前写的一个将点保存到文本文件中去的程序。（程序功能没有完善）

(defun C:POINTtofile (/ ffn ff pz ss leng index b1 tc ty xy x y z)
  (setvar "osmode" 0)
  (princ "程序功能：将点(POINT对象)的坐标写入文本文件")
  (setq ffn (getfiled "保存点(POINT对象)坐标到文本文件" "" "txt" 1))
  (setq ff (open ffn "w"))
  (setq pz (getvar "osmode"))
  (SETQ KDSS (STRCAT "\n需要将Z值写入文件吗?<Y/N>(N)"))
  (setq hd (strcase (getstring kdss)))
  (setq ss (ssget))
  (setq leng (sslength ss))
  (setq index 0)
  (setvar "CMDECHO" 0)
  (REPEAT leng
    (setq b1 (entget (ssname ss index)))
    (setq tc (assoc 0 b1))
    (setq ty (ssname ss index))
    (setq index (+ index 1))
    (cond
      ((= (cdr TC) "POINT")
       (setq xy (cdr (assoc 10 b1)))
       (setq x (car xy))
       (setq y (cadr xy))
       (setq z (caddr xy))
       (princ x ff)
       (princ " " ff)
       (princ y ff)

       (if (= hd "Y")
  (progn
    (princ " " ff)
    (princ z ff)

  )
       )

       (princ "\n" ff)
      )
    )
  )
  (princ "\n" ff)
  (close ff)
  (setvar "osmode" pz)
  (setvar "cmdecho" 1)
  (princ)
)

sony-lin

其实cad自带的命令 eattext 就有这个功能!!!