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

提取cad图纸中的文字到excel中,怎么办?

提取cad图纸中的文字到excel中,怎么办?
请各位高手帮忙,谢谢!

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

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

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

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

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

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

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

文字导入到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 发表于 2012-7-25 06:48:00


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

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

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