|
INVENTOR VBA : Befehl Komponente platzieren ohne Dialog
mranderson am 26.06.2006 um 09:17 Uhr (0)
Hallo allerseits!Ich hätte da auch gern mal wieder ein Problem ...Wie schaffe ich es, ein Teil in einer Baugruppe, dass ich manuell ausgewählt habe, durch ein anderes zu ersetzen (bzw. zu löschen und ein neues Teil mit den gleichen Abhängikeiten zu platzieren)?Der Befehl ComponentOccurrence.Replace ist mir bereits bekannt. Allerdings wie sage ich dem, welches Teil diese ComponentOccurrence ist? Das muss doch irgendwie über Set ComponentOccurrence = xxx sein ... aber wie genau?Wenn mir dabei jemand helfen k ...
| | In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Befehl Komponente platzieren ohne Dialog
mranderson am 19.06.2006 um 09:45 Uhr (0)
Guten Morgen!Also normalerweise platziert man eine Komponente meines Wissens überCode:Dim oApp As Inventor.ApplicationDim oAsmCompDef As AssemblyComponentDefinitionDim oTG As TransientGeometryDim oMatrix As MatrixDim oOcc As ComponentOccurrenceSet oAsmCompDef = oApp.ActiveDocument.ComponentDefinitionSet oTG = oApp.TransientGeometrySet oMatrix = oTG.CreateMatrixCall oMatrix.SetTranslation(oTG.CreateVector(0, 0, 0))Set oOcc = oAsmCompDef.Occurrences.Add(dateipfad, oMatrix)Wie das mit dem austauschen ist weiß ...
| | In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : iPart in Baugruppe durch anderes iPart der gleichen iFactory tauschen
mranderson am 10.07.2006 um 15:18 Uhr (0)
Also ...Nach längerer Recherche habe ich endlich so gut wie geschafft, ein iPart-Member durch ein anderes zu ersetzen. Die Sache ist eigentlich ganz einfach, funktioniert aber wohl nur mit custom iParts. Mit IsiPart bin ich irgendwie nicht so ganz weiter gekommen.Das Problem bei mir is jedoch, dass sich das zu ersetzende iPart auch noch in einer Unterbaugruppe befindet.So funktionierts:Code:Set oAsm = oApp.ActiveDocumentSet oOcc1 = oAsm.ComponentDefinition.Occurrences(2)oOcc1.EditSet oOcc2 = oOcc.SubOccurr ...
| | In das Form INVENTOR VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
