[求助]求助一个根据距离提取坐标的程序

Gu_xl

3. (defun c:tt(/ en d dist pt pts)
4.   (vl-load-com)
5. (setq en (car(entsel "\n选择要计算的曲线：")))
6. (setq d (getreal "\n请输入间距："))
7.   (setq CurveLength (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en)))
8.   (setq dist d)
9.   (while (< dist CurveLength)
10.     (setq pt (vlax-curve-getPointAtDist en dist))
11.     (setq pts (cons pt pts))
12.     (setq dist (+ dist d))
13.     )
14.   ;;;坐标文件存放在我的文档，文件名 坐标.csv
15.   (setq filename (strcat (getvar "mydocumentsprefix") "\\坐标.csv"))
16.   (setq fn (open filename "w"))
17.   (foreach coors pts
18.     (princ (rtos (car coors) 1 3) fn)
19.     (princ "," fn)
20.     (princ (rtos (cadr coors) 1 3) fn)
21.     (princ "," fn)
22.     (princ "0.0" fn)
23.     (princ "\n" fn)
24.    
25.     )
26.   (close fn)
27.   (princ)
28. )

(defun c:tt(/ en d dist pt pts)   (vl-load-com) (setq en (car(entsel "\n选择要计算的曲线："))) (setq d (getreal "\n请输入间距："))   (setq CurveLength (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en)))   (setq dist d)   (while (< dist CurveLength)     (setq pt (vlax-curve-getPointAtDist en dist))     (setq pts (cons pt pts))     (setq dist (+ dist d))     )   ;;;坐标文件存放在我的文档，文件名 坐标.csv   (setq filename (strcat (getvar "mydocumentsprefix") "\\坐标.csv"))   (setq fn (open filename "w"))   (foreach coors pts     (princ (rtos (car coors) 1 3) fn)     (princ "," fn)     (princ (rtos (cadr coors) 1 3) fn)     (princ "," fn)     (princ "0.0" fn)     (princ "\n" fn)         )   (close fn)   (princ) )

tianyuan

坐标值的格式不对，现在导出的格式为“

3.96E+07

4.15E+06

能不能把导出坐标格式改为 例如     5876423.231  414958761.624

Gu_xl

将(princ (rtos (car coors) 1 3) fn) 和(princ (rtos (cadr coors) 1 3) fn)改为(princ (rtos (car coors) 2 3) fn)，(princ (rtos (cadr coors) 2 3) fn)，请去学习一下rtos函数的用法！要学会编程，首先要熟练编程语言的基础语法和基础函数！

tianyuan

谢谢Gu_xl

461045462

  谢谢Gu_xl

来学习了，从中又领会到了一些东西

谢谢楼上与楼主

VBALISPER

今天看到这个帖子,也来好好的学习了一下.