EXCEL各种表格轻松转入CAD

上善若水0904 · 发表于 2012-8-6 20:28

本帖最后由上善若水0904 于 2012-8-6 20:48 编辑

经常要把各种采样结果分析表、钻孔测斜、孔深校正等数据绘入CAD图件，用“复制”-“选择性粘贴"，还要列宽、行高、文字大小、小数点位数进行修正，仍觉麻烦，所以自己制作了一个EXCEL表解决这一问题，“复制”-“粘贴”搞定！分享给大家用此方法顺便把钻孔柱状图、坑道素描图、采样位置图在EXCEL里面编程搞定，现在一张柱状图5分钟、坑道图20分钟、采样位置图分分钟，效果明显啊！！（注：EXCEL表录入数据后在第二个表格用宏命令多列并为1列，复制-粘贴到CAD命令行，粘贴前把CAD文字样式高度设为0，想要自己亲自设计填充图案的朋友也可以在我帖子里面下载，亲测简单易学）（附：多列转为一列宏命令，录制宏的方法篇幅有限自己百度一下你就晓得，想偷懒的朋友也可以在我帖子里面下载）
Sub dsr()
Dim arr, arr1()
arr = Range("a1").CurrentRegion
x = UBound(arr)
y = UBound(arr, 2)
ReDim arr1(1 To x * y, 1 To 1)
For yy = 1 To y
For xx = 1 To x
If arr(xx, yy) <> "" Then
k = k + 1
arr1(k, 1) = arr(xx, yy)
End If
Next xx
Next yy
Cells = ""
Range("a1").Resize(k, 1) = arr1
End Sub