创建孔特征时,可以设置相对参考边的距离。这个信息通过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
'没有设置过
'获取孔所在平面