|
本帖最后由 上善若水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
|
|