Hallo!
Habe ein Problem mit einem Teil Makro, das ich später um weitere Funktionen erweitern möchte.
Und zwar geht es im ersten Schritt darum, aus einem vorhanden Product einen Part zu erstellen. Das realisiere ich so:
Code:
Sub GenerateCATPartFromProduct()
Dim ActDoc As ProductDocument
Set ActDoc = CATIA.ActiveDocument
Dim MySel As Selection
Set MySel = CATIA.ActiveDocument.Selection
MySel.Add ActDoc.Product
CATIA.RefreshDisplay = True
CATIA.StartCommand "Generate CATPart from Product..."
CATIA.RefreshDisplay = TrueDim PauseTime, Start, Finish, TotalTime
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
CATIA.RefreshDisplay = True
SendKeys "{Enter}", True
End Sub
Allerdings erzeugt dieses Makro nur einen Part vom gesamten Product. Ich allerdings möchte vorher bzw. nach Aufforderung ein bestimmtes Bauteil aktivieren (über Products selection), sodass es nur dieses Bauteil als Part ausgibt. Manuel funktioniert das ja, wen ich einen Teil aktiviere nimmt es dann nur diesen zur Generierung des Parts.
Wie spreche ich das aktive Element an? derzeit erstellt es wie gesagt nur den part aus dem gesamten Product.
Kann ich außerdem festlegen, dass die Option Merge all Bodys inaktiv ist? Das benötige ich um bestimmte Elemente aus dem neuen Part zu löschen!
Ich muss das auch immer GenerateCatPart machen, da es nur somit in jedem Fall die Gesamtproduct-Ausrichtung/Koordinaten übernimmt. Einen anderen Weg, etwa über Copy& Paste special, habe ich noch nicht gefunden, der mir garantiert das richtige Koordinatensystem mitnimmt. Besonders Normteile übernehmen dann ihre eigene Ausrichtung, nicht die aus dem Gesamtproduct.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP