---

Hallo,

ich versuche die Position eines Punktes zu verändern. Das richtige SketchPoint-Objekt habe ich, doch die Positionsangabe wird nicht angenommen. Gibt es mit der Funktion ein Problem?

Gruß, Thomas

(API: SolidWorks 2001)

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

---

Hallo Thomas,

also bei mir funkt's (SWX 2003).

Du musst folgende Punkte beachten:
1. Die Skizze muss geöffnet sein (editiert werden)
2. Der Punkt, dessen Koordinaten Du ändern willst, darf keine Beziehungen (auch Bemaßungen) besitzen, die verhindern den Punkt zu verschieben. (Also wenn die Skizze voll definiert ist, musst Du die Position über das Maß ändern)
3. Wie's geht siehst Du im Code. Ich hatte ein Teil mit nur einer Skizze (Skizze1) und einem Skizzenpunkt (Punkt1@Skizze1)

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

'Auswählen der Skizze und bearbeiten dieser (Skizze muss geöffnet sein!!!)
Part.SelectByID "Skizze1", "SKETCH", 0, 0, 0
Part.EditSketch

'Auswählen des Punkts
Part.SelectByID "Punkt1@Skizze1", "EXTSKETCHPOINT", 0, 0, 0
Set SelMgr = Part.SelectionManager()
Set point = SelMgr.GetSelectedObject3(1)

'Setzen der Koordinaten
point.SetCoords 0.02, 0.03, 0

'Schließen der Skizze
Part.InsertSketch
End Sub

Viel Spaß noch damit!
Gruß
Marc

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