---

Hallo gibt es eine andere Möglichkeit als die unten von mir aufgeführte, um Objekte (in meinem Fall Punkte) direkt auszublenden ohne, dass man erst eine Selection erstellen muss? ich hab im Moment ne Datei mit "nur" 1920 Punkten... und da dauert es schon n Weilchen, bis er die ganzen Punkte ausgewählt hat...

Gruß Jürchen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hoppla...

Hab da wohl den Code vergessen 

Sub CATMain()

Dim partDocument1 As PartDocument
Dim selection1 As Selection
Dim visPropertySet1 As VisPropertySet
Dim part1 As Part
Dim hybridBodies1 As HybridBodies
Dim hybridBody1 As HybridBody
Dim hybridShapes1 As HybridShapes
Dim hybridShapePointCoord1 As HybridShapePointCoord
Dim bSTR1 As String
Dim bSTR2 As String
Dim bSTR3 As String

Dim profilzahl As Integer
Dim Koordinatenzahl As Integer

profilzahl = 12
Koordinatenzahl = 160

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("GeometryFromExcel")
Set hybridShapes1 = hybridBody1.HybridShapes

For i = 1 To profilzahl * Koordinatenzahl Step 1
    Set hybridShapePointCoord1 = hybridShapes1.Item("Punkt." & i)
    Set hybridShapes1 = hybridShapePointCoord1.Parent

    bSTR1 = hybridShapePointCoord1.Name

    Set selection1 = partDocument1.Selection
    Set visPropertySet1 = selection1.VisProperties

    selection1.Add hybridShapePointCoord1

    Set visPropertySet1 = visPropertySet1.Parent

    bSTR2 = visPropertySet1.Name
    bSTR3 = visPropertySet1.Name
Next

'0 = visible / 1 = invisible
visPropertySet1.SetShow 1

selection1.Clear

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jürgen,

zum einen kannst du deine Schleife optimieren, da ist einiges drin, was unnötig ist:

Code:

---

Set selection1 = partDocument1.Selection
Set visPropertySet1 = selection1.VisProperties
For i = 1 To profilzahl * Koordinatenzahl Step 1
    selection1.Add hybridShapes1.Item("Punkt." & i)
Next
visPropertySet1.SetShow 1

---

Das wird die Laufzeit aber wohl nicht ausreichend verkürzen.

Daher würde ich folgendes machen:

Wenn in dem GeoSet "GeometryFromExcel" nichts anderes liegt, einfach das GeoSet ausblenden?!

Oder

Mit Selection.search arbeiten:

Code:

---

selection1.clear
selection1.add hybridBody1 ' = GeoSet "GeometryFromExcel"
selection1.search ("Name=Punkt.*;sel") 'Alle Punkte selektieren
visPropertySet1.SetShow 1

---

Das fluppt schneller!

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP