Type mismatch error

[Anonymous]

I am trying to create a circular pattern of a hole feature in an assembly with ilogic but i get a type mismatch error. Can anyone see what i am not seeing???

oDoc=ThisApplication.ActiveEditDocument

oHole= ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyFeatureFilter, "Select a hole feature")
		
oaxis = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllCircularEntities, "Select a hole circle edge")
Dim amount As Object = 4
Dim angle As Object = 360 * 180 / 3.14

circularPatternDef=oDoc.ComponentDefinition.Features.CircularPatternFeatures.CreateDefinition(oHole,oaxis,False,amount,angle,True)
		
Dim circularPat As CircularPatternFeature =oDoc.ComponentDefinition.Features.CircularPatternFeatures.AddByDefinition(circularPatternDef)

[Sergio.D.Suárez]

Hi, try with this code. There were some mistakes. For start the axis entity must be linear. On the other hand you have to specify a collection of objects to make the pattern in your case there is only one.

oDoc=ThisApplication.ActiveEditDocument

Dim objCol As ObjectCollection
objCol = ThisApplication.TransientObjects.CreateObjectCollection
oHole= ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyFeatureFilter, "Select a hole feature")
objCol.Add(oHole)

oaxis = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllLinearEntities, "Select linear center edge")
Dim amount As Object = 4
Dim angle As Object = 360 * 180 / 3.14

'create pattern
Dim circularPat As CircularPatternFeature = oDoc.ComponentDefinition.Features.CircularPatternFeatures.Add(objCol, oaxis, False, amount, angle, True)

 I hope the code is useful for solving your problem. regards

[Anonymous]

Thanks for the code and fast reply

It creates a circular pattern with an error.

When i checked the health status of the circularfeature  i get this status:

kDriverLostHealth

11780

Object is driven by data from other Object(s), and one or more of them have been disconnected.

Is there a way to correct this error??