怎样把CAD里图形中大量的点坐标给找出来？

湘湘在线 · 发表于 2011-7-23 09:44

怎样把CAD里图形中大量的点坐标给找出来？用ID只能一个个找出来，我想把所有的点导到EXCEL里面！请大家帮忙，提供一下您宝贵意见！谢谢！

boilu · 发表于 2011-7-27 10:33

ctrl+A,
list
自己筛选就好了

manycomputer · 发表于 2011-7-27 11:10

我也想知道······

提倡盗版 · 发表于 2011-12-23 14:31

我也想学这一点。

Camello · 发表于 2011-12-23 16:40

本帖最后由 Camello 于 2011-12-23 16:53 编辑

因未见图样...

so 单单以 Line 图元为例 (CAD 2000+ & ET)
猜着编...

0 p5 ?7 Y# ]1 w2 E0 a6 \+ \3 }
(progn # ?3 }5 _) g* L3 @1 S. C
(vl-load-com)
+ d2 ^" q# a, _" X: E1 G+ W
(setq ss (ssget "X" '((0 . "LINE"))) ; (ssget "X" '((0 . "POINT")))
* }1 t7 Y/ R% x7 [+ F: Y! W
nn (sslength ss)
$ B" b8 h; X1 U" Z2 x) Y! L
oFile "V:\\ExcelPoint.csv" ; 文件名可自订& s+ o4 w. G2 B- g
csv (open oFile "w") * y, B" o! s. H
) 2 U1 w3 n! ~. V9 @4 ?* m4 t8 T0 @
(while (setq ee (ssname ss (setq nn (1- nn))))
0 R! T' j8 X, h8 ]# Z$ S
(mapcar
, O% j* d; y1 u( K3 q& ?5 C
(function
3 L" j! E- E* @1 L0 ]& M
(lambda (x) (princ (vl-princ-to-string x) csv) (princ (chr 10) csv))& q" f/ q1 q7 N5 G3 r
) " S" j; |/ `5 I$ K
(acet-geom-object-end-points ee)- f# O9 ]; f+ ?% a
) 3 }3 ]- l7 B0 H7 ]) @9 e) i2 o" T
)3 ]3 E5 [2 F3 z
(close csv)
: f( B4 V: X5 i2 D) l; V
(command "Start" oFile)
/ O" H6 @5 Y5 h8 `0 B& C( ]
)
$ C" Y9 x: E |# l! J; g

复制代码

直接贴入命令列 (回车) .....

zdmvp514 · 发表于 2011-12-23 17:05

用cass软件

zgkddengfeng · 发表于 2012-1-14 20:29

五楼的方法我试过了，挺有用的，谢了

xuefei1986 · 发表于 2012-1-17 10:46

哇塞，还要编程啊，太牛了，我都不记的了么。悲哀啊！

xzyf · 发表于 2012-2-8 11:05

用多段线先把点连起来，再选择多段线，用list命令打开，就有坐标了。

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

[求助] 怎样把CAD里图形中大量的点坐标给找出来？