如何将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

我在哪里看到过这个程序

页: [1] 2

明经CAD社区's Archiver

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