Hallo Bernd, Hallo Lila,
Danke nochmal für Euere Tips!
@ Bernd: ich habe das so gelöst:
Dim strSelStateStr As String
strSelStateStr = oSel.SelectElement2(arrayOfFilterType, "Achsensystem auswählen", False)
If strSelStateStr = "Normal" Then
Dim oSelectedAxisSyst As Object 'As AxisSystem ##### AXIS SYSTEM ####
Set oSelectedAxisSyst = oSel.Item2(1).Value
Dim refOnOrigin As Reference
Set refOnOrigin = oSelectedAxisSyst.OriginPoint
'###################################### GETTING THE X Y Z AXIS DIRECTIONS ################################################
Dim XAxisCoord(2) 'As Double
Call oSelectedAxisSyst.GetXAxis(XAxisCoord)
Dim YAxisCoord(2) 'As Double
Call oSelectedAxisSyst.GetYAxis(YAxisCoord)
Dim ZAxisCoord(2) 'As Double
Call oSelectedAxisSyst.GetZAxis(ZAxisCoord)
'################################ OUTPUT OF THE COORDINATES OF THE ORIGINPOINT ############################################
'Using the GetPoint method for obtaining the coordinates of the referenced Axis system :
Dim Messung As Workbench
Set Messung = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Dim ocoor As Object
Set ocoor = Messung.GetMeasurable(refOnOrigin)
Dim Coordinates(2)
Dim myX2, myY2, myZ2 As Double
myX2 = Coordinates(0)
myY2 = Coordinates(1)
myZ2 = Coordinates(2)
ocoor.GetPoint Coordinates
MsgBox (" X=" & Coordinates(0) & vbLf & " Y=" & Coordinates(1) & vbLf & " Z=" & Coordinates(2))
'Point in the location of the referenced axis system origin:
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = Wzk3D.AddNewPointCoord(Coordinates(0), Coordinates(1), Coordinates(2))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP