Hallo ich habe mal wieder ein, hoffendlich kleines, Problem.
Ich kann mir von den makierten Punkten die Kordinaten auslesen, aber immer nur zum Teileursprung, mit mein Makro.
Wenn ich manuell Messe kann ich mir ja einstellen das er ein Axis als ausgangspunkt nimmt.
1. Was muss ich ändern damit mein Makro das auch kann.
(Axis heißt: AxisBG0)
2. Wie kann ich die selektion abfragen ob ein punkt Selektiert wurde?
Oder muss ich Wenn Fehler abfrage hinter (oSelElem.Value.GetCoordinates (oPunktKoord)) einbauen.
Gruß Windninja
Code:
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.ParametersDim mySelection As Selection
Set mySelection = CATIA.ActiveDocument.Selection
Dim AnzahlSelekt As Integer
AnzahlSelekt = mySelection.Count ' Gibt an wieviele Elemente selektiert wurden
Dim i As Integer
Dim oPunktKoord(2)
Dim oSelElem As Object
For i = 1 To AnzahlSelekt
Set oSelElem = mySelection.Item(i)
oSelElem.Value.GetCoordinates (oPunktKoord)
Xmin = oPunktKoord(0)
Ymin = oPunktKoord(1)
Zmin = oPunktKoord(2)
MsgBox oSelElem.Value.Name & vbNewLine & "X = " & Xmin & vbNewLine & "Y = " & Ymin & vbNewLine & "Z = " & Zmin
Next
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP