---

Hallo Zusammen,
ich bekomm noch 'ne Kriese...

Ich habe nen Punkt Namens "Eckpunkt" auf einem Drawing dierekt auf dem Blatt.1 (also keine View)

Diesen Punkt will ich einfach die Koordinaten ändern (verschieben).

Kann mir jemand helfen? Ich krieg's einfach nicht hin.

Ach so, Da Maße an dem Punkt hängen, kann ich ihn nicht löschen und neu erzeugen !!! ich muß ihn verschieben.

Gruß Hokay

[Diese Nachricht wurde von Hokay am 04. Dez. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hokay,

kann man überhaupt Maße auf einen Punkt erzeugen, der nicht in der gleichen Ansicht ist???

Ansonsten eine Bemaßung erstellen auf den Punkt und im Fenster des Maßes "Geometriesteuerung" aktivieren. Dann kann man das Maß ändern und damit den Punkt verschieben.

gruß
Mörchen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo
ich glaube ich habe mich nicht deutlich ausgedrückt.

Ich muß die Verschiebung via CATScript erledigen.

MFG Hockay

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

also ich gehe auch davon aus das sich die Teile auf denen die Maße liegen in der selben View (also in der MainView) wie der Punkt befinden. Dann reicht dir die Methode Sub oPoint2D.SetData iWert(0), iWert(1) (iWert ist dabei ein Array mit der Größe 1).
Hab dir mal einen Code reinghängt der den Punkt auf dem Blatt verschieben kann (man könnte den Anwender auch den Punkt selektieren lassen, dann ist man variabler.

Code:

---

Sub CATMain()

Dim point2D1 As Point2D
Dim oPointCoord(1)
Dim oPointNewCoord(1) As Double
Dim Kontrolle As Boolean
Set oDraw = CATIA.ActiveDocument
Set oSheets = oDraw.Sheets
Set oSheet = oSheets.ActiveSheet
Set oViews = oSheet.Views
Set oView = oViews.Item(1)
Set ogeoEl = oView.GeometricElements
Set oPoint = ogeoEl.Item("Eckpunkt")
oPoint.GetCoordinates oPointCoord

Kontrolle = False
Do
    On Error Resume Next
    oPointNewCoord(0) = InputBox("Bitte geben Sie den X-Koordinate des Punktes ein", "X-Wert", "10")
    oPointNewCoord(1) = InputBox("Bitte geben Sie den Y-Koordinate des Punktes ein", "Y-Wert", "10")
    If Err.Number <> 0 Then
        Box = MsgBox("Sie haben keinen Wert des Typs => Double <= angegeben", vbCritical + _
        vbOKOnly, "Falsche Eingabe")
        Kontrolle = False
    Else
        Kontrolle = True
    End If
Loop Until Kontrolle = True

oPoint.SetData oPointNewCoord(0), oPointNewCoord(1)
End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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