A. Hypack2018处理侧扫声呐资料
Hypack2018处理侧扫声呐资料是本文探讨的重点。本文使用的是Hypack2018 64位的Targeting and Mosaicking模块进行数据处理。
启动模块后，界面与处理单波束数据时类似，界面简洁，但显得有些朴素。进行数据载入时，推荐使用XTF格式，博主单位多使用Klein3000/4000型号的侧扫声呐设备，其自带的SonarPro软件采集数据，格式偏好XTF。
打开XTF文件后，Hypack2018会弹出对话框，使用默认参数，设置Frequency2为高频。打开数据文件后，可以看到数据的初步呈现。
接下来，通过扫描视图（Scan view）来查看测线瀑布图，如果显示效果不理想，可以通过鼠标右键点击侧扫控制菜单，调整增益至Auto TVG，Sensitivity越高，图像越亮。
进行底跟踪（Bottom Tracking）是侧扫声呐处理的重要步骤。首先设置自动底跟踪，根据数据采集情况输入Blanking距离，通常为采集量程的1/10。以图中50m的量程为例，设置Blanking为5m，点击应用后即可显示底跟踪的蓝色线。
底跟踪功能也支持手动操作，在原始数据窗口和扫描视图界面均可进行。手动底跟踪操作虽然起初可能有些不习惯，但随着实践逐渐熟悉。方法是点击底跟踪按钮后，点击图像上的红色点进行海底跟踪，再次点击底跟踪按钮，红色点将自动连成线。需要注意的是，点红色点时并不实时连成线。
最后一步是镶嵌（Mosaic）处理，通过“Mosaic”菜单命令进行。镶嵌时，可以进行分辨率、是否移除水柱等设置。以0.1m分辨率、移除水柱的图像为例，若追求更高清晰度，可将分辨率调整为更小的格网，如0.05m。
Hypack2018在Targeting and Mosaicing模块中提供了目标提取功能，提取后目标会在Hypack主界面的项目文件/目标中显示。然而，该模块似乎不支持直接画线段，Hypack帮助中也未找到相关功能。在镶嵌图像生成的TIFF文件中，使用Hypack的各种编辑工具绘制线性和面状目标物，导出为矢量文件，如dwg格式。
B. EXCEL运行VB宏定义时产生错误“5”
'CommandBars("Worksheet Menu Bar").Controls(1).Controls(3).Delete
'CommandBars("Worksheet Menu Bar").Controls(1).Controls(7).Delete
‘小心上面的操作是删除我没有调试，如果你只是不用的话不如用Visible = False
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Any, ByRef lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Sub ModifyMenu()
Dim str, strBuffer As String
Dim hKeyBinPath As Long
Dim lngResult, cb As Long
CommandBars("Worksheet Menu Bar").Enabled = True
CommandBars("Worksheet Menu Bar").Visible = True
CommandBars("Worksheet Menu Bar").Reset
'CommandBars("Worksheet Menu Bar").Controls(1).Controls(3).Delete
'CommandBars("Worksheet Menu Bar").Controls(1).Controls(7).Delete
CommandBars("Worksheet Menu Bar").Controls(1).Controls(3).Visible = False
CommandBars("Worksheet Menu Bar").Controls(1).Controls(7).Visible = False
CommandBars("Standard").Enabled = True
CommandBars("Standard").Visible = True
'CommandBars("Standard").Reset
CommandBars("Visual Basic").Enabled = True
CommandBars("Visual Basic").Visible = True
CommandBars("Visual Basic").Reset
' find registry key
strKey = "bin"
lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"Software\Baker Atlas\CASE", _
0, KEY_ALL_ACCESS, hKeyBinPath)
If 0 = lngResult Then
' read value
strBuffer = Space(255)
cb = Len(strBuffer)
lngResult = RegQueryValueEx(hKeyBinPath, _
strKey, 0, REG_EXPAND_SZ, ByVal strBuffer, cb)
If 0 = lngResult Then
str = Left(strBuffer, cb - 1)
End If
End If
strCasePath$ = str + "\"
strSaveFileAction$ = strCasePath$ + "Macros.xls!SaveFile.SaveFile"
Set cstmSave = CommandBars("Worksheet Menu Bar").Controls(1).Controls.Add(Type:=msoControlButton, Before:=2)
With cstmSave
.Caption = "Save As " + strCasePath$ + "Text1.csv and update XTF"
.OnAction = strSaveFileAction$
End With
End Sub
调试通过，另附对应名称ID表
菜单栏各个ID
ID，名称
1,文件(&F)
2,编辑(&E)
3,视图(&V)
4,插入(&I)
5,格式(&O)
6,工具(&T)
7,数据(&D)
8,操作(&C)
9,窗口(&W)
10,帮助(&H)
文件菜单-ID与名称
1,新建(&N)...
2,打开(&O)...
3,关闭(&C)
4,保存(&S)
5,另存为(&A)...
6,另存为网页(&G)...
7,保存工作区(&W)...
8,文件搜索(&H)...
9,权限(&M)...
10,权限(&M)
11,签出(&E)
12,签入(&E)...
13,版本记录(&R)...
14,网页预览(&B)
15,页面设置(&U)...
16,打印区域(&T)
17,打印预览(&V)
18,打印(&P)...
19,发送(&D)
20,属性(&I)
21,此处为最近所用文件的名称(&R)
22,此处为最近所用文件的名称(&R)
23,此处为最近所用文件的名称(&R)
24,此处为最近所用文件的名称(&R)
25,此处为最近所用文件的名称(&R)
26,此处为最近所用文件的名称(&R)
27,此处为最近所用文件的名称(&R)
28,此处为最近所用文件的名称(&R)
29,此处为最近所用文件的名称(&R)
30,签出(&T)
31,退出(&X)