hi
i want to creat iassembly member with macro
i write below code but give error "type mismatch"
how can i creat iassembly members with macro
Private Sub RegenerateExisting()
On Error Resume Next
' Open the factory document
Dim oFacDoc As AssemblyDocument
Set oFacDoc = oInventorApp.Documents.Open(sFacFullFileName)
Dim oCompDef As AssemblyComponentDefinition
Set oCompDef = oFacDoc.ComponentDefinition
Dim iNumRows As Integer
Dim oiPrtFac As iAssemblyFactory
Set oiPrtFac = oCompDef.iAssemblyFactory
iNumRows = oiPrtFac.TableRows.Count
Dim iRow As Integer
Dim oRow As iAssemblyTableRow
For iRow = 1 To iNumRows
' Need to retrieve the factory each time since the
' table objects are only valid for one transaction
Set oiPrtFac = oCompDef.iAssemblyFactory
Set oRow = oiPrtFac.TableRows(iRow)
' Get the filename for the row
Dim sMemFileName As String
sMemFileName = oRow.PartName
' Check if this file exists in the member file folder
If DoesFileExist(sMemFolderLoc + sMemFileName) = True Then
' Regenerate the member
Dim oMem As iAssemblyMember
Set oMem = oiPrtFac.CreateMember(iRow) {color:#ff0000}' This is row to give error{color}
Dim oMemDoc As Document
Set oMemDoc = oMem.Parent.Document
' Update the member
oMemDoc.Update
oMemDoc.Save
oMemDoc.Close
End If
Next
oFacDoc.Close
End Sub
