| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
 | Wie kann Simulation Ihre Produktentwicklung beschleunigen?, ein Webinar am 07.08.2025
|
Autor
|
Thema: Fangen-Optionen per VBA steuern (970 / mal gelesen)
|
wemasb Mitglied Quereinsteiger
 
 Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 15. Jan. 2019 13:08 <-- editieren / zitieren --> Unities abgeben:         
|
Winni-two Mitglied Ing. Maschb.
 
 Beiträge: 159 Registriert: 12.03.2010 SW 2021 SP5 Intel Xenon W2135 @3.7GHz Win 10 64 bit Graka: Nvidia Quadro P4000 32 GB Ram
|
erstellt am: 15. Jan. 2019 13:18 <-- editieren / zitieren --> Unities abgeben:          Nur für wemasb
|
Ralf Tide Ehrenmitglied V.I.P. h.c. -

 Beiträge: 5028 Registriert: 06.08.2001 Sehr seltsame Dinge passiern <Klaus Lage - Toy Story> .-)
|
erstellt am: 15. Jan. 2019 13:29 <-- editieren / zitieren --> Unities abgeben:          Nur für wemasb
Der Makro-Recorder zeichnet das sogar auf  Code: Dim swApp As ObjectDim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = _ Application.SldWorks swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchInferFromModel, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsPoints, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsCenterPoints, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsMidPoints, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsQuadrantPoints, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsIntersections, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsNearest, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsTangent, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsPerpendicular, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsParallel, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsHVLines, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsHVPoints, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsLength, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchSnapsAngle, False swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swSketchInferFromModel, False End Sub
HTH Ralf ------------------
 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: 15. Jan. 2019 14:19 <-- editieren / zitieren --> Unities abgeben:         
|