я уже писал решение для этой проблемы. может не совсем красивое - но реально рабочее.
Не минимизируете толщину контура, а
т.е увеличиваете точность за счет увеличения разрешения
Ну если моя гипотеза верна ( а судя по всему, так и есть) то внутри алгоритма нет никакой линии контура
Sub SelectSimilar()
If CheckDoc(1) Then
'boostStart "Index"
ActiveWindow.ActiveView.Zoom = 32000
Dim S As Shape
Dim T As Shape
Dim SR As New ShapeRange
Dim TR As ShapeRange
Dim A As Long
Dim OurShape As Currency
Set T = ActiveSelectionRange.Shapes.First
SR.Add T
Set TR = ActivePage.Shapes.All
OurShape = SimilarityRating(T)
ReDim Catalogue(TR.Count + 1, 2) As Currency
For A = 1 To TR.Count
Set S = TR(A)
Catalogue(A, 1) = SimilarityRating(S)
Catalogue(A, 2) = S.StaticID
Debug.Print Catalogue(A, 1)
Next A
For A = 1 To TR.Count
If Catalogue(A, 1) = OurShape Then
Set S = ActivePage.FindShape(, , Catalogue(A, 2))
If S.SizeHeight > T.SizeHeight * 0.5 And S.SizeHeight < T.SizeHeight * 1.5 And T.SizeWidth > S.SizeWidth * 0.5 And T.SizeWidth < S.SizeWidth * 1.5 Then
SR.Add S
End If
End If
Next A
SR.CreateSelection
ActiveWindow.ActiveView.ToFitSelection
'boostFinish True
End If
End Sub
Function SimilarityRating(S As Shape) As Currency
Dim X As Double
Dim Y As Double
Dim Size As Double
Dim Steps As Double
Dim Gap As Double
Steps = 6
Dim Index As Currency
Dim A As Byte
Index = 0
A = 0
If S.SizeHeight > S.SizeWidth Then
Size = S.SizeHeight
Else
Size = S.SizeWidth
End If
Gap = Size / Steps
Size = Size - Gap
Gap = Size / Steps
For Y = 0 To Steps
For X = 0 To Steps
If S.IsOnShape((S.CenterX - Size / 2) + X * Gap, (S.CenterY - Size / 2) + Y * Gap, Gap * 0.5) Then
'Debug, can comment out
'ActiveLayer.CreateEllipse2 (S.CenterX - Size / 2) + X * Gap, (S.CenterY - Size / 2) + Y * Gap, Gap * 0.5
Index = Index + 2 ^ A
Else
'Debug, can comment out
'ActiveLayer.CreateEllipse2 (S.CenterX - Size / 2) + X * Gap, (S.CenterY - Size / 2) + Y * Gap, Gap / 8
End If
A = A + 1
Next X
Next Y
'Debug, can comment out
'ActiveLayer.CreateArtisticText S.LeftX, S.BottomY - 1, Index, , , , 32
SimilarityRating = Index
End FunctionМожет не будем сразу спешить с выводами?
И как это поможет найти визуально похожие объекты разных размеров? Мне нужны как раз примерно похожие объекты - например форма Т, форма Г , форма О.
ну да, но граница контура получается разной толщины, в зависимости от масштаба.
Видимо я чего-то не догоняю? Вы хэшируете объекты и сравниваете хэши - так?
Само понятие векторной границы лишено смысла в данном случае
Потому что вы фактически делаете то же самое что и я вам советую, только в очень грубом приближении
Мне как раз не нужны повернутые фигуры а, повторюсь, визально похожие точно в том положении в каком они расположены. Выше я добавил пример.
Мне сложно объяснить вам,особенно при наличии языкового барьера
Это я понял. И создал реальный пример - розовый объект базовый. На мой взгляд то что осталось бы после накладывания объектов сильно похоже во всех них. А вот с хэшом намного яснее.
Да вы сами гляньте на свои рисунки - ваш хэш - это и есть более грубое усреднение разницы между двумя объектами! Причем в вашем случае разброс похожести в пределах одного и того же хэша ЗНАЧИТЕЛЬНО шире моего (выделено желтым)
Ничуть
Мы тут говорим о форме - форма для хэша одинаковая у похожих фигур и другая для другого типа фигур. А чистое значение плошади может совпадать (вернее быть близким) фигур - как видим в картинке.
Ничуть
Вовсе не считаю свой код идеальным, просто не вижу как процент различия площади хорошый параметр для установки различия обьектов.
