The API does not support this as yet.
However a crude method to apply imates when
placing the components through API. Before you insert the
components
atleast once invoke placecomponent command and
check "Use iMate" and cancel the dialog. One of the components
should
be placed through CommandManager as shown (VBA
macro) below.
Sub test()
Dim pos
As Matrix
Set pos =
ThisApplication.TransientGeometry.CreateMatrix()
pos.SetToIdentity
Dim occ1 As
ComponentOccurrence
Set occ1 =
ThisDocument.ComponentDefinition.Occurrences.Add("c:\part1.ipt",
pos)
sFname =
"c:\part2.ipt"
' Push the filename onto the Inventor
clipboard
Call
ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent,
_
sFname)
Call
ThisApplication.CommandManager.StartCommand(kPlaceComponentCommand)
End
Sub
Cheers,
-Thilak
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Our
end product is a combination of several assemblies which are placed on
(composit)Imates.
It is no problem to realize this manually.
Our
vba-programmer tries to place the assemblies by a program, but he doesn't know
how to activate the checkbox "use Imate" (place component).
The command
"replace componet" is no problem to program, so we work with dummies which has
to be replaced.
This is a workable solution, but what we want to do is to
place an assembly in stead of replace the assembly.
Is there a possibility
to activate the checkbox "use Imate" by a vba program
?
