| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| 3DEXPERIENCE Simulation Day |
Autor
|
Thema: IsFastener Makro??? (2770 mal gelesen)
|
armbruso Mitglied CAD-Administrator
Beiträge: 48 Registriert: 09.05.2005 XP SP3 / SolidWorks 2009 SP5.1 /
|
erstellt am: 30. Mai. 2006 14:09 <-- editieren / zitieren --> Unities abgeben:
Hi da draußen Gibt es irgendwo ein Makro, das es mir ermöglicht, einen kompletten Ordner, gefüllt mit 3D-Daten auf einen Schwung mit IsFastener=1 zu markieren. Ich habs schon mit der sldsetdocprop.exe versucht, funzt aber irgendwie nicht. Die Dinger werden in der Zeichnung noch immer geschnitten. Momentan nutzen wir SWX2005 SP5 ohne Toolbox. Bis dann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Oberli Mike Ehrenmitglied V.I.P. h.c. Dipl. Maschinen Ing.
Beiträge: 3814 Registriert: 29.09.2004 SOLIDWORKS 2024 SP1.0 SOLIDWORKS 2023 SP5.0 SOLIDWORKS 2022 SP5.0 SOLIDWORKS 2021 SP5.1 SOLIDWORKS 2020 SP5 SOLIDWORKS 2019 SP5 (VM)
|
erstellt am: 30. Mai. 2006 14:30 <-- editieren / zitieren --> Unities abgeben: Nur für armbruso
Hallo, Ob es ein fertiges Makro gibt weiss ich nicht. Mit dieser Prozedur kann man alle Daten in einem Ordner abfragen. Pfad1 = "c:\" ' Pfad setzen. Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen. Do While Name1 <> "" ' Schleife beginnen. ' Aktuelles und übergeordnetes Verzeichnis ignorieren. If right(Name1,7) = ".sldprt" then ' Hier kommt dei Prozedur wenn es ein Teil ist ' Datei Öffnen ' Variable eintragen ' Datei speichern und schliessen End If Name1 = Dir ' Nächsten Eintrag abrufen. Loop
Makro um eine Variable zu ertellen und mit einem Wert zu belegen. Sub main() Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc npn = Part.AddCustomInfo3("", "ISFASTENER", 30, "1") End Sub ------------------ ( Um an die Quelle zu kommen, muss man gegen den Strom schwimmen ) OM [Diese Nachricht wurde von Oberli Mike am 30. Mai. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wurfsche Mitglied Konstrukteur
Beiträge: 910 Registriert: 05.10.2002
|
erstellt am: 30. Mai. 2006 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für armbruso
|
armbruso Mitglied CAD-Administrator
Beiträge: 48 Registriert: 09.05.2005 XP SP3 / SolidWorks 2009 SP5.1 /
|
erstellt am: 30. Mai. 2006 14:55 <-- editieren / zitieren --> Unities abgeben:
|
RBE Mitglied TechSupport; Bechtle PLM Deutschland GmbH
Beiträge: 291 Registriert: 11.02.2002 HP ZBook 17 G5 Core i9 2.9GHz 32GB RAM Quadro P4200 Win11 SolidWorks2024 SP1
|
erstellt am: 30. Mai. 2006 15:24 <-- editieren / zitieren --> Unities abgeben: Nur für armbruso
|
Mobi25 Mitglied Supportler
Beiträge: 18 Registriert: 15.12.2004 Dell M60<P>verschiedene SWX Versionen
|
erstellt am: 30. Mai. 2006 16:18 <-- editieren / zitieren --> Unities abgeben: Nur für armbruso
|
armbruso Mitglied CAD-Administrator
Beiträge: 48 Registriert: 09.05.2005 XP SP3 / SolidWorks 2009 SP5.1 /
|
erstellt am: 31. Mai. 2006 07:55 <-- editieren / zitieren --> Unities abgeben:
|