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

chenrui · 发表于 2006-4-4 22:23:00

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

lndlthh · 发表于 2006-4-5 09:27:00

我也想知道~`~

chenrui · 发表于 2006-4-5 11:19:00

怎么没人声援一下阿，AUTOCAD有没有这个功能阿

lhy77777 · 发表于 2006-4-6 23:45:00

我也是很久就想知道了

liyuwen · 发表于 2006-4-12 13:31:00

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

zhihaomeng · 发表于 2006-11-16 11:23:00

你用以下程序试一下！

(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)
)

glyyy · 发表于 2007-4-7 14:50:00

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

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

lurenjia · 发表于 2007-4-24 09:11:00

glyyy

请教一下

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

lzq1981 · 发表于 2007-7-10 14:52:00

大哥大姐门啊，你们都是高手，小弟前来拜访学习！！

benben5000 · 发表于 2007-7-16 19:21:00

我在哪里看到过这个程序

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