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

zhy830120

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

请各位高手帮忙，谢谢！

alphasxb

  很简单     但是要看你想怎么办？

  用vba最简单  遍历所有图员   如果是text  就记录内容到excel的表格中

  呵呵        我做完了

laoliu09

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

muzi2005888

楼上能不能在说的详细一点

我也想知道

谢谢

天龙八部

文字导入到EXCEL难道就不能用CAD内部的BLOCK功能导出吗？把文字做成B，然后提取属性，程序的话可以先连接EXCEL啊！

1可以先用选择集选中所有的对象，然后将文字的对像过滤出来

2.得到文字对象后连接EXCEL ,(EXCEL.APPLICATION),

3.EXCEL.workbooks 和excel.sheets 然后用CELLS(X,Y),将文字写入EXCEL表格

public sub sfdsdfsdfs()

dim ppppexcel1 as excelapplication

dim pppworkbooks as excelwookbooks

dim ppworksheet as excelwooksheets

set ppppexcel1=getobject(."excel.appliction")

    if err then

  set ppppexcel1=createobject("excel.appliction")

    if err then

      msgbox err.description

   end if

set pppworkbooks=ppppexcel1.workbooks.add

set ppworksheet=pppworkbooks.worksheets.add

ppppexcel1.visible=true

dim i as double

i=0

dim j as double

j=0

for each 文字对象 in sset '选择集

   ppworksheet.cell(i,j)

'写入文字到每一个EXCEL单元格

next 文字对象

end sub

jsxygshh

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

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

njyulei

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