Question

CATIA VB.Net

各位大神，小弟写论文遇到各种坑爹问题，还望群里各位大大指导 T ^ T ：
如图有两个零件，

我想在vb中实现间距测量的功能，就是点到线的最小距离。

我看的是胡挺编写的CATIA二次开发技术基础，找了很久没有找到测量间距的代码，跪求各位大神赐教啊。
我用的是vb.net，需要引用什么东西吗？我看网上写measureable对象，但是我输进去vs不能帮我智能填写出measureable对象，究竟是该咋做呀？





Answer 1

这个函数可以测量两个线的最短距离，你改一下，应该可以测量点与线之间的距离
Function GetDistance(EdgeRef1, EdgeRef2)
Dim CurrentMeasurable ' As Measurable
Set TheSPAWorkBench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Dim TempDistance
Set CurrentMeasurable = TheSPAWorkBench.GetMeasurable(EdgeRef1)
TempDistance = CurrentMeasurable.GetMinimumDistance(EdgeRef2)
GetDistance = TempDistance
End Function

追问

我在vs里dim CurrentMeasurable ' As Measurable 

measurable不能智能追踪

是不是缺少什么引用啊？

追答

应该引用CATIA V5 SpaceAnalysisInterfaces Object Library，案例说是应该默认就应用好的。