Hi Sanjay,
I will try to create a dataset which demonstrates the problem.
But I would also like to try the now hidden old AddUsingiMates method , but
I am getting a compile error!
This is the sub I have written:
Public Sub AddToAssemblyUsingiMates(sOccurrence As String, sAssembly As
String, Optional bVisible As Boolean = True, Optional bSaveAndCloseAssembly
As Boolean = False)
On Error GoTo ErrorHandler1:
Dim oAssDoc As AssemblyDocument
Set oAssDoc = InventorApp.Documents.Open(sAssembly, bVisible)
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = oAssDoc.ComponentDefinition
Dim oMatrix As Matrix
Set oMatrix = InventorApp.TransientGeometry.CreateMatrix
Dim oOcc As ComponentOccurrence
Set oOcc = oAsmCompDef.Occurrences._AddUsingiMates(sOccurrence, oMatrix)
<--- Compile error: Invalid Character
If bSaveAndCloseAssembly = True Then
oAssDoc.Save
oAssDoc.Close
End If
ErrorHandler1:
If Err <> 0 Then
MsgBox sOccurrence & " could not be added to the assembly",
vbInformation
Err.Clear
End If
Set oAssDoc = Nothing
Set oAsmCompDef = Nothing
Set oMatrix = Nothing
Set oOcc = Nothing
End Sub
I must be doing something wrong...I guess it's still too early here... 😉
--
T. Ham
CAD Automation & Systems Administrator
CDS Engineering BV
HP xw4300 Workstation
Dual Pentium XEON 3.6 Ghz
4 GB SDRAM
NVIDIA QUADRO FX 3450/4000 SDI (Driver = 8.4.2.6)
250 GB SEAGATE SATA Hard Disc
3Com Gigabit NIC
Windows XP Professional SP2
Autodesk Inventor Series 10 SP3a
--
