From the API reference it is not clear how to use function AssemblyPatterns.Create( PatternName, MasterOccurrences, FeaturePattern, ReferenceFeature) and what arguments to pass.
I used the following sample in VB to create a new AssemblyPattern but it always failed.

Dim objOccArray(1 To 1) As Object
Set objOccArray(1) = objAssmDoc.Occurrences(2)
Dim Occ As SolidEdgeAssembly.Occurrence
Occ = objAssmDoc.Occurrences(1)
Dim objPart As SolidEdgePart.PartDocument
objPart = Occ.OccurrenceDocument       
objPattern = objPart.Models(1).Patterns.Item(1)
HoleObj = objPart.Models(1).Holes(1)

objAsmPattern = objAssmDoc.AssemblyPatterns.Create("MyPattern", objOccArray, objPattern, HoleObj) 

I also tried to get parameters from already existing AssemblyPattern and used them to create another AssemblyPattern. To get parameters I used function AssemblyPatterns.GetInputs( ... ). Then I deleted the old AssemblyPattern and tried to create a new one using the retrieved parameters. But AssemblyPatterns.Create(...)  failed again.

Thanks

Hi Sergey,

your way is good, but your objects are from Part and not from Assembly. You must create references extra for the Assembly:

Dim objRefPattern as Object
objRefPattern = objAssmDoc.CreateReference(Occ, objPattern)
Dim objRefHole as Object
objRefHole = objAssmDoc.CreateReference(Occ, HoleObj)
'and
objAsmPattern = objAssmDoc.AssemblyPatterns.Create("MyPattern", objOccArray, objRefPattern, objRefHole)

Regards
JR

My version is 20.00.15.05. Try again after instalation of Service Pack 15.

After installing SP15 Solid Edge all the time throws exception when I call the method

Dim Occs As SolidEdgeAssembly.Occurrences
Occs = objAsmDoc.Occurrences

I even don't know what to do... probably somehow initialize assembly or something else