---

Hallo,

ich habe mir mal ein Makro erstellt, das auf einer Linie die ausgewählt werden muss 3 Punkte in einem gewissen Verhältniss erstellt.
Seit einem Update funktioniert dies aber nicht mehr..

kann mir einer Helfen?

Hier der Code

Language="VBSCRIPT"

Sub CATMain()

'Variablen Deklarieren
Dim Linie, Catiadokument, Auswahl, InputObjectType(0)

'Actives CatiaFenster festlegen
Set Catiadokument = CATIA.ActiveDocument.Part

'Typ Linien zur Auswahl einschränken
InputObjectType(0) = "Line"

'Ausgewählte Linie als Variable speichern
Set Auswahl= CATIA.ActiveDocument.Selection

Auswahl.Clear
Status = Auswahl.SelectElement2(InputObjectType, "Bitte eine Linie auswählen...",False)

If (Status <> "Normal") Then
Exit Sub
Else
Set Linie= Auswahl.Item(1)
Auswahl.Clear
End If

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Grundelemente (basic elements)")

Set hybridShapes1 = hybridBody1.HybridShapes

'Variable-Namen abfragen
Set hybridShapeLinePtDir1 = hybridShapes1.Item(Linie.value.name)

Hier kommt der Fehler.. weiß leider nicht warum

Danke im vorraus

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

---

Servus
Warum willst über den Namen auf die Linie zugreifen, du hast diese doch zuvor selektiert.
Mit "Set Linie= Auswahl.Item(1).value" hast du schon deine Linie und kannst direkt mit dieser weiterarbeiten.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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