Hallo Denis,
dies hier sagt die Hilfe zu Deiner Frage:
PointCoordinates
Returns or modifies the X, Y, and Z coordinates of a point object.
Syntax
Rhino.PointCoordinates (strObject [, arrPoint])
Parameters
strObject
Required. String. The identifier of a point object.
arrPoint
Optional. Array. A new 3D point location.
Returns
Array
If arrPoint is not specified, the current 3D point location if successful.
Array
If arrPoint is specified, the previous 3D point location if successful.
Null
If not successful, or on error.
Example
Const rhObjectPoint = 1
Dim strObject, arrPoint
strObject = Rhino.GetObject("Select point", rhObjectPoint)
arrPoint = Rhino.PointCoordinates(strObject)
If IsArray(arrPoint) Then
Rhino.Print Rhino.Pt2Str(arrPoint, 3)
End If
In Deinem Beispiel muss Du halt einen neuen Punkt erzeugen, der die X- und Y-Koordinate der Punkte übernimmt (das sind die beiden ersten Werte in dem Array hier arrPoint(0) und arrPoint(1) ) und als Z-Koordinate (letzter Wert in dem Array arrPoint(2) ) das Ergebnis Deiner Rechnung.
Gruß, Kransemann
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP