---

Hallöle...

benötige mal wieder das Schwarmwissen dieses schönen Forums 

Gibt es die Möglichkeit per API/VBA bei einem linearen Schnitt den Haken bei "Normaler Schnitt" zu aktivieren/deaktivieren?

Also quasi den Befehl "Nimm bei Schnitt1 den Haken raus" ?

MFG und danke schonmal für eure Hilfe 

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

---

Hallo,

also wenn ich da in der API Hilfe jetzt richtig nachvollzogen haben musst du:

1. das IFeature (Objekt) holen
2. zum IFeature (Objekt) das IExtrudeFeatureData2 Objekt mit der Methode "GetDefinition" holen
3. dann mit AccessSelections Method (IExtrudeFeatureData2) dir Zugriff drauf verschaffen
3. dann die Property "NormalCut" auf True oder False setzten
4. dann das Feature mit "ModifyDefinition" aktualisieren

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

hm... ok... mal schauen ob ich das irgendwie hinkriege 

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

---

Ich hab es echt versucht, aber irgendwie schaffe ich es nicht.
Kannst du mir ein Beispiel zeigen?

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

---

Hallo,

kannst du hier mal den Code hochladen den du schon hast, will ungern bei null anfangen, evtl. hast du auch nur einen kleinen Fehler der sich leicht beheben lässt.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

... ich hänge peinlicherweise schon irgendwie beim ersten Schritt fest! Habe Ewigkeiten nichts mehr mit VBA gemacht und kriege es gerade irgendwie gar nicht auf die Kette 

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

---

Hallo,

für den Anfang könntest du mit dem "Modify Plane by Editing Its Definition Example (VBA)" starten, dieses müsste man halt entsprechend für den Schnitt und die "NormalCut Property" umbauen.

Zum Travesieren der Feature kannst du das Beispiel "Select Plane Example (VBA)" zum anpassen verwenden.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

das erste Beispiel hab ich jetzt folgendermaßen umgeschrieben:

Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swRefPlane As SldWorks.RefPlaneFeatureData
Dim swRefCut As SldWorks.ExtrudeFeatureData
Dim Feature As SldWorks.Feature
Dim boolstatus As Boolean
Sub main()
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel
    Set swSelMgr = swModel.SelectionManager
    Set swModelDocExt = swModel.Extension
   
    boolstatus = swModelDocExt.SelectByID2("Ebene1", "PLANE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
    boolstatus = swModelDocExt.SelectByID2("Cut1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
    Set Feature = swSelMgr.GetSelectedObject5(1)
    'Set swRefPlane = Feature.GetDefinition
    'swRefPlane.AccessSelections swPart, Nothing
    Set swRefCut = Feature.GetDefinition
    swRefCut.AccessSelections swPart, Nothing
   
    'Debug.Print "Original offset distance: " & swRefPlane.Distance
    'swRefPlane.Distance = 0.05
    'Debug.Print "Modified offset distance: " & swRefPlane.Distance
   
    swRefCut.NormalCut = False
    Feature.ModifyDefinition swRefCut, swPart, Nothing
End Sub

das Sub läuft immerhin durch, ändert mir aber meinen Schnitt nicht.

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

---

Hallo,

du hast in deiner Deklaration eine "2" vergessen.

Dim swRefCut As SldWorks.ExtrudeFeatureData => Dim swRefCut As SldWorks.ExtrudeFeatureData2

Die selektion der Ebene kannst du eigentlich rauswerfen.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Jetzt klappt es, vielen Dank für deine Hilfe 

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