---

Hallo zusammen!

Versuche mich gerade an einem Makro, dass um alle erzeugten Linien einen Zylinder erstellt. Dachte mir jetzt, dass ich am besten zuerst alle Elemente mit dem Namen „Line“ suchen lasse und um die dann mittels sweep einen Zylinder erstelle.
Mit folgenden Code führe ich meine suche durch.

Dim Suche
Set Suche = CATIA.ActiveDocument.Selection
Suche.Clear
Suche.Search "..Name=Line*;Alle"

Wie kann ich jetzt aber mit den einzelnen Linien weiter arbeiten.
Hab es mit einem array versucht.

Also: reference1 = Suche.Item(I)

Klappt jedoch leider nicht.

Viel Dank schon einmal im voraus!

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

---

Hallo Pjack,

das sollte genau so funktionieren wie du schon versucht hast. dir fehlt aber in folgende Zeile noch ein ".value"

 

Zitat:

---

Also: reference1 = Suche.Item(I)

---

also:

Code:

---

reference1 = Suche.Item(I).value

---

Edit:

Hab nochmal einen ganzen Code damits ein bisschen übersichtlicher wird:

Code:

---

Sub CATMain()

Set oDoc = CATIA.ActiveDocument
Set oSel = oDoc.Selection
oSel.Search "CATPrtSearch.Line,all"

For i = 1 To oSel.Count
Set oLine = oSel.Item(i).Value
Next

End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

[Diese Nachricht wurde von denyo_1 am 14. Okt. 2008 editiert.]

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

---

Hallo,
mit "sweep" einen Zylinder zu erstellen, dazu gibt es die Funktion Zylinder, Linie alleine reicht nicht aus du brauchst auch die Punkte um Richtung vorzugeben.

Gruß

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

---

Klappt wunderbar. Vielen Dank für die schnelle Antwort!

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