---

Hallo,

ich möchte gerne einen Punkt im Raum mit VB definieren. In der Skizze kann man das mit Point2d machen. Die Funktion Point3d gibt es leider nicht. Gibt es vielleicht eine Alternative ?
Vielen Danke
Marwene

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

---

3D Point ist einfach Point. Ich habe mal ein WorkPoint gemacht, so dass du es besser sehen kannst...

Code:

---

Public Sub test_point()
   
    Dim oPoint As Point
    Dim oWP As WorkPoint
   
    Set oPoint = ThisApplication.TransientGeometry.CreatePoint(2, 2, 2)
    Set oWP = ThisApplication.ActiveDocument.ComponentDefinition.WorkPoints.AddFixed(oPoint)
   
End Sub

---

Das Ganze jetzt als VBA. In VB musst du ThisApplication durch Inventor.Application Object ersetzen.

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

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

---

Hallo Daywalker,
kann man dem Punkt auch Benutzerdefinierte Parameter zuweisen, um diesen damit zu steuern?

------------------
Gruß
Hans-Peter
 
Der Wahnsinn in Sachen Musik.

   Das Saxregister

[Diese Nachricht wurde von SHP am 10. Mai. 2004 editiert.]

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

---

Du kannst X, Y und Z von dem Punkt ändern. Und wenn du WorkPoint beeinflussen willst, dann musst du über die Definition den neuen Punkt übergeben:

Code:

---

Sub Point_Data()
    Dim oPoint As Point
    Dim oWP As WorkPoint
   
    Set oPoint = ThisApplication.TransientGeometry.CreatePoint(0, 0, 0)
    Set oWP = ThisApplication.ActiveDocument.ComponentDefinition.WorkPoints.AddFixed(oPoint)
   
    MsgBox "Zuvor: " & oWP.Point.x & " x " & oWP.Point.y & " x " & oWP.Point.Z
   
    oPoint.x = 10
    oPoint.y = 20
    oPoint.Z = 30
   
    oWP.Definition.Point = oPoint
   
    MsgBox "Danach: " & oWP.Point.x & " x " & oWP.Point.y & " x " & oWP.Point.Z
End Sub

---

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

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

---

Das heist im Klartext, eine Zuweisung von Parametern geht nicht.
Ich kann nur den Wert des Parameters übergeben.
Hab das so richtig verstanden?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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