Nach einem Makroeinstiegskurs für Dummies, habe ich das Makro etwas überarbeitet. Für Hilfen wie man es besser machen kann bin ich immer offen.
Option Explicit
Dim sMacroName As String
Dim sVersion As String
Dim oCATIA As Application
Sub CATMain()
Set oCATIA = CATIA
Dim oDoc As PartDocument
Set oDoc = oCATIA.ActiveDocument
Dim opart1 As Part
Set opart1 = oDoc.Part
Dim oSel 'As Selection
Dim oBody 'As Body
Set oSel = oCATIA.ActiveDocument.Selection
oSel.Clear
Set oBody = oCATIA.ActiveDocument.Part.Bodies.Add()
oBody.Name = "Rohteil_"
oSel.Add (oBody)
oSel.VisProperties.SetRealOpacity 0, 1
'-----------------------------------------------------------------
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = opart1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
hybridBody1.Name = "Aufbau"
opart1.UpdateObject hybridBody1
'-----------------------------------------------------------------
Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = hybridBody1.HybridBodies
Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies2.Add()
hybridBody2.Name = "Geometrie"
opart1.UpdateObject hybridBody2
'-----------------------------------------------------------------
Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = hybridBody2.HybridBodies
Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies3.Add()
hybridBody3.Name = "Hilfselemente (Punkte & Linien)"
opart1.UpdateObject hybridBody3
'-----------------------------------------------------------------
Dim hybridBodies4 As HybridBodies
Set hybridBodies4 = hybridBody2.HybridBodies
Dim hybridBody4 As HybridBody
Set hybridBody4 = hybridBodies4.Add()
hybridBody4.Name = "Flaechen & Ebenen"
opart1.UpdateObject hybridBody4
'-----------------------------------------------------------------
Dim hybridBodies5 As HybridBodies
Set hybridBodies5 = hybridBody2.HybridBodies
Dim hybridBody5 As HybridBody
Set hybridBody5 = hybridBodies5.Add()
hybridBody5.Name = "NCM & 3D Lochinfo"
opart1.UpdateObject hybridBody5
'-----------------------------------------------------------------
sMacroName = "Aufbauordner erstellen"
sVersion = "V1.0"
MsgBox "Macro ist beendet, Ordner NCM & 3D Lochinfo bleibt selektiert", vbInformation, sMacroName & "" & sVersion
End Sub
------------------
Ich hab keine Ahnung und davon sehr viel.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP