画一条曲线，可以将曲线上的各点的坐标值输出不？
<P> 我用autocad自定义坐标系，然后绘制曲线，我想将这条曲线上各点的坐标值输出成*.txt文件或用数据库形式输出，我只想得到该曲线上各点的x,y值。</P><P> 我将曲线制作成模块，可以输出*.txt文件，但是输出后只有一个插入点的x,y值，而且我还不晓得这个插入点是怎么来的。</P>
<P> 恳请各位给与指导，加急！！</P> 我想要获取坐标，只需采用List命令后，将获取的坐标信息复制，粘贴在记事体上，以*.TXT格式保存即可。 用id命令,然后把坐标复制到txt文本中就可以了 我上次也遇到过这样的问题,有朋友指点说,用ID可以查到,但要更精确点,还是另一位朋友说的,就是双出那条线,就会出现特性框栏,里面就在这条线的起点与终点的坐标值.你也可以试下 <P>若想输出曲线上的点（不一定是控制点），有一个比较好的办法，先用定数（或定距）等分的方法作出曲线上的点，然后将这些点导出即可。</P>
<P>下面这个是我以前写的一个将点保存到文本文件中去的程序。（程序功能没有完善）</P>
<P>(defun C:POINTtofile (/ ffn ff pz ss leng index b1 tc ty xy x y z)<BR> (setvar "osmode" 0)<BR> (princ "程序功能：将点(POINT对象)的坐标写入文本文件")<BR> (setq ffn (getfiled "保存点(POINT对象)坐标到文本文件" "" "txt" 1))<BR> (setq ff (open ffn "w"))<BR> (setq pz (getvar "osmode"))<BR> (SETQ KDSS (STRCAT "\n需要将Z值写入文件吗?<Y/N>(N)"))<BR> (setq hd (strcase (getstring kdss)))<BR> (setq ss (ssget))<BR> (setq leng (sslength ss))<BR> (setq index 0)<BR> (setvar "CMDECHO" 0)<BR> (REPEAT leng<BR> (setq b1 (entget (ssname ss index)))<BR> (setq tc (assoc 0 b1))<BR> (setq ty (ssname ss index))<BR> (setq index (+ index 1))<BR> (cond<BR> ((= (cdr TC) "POINT")<BR> (setq xy (cdr (assoc 10 b1)))<BR> (setq x (car xy))<BR> (setq y (cadr xy))<BR> (setq z (caddr xy))<BR> (princ x ff)<BR> (princ " " ff)<BR> (princ y ff)</P>
<P> (if (= hd "Y")<BR> (progn<BR> (princ " " ff)<BR> (princ z ff)</P>
<P> )<BR> )</P>
<P> (princ "\n" ff)<BR> )<BR> )<BR> )<BR> (princ "\n" ff)<BR> (close ff)<BR> (setvar "osmode" pz)<BR> (setvar "cmdecho" 1)<BR> (princ)<BR>)</P> <P>其实cad自带的命令 eattext 就有这个功能!!!</P>
页:
[1]