proe二次开发：装配添加约束求救

mydear

现在我在装配体里面有一个圆柱体，我现在通过程序将另外一个圆柱体添加进来并进行约束添加，添加进来了，但是我在添加约束的时候老是发生异常，我把代码贴出来大家看看帮帮忙吧。
: e. e! ~+ Q' P) }9 v) L+ y9 B; b        Dim model As IpfcModel
        model = session.CurrentModel
        Dim assembly As IpfcAssembly
* M7 _0 Y3 V7 }- P. ^. ?' B% q        assembly = CType(model, IpfcAssembly)
% V( Q" ?6 G/ g0 W8 o1 }
4 y: `  k5 Y* G$ [        MsgBox(CType(assembly, IpfcSolid).ListFeaturesByType(True, EpfcFeatureType.EpfcFEATTYPE_DATUM_AXIS).Count.ToString())
! o/ E2 m9 x5 f9 C        'MsgBox(CType(assembly, IpfcModelItemOwner).ListItems(EpfcModelItemType.EpfcITEM_AXIS).Count.ToString())

' [( }/ h6 {7 X8 A$ u+ Z        Dim models As IpfcModels
        models = session.ListModels()
        Dim asmmodelitemowner As IpfcModelItemOwner
+ x3 d% q4 ]9 }; x3 G; h        asmmodelitemowner = CType(models(1), IpfcModelItemOwner)//获取到原先已经添加进来的圆柱作为modelitemowner
2 c5 z% ~$ q" s
        Dim compmodelitemowner As IpfcModelItemOwner
        compmodelitemowner = CType(componentModel, IpfcModelItemOwner)//后来添加的圆柱owner
& ?  O: n/ C# J! R2 W2 X% B8 {        Dim asmitem As IpfcModelItem
        Dim compitem As IpfcModelItem
+ o' s5 r$ V% T% ^" b        Try
            asmitem = asmmodelitemowner.GetItemById(EpfcModelItemType.EpfcITEM_AXIS, Convert.ToInt32(assemblyitemID))//通过id获取我所选择的圆柱的中心轴。
            compitem = compmodelitemowner.GetItemById(EpfcModelItemType.EpfcITEM_AXIS, Convert.ToInt32(componentitemID))//通过id获取我所选择的圆柱的中心轴。
            Dim constrains As IpfcComponentConstraints
            Dim constrain As IpfcComponentConstraint
            constrains = New CpfcComponentConstraints
: |9 t) [9 h' x7 O& j! E            Dim ids As Cintseq
$ o, _& C" C* p0 [9 H$ z            Dim path As IpfcComponentPath
0 F4 r8 {! X: N0 d% g  A7 l0 J            ids = New Cintseq
7 H$ M. ~8 u4 N2 O& z7 n$ @2 x            path = (New CMpfcAssembly).CreateComponentPath(assembly, ids)//创建一个path
            Dim asmSelection As IpfcSelection
            Dim compSelection As IpfcSelection
//通过modelitem创建selection对象，作为下面的reference
            asmSelection = (New CMpfcSelect).CreateModelItemSelection(asmitem, Nothing)
; z- l6 F9 @% h' P9 P5 O            compSelection = (New CMpfcSelect).CreateModelItemSelection(compitem, Nothing)

% M' \6 o5 u  M7 u  a* o% K            constrain = (New CCpfcComponentConstraint).Create(EpfcComponentConstraintType.EpfcASM_CONSTRAINT_ALIGN)
            constrain.ComponentReference = asmSelection
            constrain.ComponentReference = compSelection
            'constrain.Offset = 10.0
            constrains.Insert(constrains.Count, constrain)
            assemblycompfeat.SetConstraints(constrains, path)//执行到这儿的时候发生异常
            assembly.Regenerate(Nothing)
0 T" {4 P  l: @6 U: l请大侠过目指点

lzkeane

constrain.ComponentReference = asmSelection
# D. C" B/ p6 j) d7 ?( x7 ^% g4 b% F7 C  N$ v0 ]/ _2 |            constrain.ComponentReference = compSelection
. I$ V# e6 b- c6 k这里错了