怎样把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)
猜着编...

/ `) Z6 `. a9 ?8 V, r$ }( u; c
(progn ! _- r5 \5 T% z4 P% Q' D- p( ]) D% X: @; Z
(vl-load-com). F l# k( d6 V: V
(setq ss (ssget "X" '((0 . "LINE"))) ; (ssget "X" '((0 . "POINT")))
: s5 A1 ~. t' R W: J' K- `7 ^
nn (sslength ss)5 q) S- _* w6 i5 J! x
oFile "V:\\ExcelPoint.csv" ; 文件名可自订$ H2 b# S3 `7 M# ^* z
csv (open oFile "w") ! j7 f8 Y$ V: {- e6 F& u4 K
) + d/ p% B( u# N0 t
(while (setq ee (ssname ss (setq nn (1- nn)))), t. {2 b9 o2 X( l: ?" t. z1 @1 H# B
(mapcar
* V. T* q& c7 y) J
(function
: ?/ i7 q; R$ Q5 [6 x
(lambda (x) (princ (vl-princ-to-string x) csv) (princ (chr 10) csv)). [. C: [( u: s% O2 `* n
) : r9 M! c2 M# \2 P4 I( e3 q
(acet-geom-object-end-points ee)* t6 G$ q; l. r! |! a: R4 k3 \
)
)$ t# ]+ F4 c4 G0 k8 J
(close csv)
, m; V3 I3 [) k. V3 Q, V' ?( }' M
(command "Start" oFile)
6 L' }: m& K, p8 {' t h
). V5 t5 J( o" K# s2 p

复制代码

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

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里图形中大量的点坐标给找出来？