---

Hallo Zusammen,

ich möchte per Makor ein Werte des Radius (Variable Fillet) an dem Stützpunkt ändern.

Code:

---

Verrundung.ImposedVertexRadius(ReferenzPunkt).Value = "10"

---

Werte ändert sich, aber der Stützpunkt geht kaputt.
Nach dem Ablauf sieht man den Punkt gar nicht mehr.
Stützpunkt (im Stukturbaum) ----> RMB/Reframe ON: zeigt den komplett Variable Fillet

ich bedanke mich für Eure Hilfe im Voraus

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

---

Servus

Woher hast du den Referenzpunkt her?
Bei mir klappt es wenn ich den aus der Collection der "ImposedVertices" ermittle.
IMHO kannst du den Wert auch direkt zuweisen (nicht als Sting): .Value = 10

Code:

---

Dim ReferenzPunkt As Reference

Set ReferenzPunkt = Verrundung.ImposedVertices.Item(2)
Verrundung.ImposedVertexRadius(ReferenzPunkt).Value = 10

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für Deine Antwort.

Der Stützpunkt ist ein ganz normal 3D-Punkt (isoliert).
Anbei mein Code:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim varRadEdgeFillet1 As HybridShape
Set varRadEdgeFillet1 = hybridShapes1.Item("EdgeFillet.1")

Dim hybridShapePointOnCurve1 As HybridShape
Set hybridShapePointOnCurve1 = hybridShapes1.Item("Point.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)
'Set reference1 = varRadEdgeFillet1.ImposedVertices.Item(1)

Dim length1 As Parameter
Set length1 = varRadEdgeFillet1.ImposedVertexRadius(reference1)

length1.Value = 10.000000

part1.UpdateObject varRadEdgeFillet1

End Sub

---

Ich möchte den Wert durch "reference1" ändern.

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

---

Servus
Willst du nun einen Punkt hinzufügen oder den Wert an einem bestehenden Punkt ändern?
Kannst du nicht einfach den Punkt aus der "ImposedVertices"-Collection nehmen?(oder ist die "Nummer" des Punktes nicht bekannt)

Gruß
Bernd

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

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

---

Part2.CATPart

Hallo,

in diesem Fall:
Variable Fillet ist schon vorhanden (mit mehreren Punkte ---> die "Nummer" des Punktes sind unbekannt)
ich möchte weitere Punkte hinzufügen, dann die Werte ändern.
Zur Zeit läuft alles ganz schön unter VBA, aber ich soll nach dem Ablauf die Punkte kopieren, dann austauschen (Replace).
So werden die zugefügte Punkte wieder sichtbar sein.

EDIT:
Eine von Euch testen?

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim varRadEdgeFillet As HybridShape
Set varRadEdgeFillet = hybridShapes1.Item("EdgeFillet.1")

Dim reference1 As Reference
Set reference1 = varRadEdgeFillet.ImposedVertices.Item(3)

varRadEdgeFillet.ImposedVertexRadius(reference1).Value = 10

part1.UpdateObject varRadEdgeFillet

End Sub

---

Danke!

[Diese Nachricht wurde von imation1999 am 09. Jul. 2013 editiert.]

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

---

Servus
Bei mir funktioniert der Code wenn ich folgende Zeile anpasse:

Code:

---

Dim varRadEdgeFillet As varRadEdgeFillet

---

Gruß
Bernd

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

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

---

Danke!
Aber was ist mit "Point.1" nach Ablauf ?

Bei mir klappt es nicht!

[Diese Nachricht wurde von imation1999 am 09. Jul. 2013 editiert.]

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

---

Servus
Sonderbar, je nach an welchem Punkt ich den Radius ändere verschwindet der Punkt.
(CATDUA bringt keinen Fehler, der Bau sieht OK aus,alles ist aktuell, ein Aktualisieren des Punktes bring nichts)

Gruß
Bernd

EDIT: deaktivieren und wieder aktivieren blendet den Punkt wieder ein. Scheint ein Bug zu sein.

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

[Diese Nachricht wurde von bgrittmann am 09. Jul. 2013 editiert.]

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

---

Zitat:

---

deaktivieren und wieder aktivieren blendet den Punkt wieder ein. Scheint ein Bug zu sein.

---

nur Teilweise: nach wieder Aktivierung sieht man den Punkt, wenn es selektiert ist.
Aber wird wiederverwendbar sein.

Vielen Dank für die Mühe.

EDIT:
1) Makro laufen lassen
2) Punkte deaktivieren, wieder aktivieren
3) CATDUAV5
4) Save...
5) Open...
6) Punkte sind OK

[Diese Nachricht wurde von imation1999 am 09. Jul. 2013 editiert.]

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