Hallo zusammen,
Ich habe in einem Product weitere Product und Parts.
Mit meinem Code möchte ich ein Part im Baum selektieren und aktivieren, so dass ich es innerhalb des Products bearbeiten kann ( z.B. Bodys kopieren ).
Mit meinem Code schaffe ich es, das Part zu suchen und selektieeren ( wird gehighlighteted ), aber ich schaffe das aktivieren nicht innerhalb des Products.
Es geht immer nur ein neues Part auf.
Das Ganze ist in vb.NET
Mein Code:
Dim myCatiaApp As INFITF.Application
Dim myCatiaDoc As MECMOD.PartDocument
Dim myPart As MECMOD.Part
Dim mySelection As INFITF.Selection
Dim myProduct As ProductStructureTypeLib.Product
Dim myProduct2 As ProductStructureTypeLib.Product
Dim myProductDoc As ProductStructureTypeLib.ProductDocument
Dim myCount As Integer
Dim myName As String
myProductDoc = myCatiaApp.ActiveDocument
myProduct = myProductDoc.Product
' Zählt Elemente der 1. Ebene im Product / Struktur
myCount = myProductDoc.Product.Products.Count()
'Greift den Namen des letzten Elements des Products ab
myName = myProductDoc.Product.Products.Item(myCount).Name
mySelection = myProductDoc.Selection
'Sucht das Element mit dem abgegriffenen Namen
myProductDoc.Selection.Search("Name='myName*',sel")
myProduct2 = myProduct.Products.Item(myName)
mySelection.Add(myProduct2)
myCatiaDoc = myProduct2.ReferenceProduct.Parent
myPart = myCatiaDoc.Part
mySelection.Add(myPart)
myPart = mySelection.Item2_
(1).Value.ReferenceProduct.Parent.part
myCatiaApp.StartWorkbench("PrtCfg")
Habe es auch anstatt letzter Zeile versucht mit:
' myCatiaApp.StartCommand(DesignMode)
'myCatiaApp.ActiveDocument.GetWorkbench_
("CATShapeDesignWorkbench")
'myCatiaApp.StartWorkbench("CATShapeDesignWorkbench")
Der Befehl DesignMode funktioniert gar nicht mit einem Part und bei den anderen allen geht immer ein neues Part auf.
Danke für eure Hilfe!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP