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

kara0630 · 发表于 2009-7-15 23:24:50

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

kara0630 · 发表于 2009-7-16 00:13:57

我找到一个lsp，可以将所有点输出到txt文件中，但是不管怎么选择，输出的都是相反的顺序
比如从0，0到10，0的一条直线，用divide 命令10等分，产生9个点，分别是(10,0),(20,0).....(90,0)
不管怎么选择，每次输出的txt文件中，点的顺序都是从(90,0)输出到(10,0),
这是txt文件中的内容
90.0000 ; 0.0000 ; 0.0000
80.0000 ; 0.0000 ; 0.0000
70.0000 ; 0.0000 ; 0.0000
60.0000 ; 0.0000 ; 0.0000
50.0000 ; 0.0000 ; 0.0000
40.0000 ; 0.0000 ; 0.0000
30.0000 ; 0.0000 ; 0.0000
20.0000 ; 0.0000 ; 0.0000
10.0000 ; 0.0000 ; 0.0000
我怎么能让他从(10,0)点输出到(90,0)点？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下是那个lsp程序
---------------------------------
(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)
  (repeat (sslength points)
(if (= "OINT" (cdr (assoc 0 (entget (ssname points i)))))
   (setq c (cdr (assoc 10 (entget (ssname points i))))
   i (1+ i)
   )
)
(write-line
   (strcat (rtos (car c)) " ; "
   (rtos (cadr c)) " ; "
   (rtos (caddr c))
   ) file)
  )
  (close file)
  (Princ)
)

woaishuijia · 发表于 2009-7-16 05:15:04

6 R& c [! \% [% b4 N/ ~0 H
(defun c:O2TXT (/ file points c i) ;Points to Text9 P' ?" `: B: |0 t6 L/ M e. r
(setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w" ))1 o3 G6 L' t/ _. Y5 n
(setq points (ssget) i (1- (sslength points)))
: h0 S7 o7 v8 {( h+ b9 m
(repeat (sslength points)
4 Q& w1 F/ Y, ~ |
(if (= "POINT" (cdr (assoc 0 (entget (ssname points i)))))
3 m3 d; |3 P `- b7 k i& W3 y
(progn1 M0 ~( _' m/ o) y
(setq c (cdr (assoc 10 (entget (ssname points i))))); g, w z1 k* @) h: w
(write-line/ P( g, r; b& D+ `. W! z5 }$ P$ q0 ^
(strcat (rtos (car c)) " ; ". T. c8 s, _6 b; m, e- l
(rtos (cadr c)) " ; "+ ^# d1 l+ u; F$ q
(rtos (caddr c))" s7 I; `! b: K" w
)
( b5 i+ J- e0 L" Y+ q* ]! n/ f
file
/ G& [- M7 ]& l. J$ ]
)
/ {6 E m/ N% _8 \: a/ W
)" E7 L) C3 `! B/ P6 u% j+ L: ~
)
9 @% n; g$ H& I9 N5 t
(setq i (1- i))" ^& M& N" s" J
)2 d( Q! R* u, M1 Q
(close file)4 J2 x y4 R8 f1 O o3 Q
(Princ)
. A. b2 d8 J* y$ k" {
)
8 ?( y$ x% I7 \ \" [3 r

复制代码

kara0630 · 发表于 2009-7-16 22:04:14

太好了，多谢 woaishujia

maoyangmy · 发表于 2009-7-17 01:21:13

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

wyqlzx · 发表于 2009-10-9 22:13:09

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

		自动登录	找回密码
密码			注册

通知

[已答复] 如何将autocad里面的点的坐标输出到文本或者excel ？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块