你好，看到了您在知道里提的关于在VB里做CATIA二次开发的问题，不知道已经解决了没有？

我现在也想做CATIA二次开发遇到了同样的问题，缺少工程引用库，请问您用的是CATIA哪个版本？期待您的回复，万分感激~

是想用VB直接驱动CATIA吗？可打开VB，在其工程引用中会有诸多关于CATIA的选项，全部勾选；与CATIA 的版本关系不是很大，我驱动过17、19、20版本的，都可以。打开CATIA需要特定语句，此外，如果想建PART文件的话，需要修改环境变量。

这个函数可以测量两个线的最短距离，你改一下，应该可以测量点与线之间的距离 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