vb.net调用Grapher10.1.640

xyangtian

1. Imports Microsoft.Win32
   
2. Class MainWindow
   
3.     Dim ArrFile() As String
   
4.     Dim ListFile As New List(Of String)
   
5.     Dim ListName As New List(Of String)
   
6.     Dim BaseFolder As String
   
7.     Private Sub button_Click(sender As Object, e As RoutedEventArgs)
   
8.         Dim dlg As New Microsoft.Win32.OpenFileDialog()
   
9.         dlg.FileName = "Document"
   
10.         dlg.DefaultExt = ".dat"
    
11.         dlg.Filter = "Text documents (.dat)|*.dat"
    
12.         dlg.Multiselect = True
    
13.         Dim result? As Boolean = dlg.ShowDialog()
    
14.         If result = True Then
    
15.             ArrFile = dlg.FileNames
    
16.             FileTb.Text = dlg.FileName
    
17.             For i = 0 To ArrFile.Length - 1
    
18.                 BaseFolder = ArrFile(i).Remove(ArrFile(i).LastIndexOf("")) '获取文件路径
    
19.                 ListFile.Add(ArrFile(i).Remove(ArrFile(i).LastIndexOf("."))) '移除文件名后缀
    
20.                 ListName.Add(ArrFile(i).Substring(ArrFile(i).LastIndexOf("") + 1, (ArrFile(i).LastIndexOf(".") - ArrFile(i).LastIndexOf("") - 1))) '截取文件名
    
21.             Next
    
22.         End If
    
23.     End Sub
    
24. 
    
25.     Private Sub Scatter_Click(sender As Object, e As RoutedEventArgs)
    
26.         For i = 0 To ArrFile.Count() - 1
    
27.             Dim GrapherApp As Object
    
28.             GrapherApp = CreateObject("Grapher.Application") '创建Grapher实例
    
29.             GrapherApp.Visible = False
    
30.             Dim Docs As Object
    
31.             Docs = GrapherApp.Documents
    
32.             Dim Plot As Object
    
33.             Plot = Docs.Add()
    
34.             Dim Shapes As Object
    
35.             Shapes = Plot.Shapes
    
36.             Dim Graph As Object
    
37.             Graph = Shapes.AddLinePlotGraph(ArrFile(i), 2, 3)
    
38.             Dim Axes As Object
    
39.             Axes = Graph.Axes
    
40.             Dim XAxis As Object
    
41.             XAxis = Axes(1)
    
42.             XAxis.Scale = 2 '设置X轴为对数
    
43.             Dim XAxisTitle As Object
    
44.             XAxisTitle = XAxis.title
    
45.             XAxisTitle.Text = "1111" '设置X轴标题内容
    
46.             Dim YAxis As Object
    
47.             YAxis = Axes(2)
    
48.             YAxis.Scale = 2 '设置Y轴为对数
    
49.             Dim YAxisTitle As Object
    
50.             YAxisTitle = YAxis.title
    
51.             YAxisTitle.Text = "2222" '设置Y轴标题内容
    
52.             Dim GraphPlots As Object
    
53.             GraphPlots = Graph.Plots(1)
    
54.             Dim GraphTitle As Object
    
55.             GraphTitle = Graph.Title
    
56.             GraphTitle.Text = "nihao" '设置标题内容
    
57.             Dim GraphLine As Object
    
58.             GraphLine = GraphTitle.line '选取标题的线属性
    
59.             GraphLine.Style = "Invisible" '设置线属性
    
60.             Dim GraphSymbol As Object
    
61.             GraphSymbol = Graph.Plots.Item(1)
    
62.             GraphSymbol.symbolFreq = 1 '设置标记个数
    
63.             Dim GraphColor As Object
    
64.             GraphColor = GraphSymbol.Symbol
    
65.             GraphColor.Fill.ForeColor = 100 '设置标记填充颜色
    
66.             Plot.SaveAs(BaseFolder + "" + ListName(i) + "grf")
    
67.             GrapherApp.Quit()
    
68.             System.GC.Collect(System.GC.GetGeneration(GrapherApp))
    
69.         Next
    
70.         MsgBox("OK")
    
71.     End Sub
    
72. End Class
    

复制代码

vb.net，你可以把它转成vb。grapher一定要是英文版，汉化版会有各种错误。

张爱气象

这个是拿来做什么用的？

xyangtian

张爱气象 发表于 2017-6-22 19:00
这个是拿来做什么用的？

仅供参考，做什么要自己编