---

Hallo,
wie kann ich per VBscript mehrere Koordinatenpunkte (hybridShapePointCoord) verschieben. Ich möchte nur den X-Werte um einen bestimmten Betrag verändern (z.B. +100mm).

Danke im Voraus
Gruß Taylor

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

---

Hallo Taylor

Herzlich willkommen im Forum 

Habe leider keine Vollständige Lösung für Dich aber ich fang mal an vieleicht können die Anderen noch etwas beitragen.

Code:
_____________________________________________________________________________
Sub Punkteverschieben()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapePointCoord1 As HybridShapePointCoord
Dim auswahlElement As SelectedElement
Dim XVersch
Dim YVersch
Dim ZVersch

XVersch = 100    'Wunschwert hier eingeben oder Abfragen
YVersch = 0      'Wunschwert hier eingeben oder Abfragen
ZVersch = 0      'Wunschwert hier eingeben oder Abfragen

selection1.Search "Name=*Point*,all"

  AnzahlSelekt = selection1.Count
 
  Dim i As Integer
  Dim acoord(2)
  For i = 1 To AnzahlSelekt
        Set auswahlElement = selection1.Item(i)
        auswahlElement.Value.GetCoordinates (acoord)
        acoord(0) = acoord(0) + XVersch  'x-Werte
'        acoord(1) = acoord(1) + YVersch  'y-Werte
'        acoord(2) = acoord(2) + ZVersch  'z-Werte

' Hier muss dem Punkt (selection1.Item(i)) die Werte zugewiesen Werden
' Ich kann aber gerade nicht dranrumspielen 

  Next
End Sub
____________________________________________________________________

------------------
Grüße aus dem Schwarzwald
Viktor

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

---

Hallo Viktor,
danke für deine Antwort. Ich werde versuchen ob ich mit meinen bescheidenen VBA-Kenntnissen zurecht komme.
Gruß Taylor

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

---

Hallo Taylor912,

Hier der ganze Code:
-------------------------------------------------------------------
Sub Punkteverschieben()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePointCoord1 As HybridShapePointCoord

Dim auswahlElement As SelectedElement

Dim XVersch
Dim YVersch
Dim ZVersch
XVersch = 100
YVersch = 0
ZVersch = 0

selection1.Search "Name=*Point*,all"

  AnzahlSelekt = selection1.Count
 
  Dim i As Integer
  Dim acoord(2)
  For i = 1 To AnzahlSelekt
        Set auswahlElement = selection1.Item(i)
        auswahlElement.Value.GetCoordinates (acoord)
        acoord(0) = acoord(0) + XVersch  'x-Werte
        acoord(1) = acoord(1) + YVersch  'y-Werte
        acoord(2) = acoord(2) + ZVersch  'z-Werte
        auswahlElement.Value.SetCoordinates (acoord)
  Next
part1.Update
End Sub
---------------------------------------------------------------------------------

------------------
Grüße aus dem Schwarzwald
Viktor

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

---

Hallo Viktor,

Danke für den Code! Werde ich dann ausprobieren!
Gruß Taylor

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