根据 Excel 数据展开点或插入图块，用的免费国产开发工具之易楼易码

jingelou

1. //<当前目录> - 本源代码文件{批量插入图块.esf}所在目录
   
2. //sXlsFile - Excel 文件路径 <当前目录>/位置.xls
   
3. CString sXlsFile = "位置.xls";
   
4. //sDwgFile - DWG 图块文件路径 <当前目录>/图块.dwg
   
5. CString sDwgFile = "图块.dwg";
   
6. //nRow - Excel Sheet 1 的行数
   
7. //nCol - Excel Sheet 1 的列数
   
8. int nRow, nCol;
   
9. nRow = 0;
   
10. nCol = 0;
    
11. //excelRange(nRow, nCol, 文件路径, 工作表位置, 是否关闭此工作表)
    
12. excelRange(nRow, nCol, sXlsFile, 1, 0);
    
13. //循环读取 Excel 所有行
    
14. for(int i = 1; i <= nRow; i++)
    
15. {
    
16. int nCol = 1;
    
17. //得到excelGet(文件路径, Sheet 1, 行位置, 列位置{1})
    
18. CString sName = excelGet(sXlsFile, 1, i, nCol++);
    
19. 
    
20. //插入图块insert(图块文件路径, 图块名称, 是否替换重名的图块{0})
    
21. insert(sDwgFile, sName, 0);
    
22. //插入点
    
23. point ptIns;
    
24. 
    
25. //得到第2列
    
26. CString s = excelGet(sXlsFile, 1, i, nCol++);
    
27. ptIns.x = atof(s.GetBuffer());
    
28. //得到第3列
    
29. s = excelGet(sXlsFile, 1, i, nCol++);
    
30. ptIns.y = atof(s.GetBuffer());
    
31. //得到第4列
    
32. s = excelGet(sXlsFile, 1, i, nCol++);
    
33. ptIns.z = atof(s.GetBuffer());
    
34. //得到第5列
    
35. s = excelGet(sXlsFile, 1, i, nCol++);
    
36. double dAngle = atof(s.GetBuffer());
    
37. //得到第6列
    
38. s = excelGet(sXlsFile, 1, i, nCol++);
    
39. double dScale = atof(s.GetBuffer());
    
40. //绘制图块block(图块名称, 插入点, 角度, 比例)
    
41. block(sName, ptIns, dAngle, dScale);
    
42. //展开点
    
43. //dimp(ptIns);
    
44. }

复制代码

下载地址

游客，如果您要查看本帖隐藏内容请回复

18623643220

想看看楼主的杰作

jwj0805

学习一下。看看

jwj0805

搞不明白，安装后出现致命错误

jingelou

在什么位置？

xychenchanfan

感谢楼主分享

QQ84603709

支持~~~~~~~~~~~~~~~
  

向嘟嘟

这个功能不错。

zjy2999

学习！！！！！！！！！

天若有情007

学习学习            

d00j

看看 赶紧看看  感谢分享 噢噢噢噢

cool_studio

看看 谢谢分享。。。

cool_studio

看看 谢谢分享。。。

烟花丝雨11

新手学习来了      

cy26

新手来学习，多谢楼主分享