如何顺序捕捉曲线上各点查询其的坐标值并顺序输出？

qinxz

如何顺序捕捉曲线上各点查询其的坐标值并顺序输出？有人可编成Lisp程序直接选取所有点，而后顺序输出吗？
8 m8 B' {6 V+ V! [8 F: n% K  @我现在是有一个有直线、圆弧、多段线和样条曲线连接的封闭线，我想把他们变成一条线，在他们上面任意等分后将等分点的坐标值顺序输出成TXT文件（无论顺时针还是逆时针，无论起点从哪一点开始）。

[ 本帖最后由 qinxz 于 2009-3-19 11:28 编辑 ]

maoyangmy

用List命令，然后按F2调出文本 窗口，将坐标内容复制出来即可

woaishuijia

1. (defun c:AAA()
   2 l" c$ T* z0 ^! h) i- _: B
2. (setq a(entsel "\n 选择样条曲线:" ))
   7 R) o0 J. H9 T: _: E3 Q  `% k
3. (setq b(car a));返回图元名称
   % `8 k8 i5 w- B: Z1 i
4. (setq c(entget b));返回样条曲线属性列表
   
5. (setq d(assoc 74 c));返回样条曲线拟合点数量列表
   ) J  Z3 W- k: s. Q* {* g
6. (setq e(cdr d));返回样条曲线拟合点数量
   
7. (setq f(assoc 11 c));返回样条曲线第一个拟合点坐标列表
   
8. (setq g(member f c));返回样条曲线第一个拟合点坐标列表（含）以后的所有属性列表
   " ~) X( n# u4 n4 w2 v: q
9. (repeat e ;按样条曲线拟合点数量循环取出各点坐标
     j$ H, W8 ]5 ^
10. (setq h(car g));取出拟合点坐标列表
    
11. (setq g(cdr g));原所有坐标列表中去除该拟合点坐标列表
    ) ^( z, ?% T1 w4 E* D+ |
12. (setq h(cdr h));该拟合点坐标列表中去除群码
    - g  z  T  L6 j+ y- R+ r& [
13. (setq x(car h));返回该点X坐标
    2 n) I4 X+ R; ^4 C+ s1 w& Z
14. (setq y(cadr h));返回该点Y坐标
    ; s  W+ {* k& F$ r; t
15. (setq z(caddr h));返回该点Z坐标
    6 p* n5 a2 C* H* q
16. (print)
    0 ?4 M' ?( s3 S* e
17. (princ (strcat (rtos x 2) "," (rtos y 2) "," (rtos z 2)));坐标值转化为字符串后合并输出到命令行
    - {! ]1 q3 {4 c& u. J% V# j  ]7 g" y
18. )
    8 y% i& C7 A, z" o# a6 A
19. (princ)
    
20. )

复制代码

qinxz

多谢大虾！厉害！用了一下真好用。
% [6 a+ [/ V9 I9 U+ O; R我还有点问题请帮忙！我现在是有一个有直线、圆弧、多段线和样条曲线连接的封闭线，我想把他们变成一条线，在他们上面任意等分后将等分点的坐标值顺序输出成TXT文件（无论顺时针还是逆时针，无论起点从哪一点开始）。请再帮一次忙，提前感谢大虾了！

qinxz

谢谢！我现就是用您的办法，将结果交给别人，他们编了一个VB程序筛选出坐标并顺序输出，感觉到太麻烦，有时害怕没选全点（我是将线均分后查询的点坐标）。

great829

请问有没有VC++编的该类程序，非常感谢

songshilei

3楼的朋友能不能说的更明白一点啊？
我有点不会用！