Hi Leute,
ich benutzte folgendes Makro zum Auslesen von Punkten:
--------------------------------
Const cDateiPfad = "C:\tmp\Punkt_exp.txt"
Function fFileExist() as Integer
On Error Resume Next
CATIA.FileSystem.GetFile (cDateiPfad)
fFileExist = Err.Number
End Function
Sub CATMain()
' Datei erzeugen
Dim Datei as File
If fFileExist() <> 0 then
Set Datei = CATIA.FileSystem.CreateFile (cDateiPfad, False)
Else
Set Datei = CATIA.FileSystem.GetFile (cDateiPfad)
End If
Dim mySelection as Selection
Set mySelection = Catia.ActiveDocument.Selection
Dim AnzahlSelekt as integer
AnzahlSelekt = mySelection.count ' Gibt an wieviele Elemente selektiert wurden
Dim DStrom as TextStream
Set DStrom = Datei.OpenAsTextStream ("ForAppending")
DStrom.Write ( "Nr" & Chr(9) & "X" & Chr(9) & "Y" & Chr(9) & "Z" & Chr(10))
Dim I as integer
Dim oPunktKoord(2) as CATSafeVariant
Dim oSelElem as Object
For I = 1 to AnzahlSelekt
Set oSelElem = mySelection.Item(I)
oSelElem.Value.GetCoordinates (oPunktKoord)
DStrom.Write (mySelection.Item(I).Value.name & Chr(9)& oPunktKoord(0) & Chr(9) & oPunktKoord(1) & Chr(9) &oPunktKoord(2) & Chr(10))
' Die Wertetabelle.txt kann in Excel importiert werden
Next
DStrom.Close
End Sub
------------------------------------
Das Makro läuft super, wenn der Koordinatenursprung des Parts gewünscht ist. Ich habe folgendes Problem:
Die Punkte sind aus mehreren Parts über Publikationen in ein Part zusammengefügt. So habe ich alle relevanten Messpunkte der gesamten Baugruppe in einem Geometrical Set zusammen und muss nicht ewig nach Ihnen suchen.
Ich möchte nun ein bestimmtes Koordinatensystem als Ursprung zum Auslesen der Punkte auswählen.
Leider habe ich so gut wie keine Ahnung vom Programmieren und bin deshalb auf eure Hilfe angewiesen
Vielleicht kann ja jemand helfen?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
