孔特征中心与参考边的距离

孔特征与参考边及面的距离获取

原创

于 2016-02-14 13:15:35 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了在创建孔特征时如何通过API获取相对于参考边的距离，包括HoleFeature.PlacementDefinition.DistanceOne和HoleFeature.PlacementDefinition.DistanceTwo。同时，当没有设置参考边时，这些距离将无效。此外，还提供了查询孔特征与特定面距离的方法，即使用Face.Geometry.DistanceTo，前提假设Face.Geometry为平面。

创建孔特征时，可以设置相对参考边的距离。这个信息通过API的 HoleFeature.PlacementDefinition.DistanceOne 和 HoleFeature.PlacementDefinition.DistanceTwo 可以拿到。

如果没有设置过参考边，那DistanceOne 和DistanceTwo 就为无效对象。要得知孔距离周围边的距离，可以通过以下方式得知。

Sub getHolePlacement()

    '假设预先选择一个孔特征
    Dim oHoleF As HoleFeature
    Set oHoleF = ThisApplication.ActiveDocument.SelectSet(1)
    
    '得到HolePlacementDefinition
    Dim oPlaceDef As HolePlacementDefinition
    Set oPlaceDef = oHoleF.PlacementDefinition
    
    '先看看是否设置过参考边
    Dim oDisOne As Parameter
    Dim oDisTwo As Parameter
    
    On Error Resume Next
    Set oDisOne = oPlaceDef.DistanceOne
    
    If Err.Number > 0 Then
    
        
        '没有设置过
        
        '获取孔所在平面