Hi,
im Buch "Effiziente Konstruktion mit Makros" findest Du auf S. 52 das Beispiel 2.13. Wenn Du anstelle des Schweißpunktes den unten stehenden Suchbegriff verwendest, findet das Script alle "HybridShapePlaneTangent"s. Falls Du eine englische CATIA-Version verwendest, kannst Du den Suchbegriff im Such-Fenster nachbauen und dann übernehmen.
Sub CATMain()
' -----------------------------------------------------------
' Alle tangentialen Ebenen suchen ---------------------------
' -----------------------------------------------------------
Dim Liste As Collection
Set Liste = CATIA.ActiveDocument.Selection
Liste.Clear
Liste.Search "'Generative Shape Design'.'Ebene Tangente';Alle"
End Sub
------------------
Tschüß, Dieter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP