---

Hallo zusammen,

ich bin ganz neu und hab auch gleich eine Frage.
und zwar möchte ich per VBS einen Punkt in ein gewisses Geoset kreieren der dann auch mit einem Parameter verbunden ist
ich bin soweit gekommen: (muß dazu sagen das ich was VBS angeht ich noch blutiger Anfänger bin)

set mypart=catia.activeDocument.part
Set xwert = mypart.parameters.item("X_Wert")

set xvalue = xwert.value

Set Geoset = mypart.HybridBodies
Set GeoAdd = Geoset.item("Basis")'ich möchte aber den in ein unter Basis befindlichen geoset"Punkte" den punkt reinbringen
Set Geometrie = mypart.HybridShapeFactory
Set koordpunkt = Geometrie.AddNewPointCoord(xvalue, 0.000000, 0.000000)

GeoAdd.AppendHybridShape koordpunkt

Gruß
Garamond77

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Du bist schon auf dem richtigen Weg. Anbei eine mögliche Lösung:

Code:

---

Sub CATMain()

Set mypart= catia.activeDocument.part
Set xwert = mypart.parameters.item("X_Wert")

Set hybridShapeFactory1 = mypart.hybridShapeFactory
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0, 0, 0)

Set hybridBodies1 = mypart.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Basis")
Set hybridBodies2 = hybridBody1.HybridBodies
Set hybridBody2 = hybridBodies2.Item("Punkte")

hybridBody2.AppendHybridShape hybridShapePointCoord1
Set formel = mypart.Relations.CreateFormula("Formel 1", "", hybridShapePointCoord1.X, mypart.parameters.GetNameToUseInRelation(xwert))

mypart.Update
End Sub

---

Näheres sie auch Doku und Forensuche.

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 28. Sep. 2011 editiert.]

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

---

Hallo Bernd,

das war super Unterstützung genauso wollte ich es machen.

Vielen Dank
Manuel

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