| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Erweiterte virtuelle Simulation mit SOLIDWORKS & SIMULIA |
Autor
|
Thema: Fangen-Optionen per VBA steuern (720 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: 154 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 Moderator -
Beiträge: 4978 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 |
| Konstrukteur (m/w/d) Verfahrensentwicklung | Als Tochtergesellschaft der weltweit agierenden französischen Unternehmensgruppe VYGON, die mit 2.350 Mitarbeitern einen Umsatz von 344 Mio. EUR erzielt, sind wir ein weltweit führender Hersteller von Hightech-Medizinprodukten für den Einmalgebrauch. Am Standort Aachen beschäftigen wir 350 Mitarbeiter. Wir entwickeln, fertigen und vertreiben Produkte für die Klinik und die ambulante Versorgung ... | Anzeige ansehen | Konstruktion, Visualisierung |
|
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:
|