zhy830120 发表于 2007-5-18 15:49:00

提取cad图纸中的文字到excel中，怎么办？

<p>提取cad图纸中的文字到excel中，怎么办？</p><p>请各位高手帮忙，谢谢！</p>

alphasxb 发表于 2007-5-18 15:52:00

<p>&nbsp; 很简单&nbsp;&nbsp;&nbsp;&nbsp; 但是要看你想怎么办？</p><p></p><p>&nbsp; 用vba最简单&nbsp; 遍历所有图员&nbsp;&nbsp; 如果是text&nbsp; 就记录内容到excel的表格中 </p><p></p><p>&nbsp; 呵呵&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我做完了</p>

laoliu09 发表于 2007-5-19 11:35:00

我想楼主是想把表格文字提取到excel里吧？先熟悉一下cad的对象模型，和excel的对象模型先，祝好运！

muzi2005888 发表于 2007-8-13 22:26:00

<p>楼上能不能在说的详细一点</p><p>我也想知道 </p><p>谢谢</p>

天龙八部 发表于 2007-8-14 17:34:00

<p>文字导入到EXCEL难道就不能用CAD内部的BLOCK功能导出吗？把文字做成B，然后提取属性，程序的话可以先连接EXCEL啊！</p><p>1可以先用选择集选中所有的对象，然后将文字的对像过滤出来</p><p>2.得到文字对象后连接EXCEL ,(EXCEL.APPLICATION),</p><p>3.EXCEL.workbooks 和excel.sheets 然后用CELLS(X,Y),将文字写入EXCEL表格</p><p>public sub sfdsdfsdfs()</p><p>dim ppppexcel1 as excelapplication</p><p>dim pppworkbooks as excelwookbooks</p><p>dim&nbsp;ppworksheet as excelwooksheets</p><p>set ppppexcel1=getobject(."excel.appliction")</p><p>&nbsp;&nbsp;&nbsp; if err then</p><p>&nbsp; set ppppexcel1=createobject("excel.appliction")</p><p>&nbsp;&nbsp;&nbsp; if err then</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msgbox err.description</p><p>&nbsp;&nbsp; end if</p><p></p><p>set pppworkbooks=ppppexcel1.workbooks.add </p><p>set ppworksheet=pppworkbooks.worksheets.add </p><p></p><p>ppppexcel1.visible=true</p><p>dim i as double</p><p>i=0</p><p>dim&nbsp;j as double</p><p>j=0</p><p>for each 文字对象 in sset '选择集</p><p>&nbsp;&nbsp; ppworksheet.cell(i,j)</p><p>'写入文字到每一个EXCEL单元格</p><p></p><p>next 文字对象</p><p>end sub</p><p></p><p></p>

jsxygshh 发表于 2012-7-25 06:48:04

天龙八部 发表于 2007-8-14 17:34 static/image/common/back.gif
文字导入到EXCEL难道就不能用CAD内部的BLOCK功能导出吗？把文字做成B，然后提取属性，程序的话可以先连接EX ...

正在找这方面的学习呢，谢谢了，

njyulei 发表于 2012-7-26 10:05:11

正在找这方面的学习呢，谢谢了，
页: [1]
查看完整版本: 提取cad图纸中的文字到excel中，怎么办？