明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 18640|回复: 15

如何将CAD图形中点的坐标输出到excel或txt、数据库中

  [复制链接]
发表于 2006-4-4 22:23 | 显示全部楼层 |阅读模式

如何将CAD图形中点的坐标输出到excel或txt、数据库中,请高手赐教

发表于 2006-4-5 09:27 | 显示全部楼层

我也想知道~`~

 楼主| 发表于 2006-4-5 11:19 | 显示全部楼层
怎么没人声援一下阿,AUTOCAD有没有这个功能阿
发表于 2006-4-6 23:45 | 显示全部楼层
我也是很久就想知道了
发表于 2006-4-12 13:31 | 显示全部楼层

AutoCAD中没有此功能,但只需进行简单的开发即可实现此需求。

发表于 2006-11-16 11:23 | 显示全部楼层

你用以下程序试一下!

(defun C:dd ()
(setq ss2 (ssget '((0 . "MTEXT"))))
  (setq n 0)                      ;;;;将索引号初始为0.
(setq shitigeshu (sslength ss2)) ;;;返加选择集中实体个数。
(repeat shitigeshu
(setq stb (entget (ssname ss2 n))) ;;;返回选择集中指定索引号的列表
(setq mc (assoc 1 stb)) ;;;;在列表中找与关键字相同的元素,点对表,文字内容
(setq nr (cdr mc)) ;;;反回点对表中的第二个元素,文字内容。
(setq zblb (assoc 10 stb)) ;;;返回坐标列表。
(setq xzb (nth 1 zblb)) ;;;;返回X坐标。
(setq xzbzh (rtos xzb)) ;;;将X坐标转换为字符串。
(setq yzb (nth 2 zblb)) ;;;;返回y坐标
(setq yzbzh (rtos yzb)) ;;;;;将y坐标转换为字符串。
(setq zzb (nth 3 zblb)) ;;;;;返回z坐标。
(setq zzbzh (rtos zzb)) ;;;;;;将z坐标转换为字符串。
(setq hecheng (strcat nr " "  xzbzh " " yzbzh " " zzbzh))
(setq wj (open "e:/new.txt" "a"))
(write-line hecheng wj)
(setq n (+ 1 n))
)
  (close wj)
)

发表于 2007-4-7 14:50 | 显示全部楼层

遍历实体---然后判断其属性,如果是点,提取坐标,保存至文档

应该是这样的吧,以前VB作过提取文字的

发表于 2007-4-24 09:11 | 显示全部楼层

glyyy

请教一下

写一个选择一个或多个数据就可以把它导到TXT文本中应该怎么做?

发表于 2007-7-10 14:52 | 显示全部楼层
大哥大姐门啊,你们都是高手,小弟前来拜访学习!!
发表于 2007-7-16 19:21 | 显示全部楼层

我在哪里看到过这个程序

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 19:24 , Processed in 0.278797 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表