| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Blechregel (1517 mal gelesen)
|
Didikalle Mitglied Konstrukteur
Beiträge: 91 Registriert: 07.10.2011 Ich nutze Inventor 2016 mit dem BS Win 10
|
erstellt am: 21. Jan. 2014 11:33 <-- editieren / zitieren --> Unities abgeben:
Hallo liebe Inventorgemeinde, ich habe ein kleines Problem. In vielen Blechteilen wurde bei uns in der Vergangenheit eine falsche Blechregel angewendet die geändert werden muss. Die benutzten Regeln befinden sich auf einem zentralen Server. Die neue Regel soll vom lokalen Server genommen werden (Standard oder Standard_mm = Inventorstandard).Wenn ich nun ein Blechteil geöffnet habe, möchte ich gerne per Makro prüfen, ob eine aktuelle Regel vorliegt und wenn nicht die aktuelle Regel (also Standard) eingetragen wird. Wenn das mit einem Makro möglich ist, würde ich mich um über Eure Hilfe freuen. Lg.
------------------ Didi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 21. Jan. 2014 22:03 <-- editieren / zitieren --> Unities abgeben: Nur für Didikalle
Hallo Ganz einfach (also ohnn jegliche Prüfungen usw.) sollte es so gehen: Code: Private Sub Blechstil()Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oCompDef As SheetMetalComponentDefinition Set oCompDef = oDoc.ComponentDefinition oCompDef.SheetMetalStyles.Item("Standard").Activate End Sub
------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Didikalle Mitglied Konstrukteur
Beiträge: 91 Registriert: 07.10.2011 Ich nutze Inventor 2016 mit dem BS Win 10
|
erstellt am: 21. Jan. 2014 22:46 <-- editieren / zitieren --> Unities abgeben:
Hallo Ralf, das Makro funktioniert. Besten Dank. Ein Haken hat die Sache aber noch, und das im wahrsten Sinne des Wortes. In Blechvorgaben muss das Häkchen vor "Stärke aus Regel übernehmen" entfernt werden, und das bevor der Wechsel zu "Standard" stattfindet. Dann wird die Blechstärke beibehalten. Ist das machbar? Lg. ------------------ Didi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 21. Jan. 2014 23:11 <-- editieren / zitieren --> Unities abgeben: Nur für Didikalle
Hallo Ja, das geht. Code: Private Sub Blechstil()Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oCompDef As SheetMetalComponentDefinition Set oCompDef = oDoc.ComponentDefinition Dim dThickness As Double dThickness = oCompDef.Thickness.ModelValue oCompDef.SheetMetalStyles.Item("Standard").Activate oCompDef.UseSheetMetalStyleThickness = False '<--- Abschalten der Blechstärke aus dem Blechstil End Sub
------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Didikalle Mitglied Konstrukteur
Beiträge: 91 Registriert: 07.10.2011 Ich nutze Inventor 2016 mit dem BS Win 10
|
erstellt am: 22. Jan. 2014 08:49 <-- editieren / zitieren --> Unities abgeben:
|