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

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

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

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

<P>我也想知道~`~</P>

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

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

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

我也是很久就想知道了

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

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

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

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

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

<p>遍历实体---然后判断其属性,如果是点,提取坐标,保存至文档 </p><p>应该是这样的吧,以前VB作过提取文字的</p>

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

<p>glyyy</p><p>请教一下</p><p>写一个选择一个或多个数据就可以把它导到TXT文本中应该怎么做？</p>

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

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

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

<p>我在哪里看到过这个程序</p>
页: [1] 2
查看完整版本: 如何将CAD图形中点的坐标输出到excel或txt、数据库中