Hallo Hokay,
Ich habe auf die schnelle mal ein Script erstellt womit dein Problem gelöst sein sollte.
........
'*****************************************************************
'*
'* Programm zum Auslesen und setzen von Punkten
'*
'*****************************************************************
Dim documents1 As Documents
Dim document1 As Document
Dim drawingDocument1 As Document
Dim drawingSheets1 As DrawingSheets
Dim drawingSheet1 As DrawingSheet
Dim selection1 As Selection
Dim selection2 As Selection
Dim specsAndGeomWindow1 As Window
Dim drawingView2 As DrawingView
Dim Geos As GeometricElements
Dim Geo As GeometricElement
Dim opoint(10) As SAFEARRAY
Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
'****************** Analyse nach "Blatt-Item" ************************************
Set drawingSheet1 = drawingSheets1.Item(1)
drawingSheet1.Activate
For N = 1 To drawingSheet1.Views.Count
Set Geos = drawingSheet1.Views.Item(N).GeometricElements
If Geos.Count = 0 Then
MsgBox "Fehler, keine Punkte gefunden"
Exit Sub
End If
For K = 1 To Geos.Count
Set Geo=Geos.Item(K)
If ( Geo.GeometricType = catGeoTypePoint2D ) Then
' MsgBox (Geo.Name)
Geos.Item(K).GetCoordinates(opoint)
' MsgBox ( opoint(0) & " " & opoint(1) )
x1=opoint(0)
y1=opoint(1)
Geo.SetData y1 , x1
End If
Next
drawingDocument1.update
Next
End Sub
........
Gruß
CadV5UserR
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP