增加对MICAPS第2类数据的支持

MeteoInfo

增加了对MICAPS第2类数据（站点高空观测）的支持，高空观测没有云量数据，将云量自动赋为0，这样站点所在位置就能显示出来。需要最新文件（见置顶帖子）。

孤蓝et

贺电来自大西北。。。。

风行浪尖

狂学C#中，向王老师学习！

Forcast

既能支持MICAPS数据，有能支持其他数据，以后用的人会多多的

qxtlyf

以后有关气象方面的软件开发可以广泛应用它

baiduwenku

位势高度呢？貌似中国的高空站点有几百个，好像少了点。

baiduwenku

再提一点建议，中高纬度一般不分析流线图。

MeteoInfo

baiduwenku 发表于 2011-12-18 21:48

                               
登录/注册后可看大图

再提一点建议，中高纬度一般不分析流线图。

谢谢你的建议。忘了填位势高度了。站点填图图层缺省会开启免压盖功能，你也可以去掉图层的免压盖功能，这样就能显示所有的站点，不过图形会互相压盖。那个流线图用的并非是站点数据，不过是借用micaps第2类数据格式的风场数据。

孤蓝et

咦？我的micaps第二类数据在meteoinfo能画出来站点图，怎么使用脚本就画不出站点模式呢？
测试数据：       11122208.000 (23.69 KB, 下载次数: 1)

2012-1-5 11:09 上传

点击文件名下载附件
阅读权限: 100
脚本如下：

1. # This Python file uses the following encoding: GB2312
   
2. #---- 引入类库
   
3. import clr
   
4. clr.AddReferenceByPartialName("System")
   
5. clr.AddReferenceByPartialName("System.Windows.Forms")
   
6. clr.AddReferenceByPartialName("System.Drawing")
   
7. from System import *
   
8. from System.Windows.Forms import *
   
9. from System.Drawing import *
   
10. clr.AddReference("MeteoInfoC.dll")
    
11. from MeteoInfoC import *
    
12. from MeteoInfoC.Layout import *
    
13. from MeteoInfoC.Data import *
    
14. 
    
15. 
    
16. #---- 创建MIApp类的对象
    
17. myApp = MIApp()
    
18. #---- 添加图层
    
19. #---- 设置图层渲染
    
20. 
    
21. #只填充轮廓，没有填充色的设置如下!!
    
22. myApp.OpenLayer("D:\\Micaps2PPT\\Map\\新疆区域.shp")
    
23. myApp.SetLegendBreak("新疆区域.shp",0,Color.Yellow,Color.Black,2,True,False,True)
    
24. myApp.OpenLayer("D:\\Micaps2PPT\\Map\\cnworld")
    
25. myApp.OpenLayer("D:\\Micaps2PPT\\Map\\res1_4m.shp")
    
26. myApp.SetLegendBreak("res1_4m.shp",0,5,Color.Red,Color.Black,True,True,True)
    
27. 
    
28. 
    
29. 
    
30. #---- 获取矢量图层对象，并设置标注
    
31. aLayer = myApp.GetVectorLayer("res1_4m.shp")
    
32. aLayer.LabelSet.FieldName = "NAME";
    
33. aLayer.LabelSet.LabelFont = Font("楷体", 10);
    
34. aLayer.LabelSet.Offset = 15;
    
35. aLayer.AddLabels();
    
36. 
    
37. #---- Lambert投影
    
38. myApp.ProjectLayers("+proj=lcc+lat_1=15+lat_2=45+lon_0=80")
    
39. 
    
40. #---- 按照经纬度范围缩放地图
    
41. myApp.ZoomLonLat(50,97,32,55)
    
42. 
    
43. 
    
44. 
    
45. #---- 设置DefalutLayoutMap（图层显示）
    
46. myApp.MapLayout.DefaultLayoutMap.DrawGridLine = True
    
47. myApp.MapLayout.DefaultLayoutMap.DrawNeatLine = True
    
48. myApp.MapLayout.DefaultLayoutMap.Left = 40
    
49. myApp.MapLayout.DefaultLayoutMap.Top = 50
    
50. myApp.MapLayout.DefaultLayoutMap.Width = 640
    
51. myApp.MapLayout.DefaultLayoutMap.Height = 400
    
52. 
    
53. #---- 设置DefaultLegend（图例）
    
54. myApp.MapLayout.DefaultLegend.LegendStyle = LegendStyleEnum.Normal      
    
55. myApp.MapLayout.DefaultLegend.DrawNeatLine = True
    
56. myApp.MapLayout.DefaultLegend.Title = " "
    
57. myApp.MapLayout.DefaultLegend.BackColor = Color.White
    
58. myApp.MapLayout.DefaultLegend.Font = Font("Arial", 14)
    
59. myApp.MapLayout.DefaultLegend.Left =750
    
60. myApp.MapLayout.DefaultLegend.Top =410
    
61. 
    
62. 
    
63. #---- 设置DefaultTitle（图形标题）
    
64. myApp.MapLayout.DefaultTitle.SetFont("黑体", 12)
    
65. myApp.MapLayout.DefaultTitle.Top = 10
    
66. myApp.MapLayout.DefaultTitle.Left = 0
    
67. 
    
68. 
    
69. #---- 设置起始结束时间
    
70. sTime = DateTime.Parse("2012-01-01 20:00")
    
71. 
    
72.    
    
73. myApp.RemoveDataLayers()
    
74. inFile = sTime.ToString("yyMMddHH") + ".000"
    
75. print inFile
    
76. 
    
77. 
    
78. 
    
79. #---- 气压
    
80. myApp.SetAntiAlias(True)
    
81. myApp.SetLegendScheme("D:\\Micaps2PPT\\LGS\\HGT.lgs")
    
82. myApp.OpenMICAPSData("D:\\Micaps2PPT\\micaps20\\high\\plot\\500\" + inFile)  
    
83. myApp.SetDrawType("Contour")
    
84. myApp.Display("Height")
    
85. 
    
86. 
    
87. myApp.UseDefaultLegendScheme = False
    
88. myApp.SetDrawType("Station_Model")
    
89. myApp.Display("Temperature")
    
90. 
    
91. 
    
92. 
    
93. 
    
94. print "Display finished"  
    
95. 
    
96. #---- 调整图层顺序（以避免压盖）
    
97. myApp.MoveLayerToTop("res1_4m.shp")
    
98. myApp.MoveLayerToTop("新疆区域.shp")
    
99. myApp.MoveLayerToTop("新疆区域.shp")
    
100. 
     
101. #---- 设置标题名称
     
102. title = sTime.ToString("yyyy-MM-dd HH") + "时 500Hpa实况图"
     
103. myApp.SetTitle(title)     
     
104. 
     
105. 
     
106. #---- 绘制图形
     
107. myApp.MapLayout.PaintGraphics()
     
108. 
     
109. #---- 输出图形为文件
     
110. outFile = "\\run.png"
     
111. print outFile
     
112. myApp.SaveFigure("D:\\Micaps2PPT" + outFile)  
     
113. 
     
114. #---- 显示程序窗体（只是为了看效果，自动运行时不需要）
     
115. Application.Run(myApp)
     

复制代码

MeteoInfo

孤蓝et 发表于 2012-1-5 11:10

                               
登录/注册后可看大图

咦？我的micaps第二类数据在meteoinfo能画出来站点图，怎么使用脚本就画不出站点模式呢？
测试数据：      ...

MIAPP类里的相关函数没有更新的缘故。

很快就完成多Map Frame支持了，由于一些类进行了重构，Script的写法也会有些变化。说了很多次了，由于软件的复杂性，我开发出来的功能自己也没时间进行细致的测试，会有很多bug。多Map Frame又会增加软件的复杂性，以前正常的功能也可能会出现问题。只能指望大家帮我测试了。