求水平集分割的VC程序

来源：百度知道 编辑：UC知道 时间：2024/09/23 11:07:08
最近在学习用水平集（level set）方法分割图像，有没有哪位高手有相关的VC程序？？

Private Sub Command7_Click()

Dim fdObject As MapXLib.FindFeature
Set fdObject = Map1.Layers("地物").Find.Search(text1.text)
If (FindCityObject.FindRC Mod 10 = 1) Then
MapX1.SetZoom (100)
MapX1.SetCenterX (fdObject.GetCenterX())
MapX1.SetCenterY (fdObject.GetCenterY())

Else

MsgBox ("City not found")
End If

End Sub