Dim a As Excel.Application
Set a = New Excel.Application
a.Workbooks.Open ("f:\1.xls") ’文件名自己确定
For i = 1 To 20 ’想拾取几个点就改成多少的就可以了
b = ThisDrawing.Utility.GetPoint
a.Cells(i, 1) = b(0) ’x坐标值
a.Cells(i, 2) = b(1) ’y坐标值
a.Cells(i, 3) = b(2) ’z坐标值
Next i
a.Workbooks.Close
全部回复(6 )
只看楼主 我来说两句http://co.163.com/forum/list/1755_0_1.htm
回复 举报
Set a = New Excel.Application
a.Workbooks.Open ("f:\1.xls") ’文件名自己确定
For i = 1 To 20 ’想拾取几个点就改成多少的就可以了
b = ThisDrawing.Utility.GetPoint
a.Cells(i, 1) = b(0) ’x坐标值
a.Cells(i, 2) = b(1) ’y坐标值
a.Cells(i, 3) = b(2) ’z坐标值
Next i
a.Workbooks.Close
回复 举报