提取cad图纸中的文字到excel中,怎么办?
提取cad图纸中的文字到excel中,怎么办?请各位高手帮忙,谢谢!
很简单 但是要看你想怎么办?
用vba最简单遍历所有图员 如果是text就记录内容到excel的表格中
呵呵 我做完了
我想楼主是想把表格文字提取到excel里吧?先熟悉一下cad的对象模型,和excel的对象模型先,祝好运! 楼上能不能在说的详细一点
我也想知道
谢谢
文字导入到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
正在找这方面的学习呢,谢谢了, 正在找这方面的学习呢,谢谢了,
页:
[1]