我为catiav5创建了自己的自动化接口。我的接口实现了一个CAA接口。
下面是SetComment方法的示例实现。CAIAinterface是个假名字// MyXYZClass : SetComment
HRESULT MyXYZClass::SetComment( CATISpecObject_var ispObject, const
CATBSTR &irComment )
{
CAAInterface_var spInfo = ispObject;
if( !!spInfo )
{
CATUnicodeString commentToSet;
commentToSet.BuildFromBSTR( irComment );
spInfo->SetComment( commentToSet );
}
return S_OK;
}
我在CATIA环境中使用CATScript进行了测试:
^{pr2}$
另外,我创建了visualstudioVB项目,添加了引用->COM->类型库(我的CATIA V5 MyXYZAutInterf。如果CATIA正在运行,我可以看到它)。在Imports System.Runtime.InteropServices
Imports MyXYZAutInterf
Imports MECMOD
Imports ProductStructureTypeLib
' attach catia
Sub Main()
' retrieve ASMPRODUCT of Part or Product
Dim product As Pr