如何将autocad里面的点的坐标输出到文本或者excel ？

kara0630

一条样条曲线，我用divide命令把它分成100段，产生了101个点（也可能是99个），然后我把原来的样条曲线删除，剩下的一堆点，我想把这些点的坐标输出到txt文件或者excel文件，怎么弄？
http://lh4.ggpht.com/_lySQt_wVnc0/Sl3zw0z3TLI/AAAAAAAAAD4/A-WwUfd9_ts/s1152/Snap1.jpg

kara0630

我找到一个lsp，可以将所有点输出到txt文件中，但是不管怎么选择，输出的都是相反的顺序
比如从0，0到10，0的一条直线，用divide 命令10等分，产生9个点，分别是(10,0),(20,0).....(90,0)
不管怎么选择，每次输出的txt文件中，点的顺序都是从(90,0)输出到(10,0),
这是txt文件中的内容
# A0 m3 z' E: {90.0000 ; 0.0000 ; 0.0000
80.0000 ; 0.0000 ; 0.0000
; ?4 G; Q7 h# U70.0000 ; 0.0000 ; 0.0000
60.0000 ; 0.0000 ; 0.0000
% _2 l$ o6 l' H. A6 o50.0000 ; 0.0000 ; 0.0000
- a2 w4 _! d- \40.0000 ; 0.0000 ; 0.0000
- p/ R# j/ C. ~% ^- r30.0000 ; 0.0000 ; 0.0000
20.0000 ; 0.0000 ; 0.0000
10.0000 ; 0.0000 ; 0.0000
我怎么能让他从(10,0)点输出到(90,0)点？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# M4 _" R: ^  f( B" N* ?, O( P- z* j以下是那个lsp程序
1 H8 K7 X8 v' W5 \3 c/ [4 X---------------------------------
2 e9 W3 l) Z2 X9 h+ [(defun cO2TXT (/ file points c i) Oints to TeXT
  (setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w"))
  (setq points (ssget) i 0)
5 [* _/ m& u$ h6 o* E5 c  (repeat (sslength points)
    (if (= "OINT" (cdr (assoc 0 (entget (ssname points i)))))
& x; Z& n* H& F1 n$ L: E. X      (setq c (cdr (assoc 10 (entget (ssname points i))))
     i (1+ i)
      )
    )
* ^6 T/ ?# i+ y8 R) g- N    (write-line
      (strcat (rtos (car c)) " ; "
       (rtos (cadr c)) " ; "
       (rtos (caddr c))
& c. w6 t9 T/ Z1 D  ^# d8 d" h6 ?      ) file)
$ z% x, t4 [( [& }  )
% ^+ @  P( O+ L7 R( \) N2 y  (close file)
& F+ X# F/ G. m8 v6 s6 I  (Princ)
)

woaishuijia

1. 
   
2. (defun c:O2TXT (/ file points c i) ;Points to Text
   ( l9 `8 n+ j3 t
3.   (setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w"  ))
   
4.   (setq points (ssget) i (1- (sslength points)))
   / }- T) l2 p, J* q+ I
5.   (repeat (sslength points)
   
6.     (if (= "POINT" (cdr (assoc 0 (entget (ssname points i)))))
   
7.       (progn
   
8.         (setq c (cdr (assoc 10 (entget (ssname points i)))))
   
9.         (write-line
   
10.           (strcat (rtos (car c)) " ; "
    
11.                   (rtos (cadr c)) " ; "
    
12.                   (rtos (caddr c))
    9 z4 e0 ^) x1 o. V2 H
13.           )
    4 N, H) O# g4 u* Z0 s5 G; g) y
14.           file
    
15.         )
    
16.       )
    / M$ q% d$ A: P: c' `/ \( D
17.     )
    0 S; _- B/ F$ L$ Z) o+ u
18.     (setq i (1- i))
    5 I( [7 T- g" A2 Z
19.   )
    " K/ I; |; x% p' S7 d
20.   (close file)
    
21.   (Princ)
    
22. )
    ( y. ^, z8 w: N6 N# S

复制代码

kara0630

太好了，多谢 woaishujia

maoyangmy

是将循环控制变量该了一下

wyqlzx

新手,学习过程中,很感谢分享.