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

jingelou

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

复制代码

http://www.easylou.com/download.php?key=13

vladimirputin

免费的开发工具都是很好的，值得程序员好好学习。

p-3-ianlcc

回覆看一下隐藏的内容
谢谢分享！

harderman

謝謝樓主分享

819534890

回复看看隐藏

Jack_PC

......

包装纸袋公司

谢谢 楼主分享

砧板鱿鱼123

Visual C++开发AutoCAD

恒毅

谢谢 楼主分享

白色微風1991

謝謝樓主分享

白色微風1991

回复看看隱藏

白色微風1991

謝謝樓主分享