| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Schulung iMachining, ein Seminar am 23.09.2024
|
Autor
|
Thema: API - Wechsel Normaler Schnitt (975 / mal gelesen)
|
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 05. Mai. 2021 12:31 <-- editieren / zitieren --> Unities abgeben:
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 |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 05. Mai. 2021 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
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 |
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 05. Mai. 2021 16:32 <-- editieren / zitieren --> Unities abgeben:
|
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 06. Mai. 2021 12:28 <-- editieren / zitieren --> Unities abgeben:
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 10. Mai. 2021 13:03 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
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 |
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 11. Mai. 2021 12:29 <-- editieren / zitieren --> Unities abgeben:
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 11. Mai. 2021 16:59 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
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 |
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 12. Mai. 2021 08:16 <-- editieren / zitieren --> Unities abgeben:
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 |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2795 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 12. Mai. 2021 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
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 |
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 17. Mai. 2021 08:32 <-- editieren / zitieren --> Unities abgeben:
|