---

Hallo,

ich möchte mittels VBA die Kanten eines Zylinders für eine EdgeCollection selektieren. Im Detail habe ich zuvor einen Zylinder mittels VBA erstellt und möchte nun eine Fase anbringen. Hierzu sollen die beiden Kanten des Zylinders genutzt werden. Hier ein Auszug meines Codes:

    Dim oExtrude As ExtrudeFeature                                             
    Set oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile, b * f,  kSymmetricExtentDirection, kJoinOperation)

    Dim oEdgeCollection As EdgeCollection                             
    Set oEdgeCollection=ThisApplication.TransientObjects.CreateEdgeCollection
   
    Dim oEdge As Edge                                                 
    For Each oEdge In oExtrude.Faces.Item(2).Edges
        oEdgeCollection.Add oEdge
    Next
   
    Dim oFace As Face
    Set oFace = oCompDef.SurfaceBodies.Item(1).Faces.Item(2)
   
    Dim oChamfer_Rad As ChamferFeature
    Set oChamfer_Rad = oCompDef.Features.ChamferFeatures.AddUsingDistanceAndAngle(oEdgeCollection, oEdge, 0.2, 60, True, False)

Wenn mir da einer auf die Sprünge helfen könnte, wäre ich sehr dankbar. Habe das Forum auch schon danach abgegrast aber leider nichts entsprechendes gefunden.

Vielen Dank im voraus für die Hilfe!

------------------
Gruß,
Stevie

[Diese Nachricht wurde von stevieda am 27. Jul. 2005 editiert.]

[Diese Nachricht wurde von stevieda am 27. Jul. 2005 editiert.]

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

---

2 Fehler:

Fehler 1: als zweites Argument übergibst du eine Kante. Erwartet wird aber eine Fläche
Fehler 2: Du übergibst den Winkel als Value in Graden. Entweder du übergibst den Winkel in Graden als String, oder in Radianten als Value. Hier ein Auszug aus der Hilfe:

Zitat:

---

Angle
Input Variant that defines the angle for the chamfer. This can be either a numeric value or a string. A parameter for this value will be created and the supplied string or value is assigned to the parameter. If a value is input, the units are radians. If a string is input, the units can be specified as part of the string or it will default to the current angle units of the document.

---

Also, das hier funzt:

Code:

---

    Set oChamfer_Rad = oCompDef.Features.ChamferFeatures.AddUsingDistanceAndAngle(oEdgeCollection, oFace, 0.2, "60", True, False)

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Hallo daywa1k3r,

vielen Dank für die Hilfe! Natürlich! Hätte ich auch selber darauf kommen müssen. Aber irgendwann sieht man den Wald vor lauter Bäumen nicht. So funktioniert es.

------------------
Gruß,
Stevie

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