Hallo Zusammen!
hoffentlich kann mir jemand weiterhelfen, ich komme nicht mehr weiter.
folgendes Problem:
Ich möchte die Koordinaten eines Arbeitspunktes in dem Benutzerdefinierten Koordinatensystems bekommen.
Allerdings scheitere ich kläglich daran.
Eigentlich dachte ich das ich mir nur den Punkt holen muss und mit der TransformBy-Methode welcher ich die Transformations-Matix des Benutzerdefinierten Koordinaten Systems mitgebe schon die richtigen koordinaten erhalte. Dies ist allerdings nicht so.
folgendes beispiel - neues BKS eingefügt - Originalpunkt(Mittelpunkt) des BKS geholt - TransformBy mit dem BKS sollte eigentlich dieser neue Nullpunkt sein. Ist es aber nicht.
Ich verstehe es nicht.
mit folgendem Code habe ich getestet:
Dim p As PartDocument
Dim point As point
Dim u As UserCoordinateSystem
Set p = ThisDocument
Set u = p.ComponentDefinition.UserCoordinateSystems.Item(1)
Set point = u.Origin.point
Debug.Print u.Origin.Name
Debug.Print "Orig: x: " & point.X & ", y: " & point.Y & ", z: " & point.Z
Call point.TransformBy(u.Transformation)
Debug.Print "Transformed x: " & point.X & ", y: " & point.Y & ", z: " & point.Z
Mein Ziel wäre es genau die werte zu erhalten welche ich bekomme wenn ich auf einen punkt klicke - messen - und dort zwischen Urspung auf BKS umschalte.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP