我完全懂你遇到的问题——当直线和点不在同一平面时，默认的测量逻辑可能只会考虑直线的现有线段范围，而不是把它当作无限延伸的直线来计算最短距离，这就是你得不到预期结果的原因。要实现你说的“Any geometry infinite”测量方式，关键是在获取Measurable对象时，指定几何拓展的模式。

修正后的VBA代码 #

' 首先定义CATIA测量拓展模式的常量（如果未引用CATIA类型库，可直接用数值1）
Const CATMeasurableExtrapolationInfinite As Long = 1

Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument

Dim ptRef As Reference
Set ptRef = partDoc.Part.CreateReferenceFromObject(pt1) ' 创建点参考

Dim lineRef As Reference
Set lineRef = partDoc.Part.CreateReferenceFromObject(line1) ' 创建直线参考

Dim spaWorkbench As SPAWorkbench
Set spaWorkbench = partDoc.GetWorkbench("SPAWorkbench")

' 获取可测量对象时，指定第二个参数为无限拓展模式
Dim theMeasurable As Measurable
Set theMeasurable = spaWorkbench.GetMeasurable(lineRef, CATMeasurableExtrapolationInfinite)

' 计算点到无限直线的最短距离
Dim dist1 As Double
dist1 = theMeasurable.GetMinimumDistance(ptRef)

MsgBox "点到无限直线的最短距离为: " & dist1, vbInformation

关键说明 #

• 原来的代码调用GetMeasurable时只传了一个参数，默认会使用CATMeasurableExtrapolationNone（不拓展，只考虑原始几何），所以如果你的line1是模型中的有限线段，测量的是点到该线段的最短距离，而非无限直线。
• 通过添加第二个参数CATMeasurableExtrapolationInfinite，我们告诉CATIA将直线视为无限延伸的几何元素，这样计算出的就是点到这条无限直线的垂直距离，完全符合你的需求。
• 如果你的VBA项目已经引用了CATIA的类型库（比如CATIA V5 Object Library），可以直接使用枚举常量，不用手动定义数值；如果没引用，直接写1也可以（这个常量在CATIA API中的对应值就是1）。

内容的提问来源于stack exchange，提问作者user9087288