Code: Select all
#Requires AutoHotkey v2.0
CATIA := ComObjActive("Catia.Application")
parDoc := CATIA.ActiveDocument
par := parDoc.Part
gset := par.HybridBodies.Item(1)
point := gset.HybridShapes.Item(1)
xyz := ComObjArray(12, 3)
xyz[0] := 200
xyz[1] := 250
xyz[2] := 350
point.SetCoordinates(xyz)
par.Update
xyz0 := ComObjArray(12, 3)
point.GetCoordinates(xyz0)
MsgBox xyz[0]