| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| AMB 2024, Veranstaltung am 10.09.2024 |
Autor
|
Thema: Kopie von - nervt (770 / mal gelesen)
|
Skalar Mitglied
Beiträge: 65 Registriert: 26.01.2007 Win10 / SX2018
|
erstellt am: 17. Feb. 2022 08:22 <-- editieren / zitieren --> Unities abgeben:
Guten morgen liebe Forumsgemeinde, für projektbezogene Sonderbauteile nutze ich die Baugruppe eines Standardbauteil aus dem PDM. Ich kopieres es in die das jeweilige Projekt ausßerhalb des PDM. Um jetzt nicht viele kleine Dateien ablegen zu müssen, mache ich dabei alle Teile und Unterbaugruppen virtuell. So bleiben im Projekt nur 2 Daien (Model und Zeichnung). Das funktioniert recht gut. Bei virtuell machen werden alle Teile in "Kopie von..." umbenannt. Dadurch leidet die Übersicht stark. Frage: Lässt sich das vermeiden? Falls nicht, gibt es ein Makro, dass automatisch "Kopie von..." aus allen virtuellen Teilen und Unterbaugruppen entfernt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
dopplerm Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 3619 Registriert: 11.02.2005 Win 10 SWX 2019 SP 5.0
|
erstellt am: 17. Feb. 2022 08:58 <-- editieren / zitieren --> Unities abgeben: Nur für Skalar
|
Skalar Mitglied
Beiträge: 65 Registriert: 26.01.2007 Win10 / SX2018
|
erstellt am: 17. Feb. 2022 09:07 <-- editieren / zitieren --> Unities abgeben:
Ich hatte nach "Kopie von" gesucht und nichts gefunden. Kennst jemand ein Markro, dass alle Features durchläuft und umbenennt oder etwas sucht. Ich tue mich schwer eines völlig neu zu schreiben. Wenn es nur ums anpassen geht, dann schaffe ich das sicher. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 814 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 17. Feb. 2022 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für Skalar
|
Skalar Mitglied
Beiträge: 65 Registriert: 26.01.2007 Win10 / SX2018
|
erstellt am: 17. Feb. 2022 09:28 <-- editieren / zitieren --> Unities abgeben:
Ich habe gerade in der API-Hilfe etwas brauchbares gefunden - modifiziert - und in einem ersten Versuch funktioniert es sogar. Ich werde es mir aber noch genauer ansehen. Code: '--------------------------------------- ' Preconditions: Assembly document is open. ' Postconditions: Assembly component names are changed by ' appending 123 to the end of the names. '--------------------------------------- Option Explicit Public Enum swUserPreferenceToggle_e swExtRefUpdateCompNames = 18 End Enum Sub Main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swConfigMgr As SldWorks.ConfigurationManager Dim swConfig As SldWorks.Configuration Dim swRootComp As SldWorks.Component2 Dim Children As Variant Dim swChild As SldWorks.Component2 Dim ChildCount As Integer Dim OldName As String Dim NewName As String Dim bOldSetting As Boolean Dim bRet As Boolean Dim i As Long Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swConfigMgr = swModel.ConfigurationManager Set swConfig = swConfigMgr.ActiveConfiguration Set swRootComp = swConfig.GetRootComponent bOldSetting = swApp.GetUserPreferenceToggle(swExtRefUpdateCompNames) swApp.SetUserPreferenceToggle swExtRefUpdateCompNames, False Children = swRootComp.GetChildren ChildCount = UBound(Children) For i = 0 To ChildCount Set swChild = Children(i) ' Changing component name requires component to be selected bRet = swChild.Select2(False, 0) OldName = swChild.Name2 If Left(OldName, 10) = "Kopie von " Then NewName = Mid(OldName, 11, Len(OldName) - 11) End If Debug.Print "OldName = " + OldName Debug.Print "NewName = " + NewName Debug.Print "" swChild.Name2 = NewName Next i swApp.SetUserPreferenceToggle swExtRefUpdateCompNames, bOldSetting End Sub
Original stammt von https://help.solidworks.com/2013/english/api/sldworksapi/Rename_Assembly_Components_Example_VB.htmEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Ingenieur (m/w/d) Maschinenbau Entwicklung / Konstruktion | Leidenschaft für technologischen Fortschritt ausleben? Dabei sein, wenn Innovationen Wirklichkeit werden? Bei FERCHAU suchen wir Menschen mit dem gleichen Anspruch. Wir realisieren spannende Projekte für namhafte regionale Unternehmen in allen Technologien und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte.
Ingenieur (m/w/d) Maschinenbau Entwicklung / Konstruktion
| Anzeige ansehen | Maschinenbau |
|
dopplerm Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 3619 Registriert: 11.02.2005 Win 10 SWX 2019 SP 5.0
|
erstellt am: 17. Feb. 2022 10:27 <-- editieren / zitieren --> Unities abgeben: Nur für Skalar
Hallo Skalar, sieht ja vielversprechend aus, ich habe im alten Thread den Hinweis auf diesen Thread plaziert, da deine Lösung vielversprechend ist. lg Martin ------------------ ich spiel noch immer gern mit Bauklötzen, nur sind sie jetzt teurer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |