ﾎﾞﾃﾞｨの外側をﾏｸﾛで判断する

以前、3次元測定機の測定結果(CSV)をCATIAに取り込み、
実物とCADﾃﾞｰﾀを差を調整しながらﾓﾃﾞﾘﾝｸﾞを行った事があったのですが、
大量の点をｲﾁｲﾁ測定する手間が非現実的なため、誤差を測定する為の
ﾏｸﾛを作成し作業をしたことが有ります。

単に点 - ﾎﾞﾃﾞｨ間の距離を測定するだけであれば、こちらの方法で
良いのですが、(ﾘﾌｧﾚﾝｽさえ取得できれば、何でも同じです)
ﾎﾞﾃﾞｨ - ﾎﾞﾃﾞｨの最短距離の測定3 - C#ATIA

測定点がCADﾃﾞｰﾀに比べ小さいのか?　大きいのか?
を判断する方法が最初はわかりませんでした。

ｲﾛｲﾛと試しているうちにわかったのですが、ﾎﾞﾃﾞｨとﾎﾞﾃﾞｨ内に
含まれている点の距離を測定した場合、
ﾊﾟｰﾄﾃﾞｻﾞｲﾝﾌｭｰﾁｬｰ(ﾊﾟｯﾄﾞ等)と点の距離を測定すると "0" となり
ﾎﾞﾃﾞｨの表面と点の距離を測定すれば、実際に離れている距離が
得られます。

f:id:kandennti:20170613150918p:plain

実際に、これをﾏｸﾛ化することでOKでした。

'vba sample_IsInBox
'ﾎﾞﾃﾞｨ表面上は外側に判断

Option Explicit

Sub CATMain()

    '必要なもの
    Dim PDoc As PartDocument: Set PDoc = CATIA.ActiveDocument
    Dim Pt As Part: Set Pt = PDoc.Part
    Dim Fact As HybridShapeFactory: Set Fact = Pt.HybridShapeFactory
    
    '点
    Dim Pnt As HybridShapePointCoord
    Set Pnt = Pt.HybridBodies.Item(1).HybridShapes.Item(1)
    
    '点ﾘﾌｧﾚﾝｽ
    Dim PntRef As Reference
    Set PntRef = Pt.CreateReferenceFromGeometry(Pnt)
    
    'ﾊﾟｰﾂﾎﾞﾃﾞｨ
    Dim Bd As Body: Set Bd = Pt.MainBody
    
    'ﾊﾟｰﾂﾎﾞﾃﾞｨの最後のﾊﾟｰﾄﾃﾞｻﾞｲﾝﾌｭｰﾁｬｰ
    Dim LastShape As Shape
    Set LastShape = Bd.Shapes.Item(Bd.Shapes.Count)
    
    'ﾌｭｰﾁｬｰのﾘﾌｧﾚﾝｽ
    Dim ShapeRef As Reference
    Set ShapeRef = Pt.CreateReferenceFromGeometry(LastShape)
    
    '抽出(ｻｰﾌｪｽ)したﾘﾌｧﾚﾝｽ
    Dim SurfRef As Reference
    Set SurfRef = CreateExtractRef(Pt, Fact, ShapeRef)
    
    '点とﾌｭｰﾁｬｰの距離
    Dim ShapeLng As Double
    ShapeLng = GetMaximumLength(Pt, PntRef, ShapeRef)
    
    '点と抽出の距離
    Dim SurfLng As Double
    SurfLng = GetMaximumLength(Pt, PntRef, SurfRef)
    
    '判断
    Dim Msg As String
    Msg = Pnt.Name & "は、" & Bd.Name & "の" & _
          IIf(ShapeLng = SurfLng, "外", "内") & _
          "側にあります"
    MsgBox Msg
    
    Call Fact.DeleteObjectForDatum(SurfRef)
End Sub

'抽出
Private Function CreateExtractRef( _
                    ByVal Pt As Part, _
                    ByVal Fact As HybridShapeFactory, _
                    ByVal Ref As Reference) As Reference
    Dim HSExt As HybridShapeExtract
    Set HSExt = Fact.AddNewExtract(Ref)
    With HSExt
        .PropagationType = 3
        .ComplementaryExtract = False
        .IsFederated = False
        .Compute
    End With
    
    Set CreateExtractRef = Pt.CreateReferenceFromGeometry(HSExt)
End Function

'最短距離測定
Private Function GetMaximumLength(ByVal Pt As Part, _
                                  ByVal Ref1 As Reference, _
                                  ByVal Ref2 As Reference) As Double
    GetMaximumLength = Pt.Parent.GetWorkbench("SPAWorkbench") _
                         .GetMeasurable(Ref1) _
                         .GetMinimumDistance(Ref2)
End Function