---

Hallo liebe Forengemeinde,
gemäß https://knowledge.autodesk.com/de/support/inventor-products/learn-explore/caas/CloudHelp/cloudhelp/2018/DEU/Inventor-Help/files/GUID-78E0CC17-761A-4BA3-ADA5-5F67EBA79C3C-htm.html --unterer Absatz
habe ich eine Vorlage mit den benötigten iProperties erstellt und als "sheet metal.ipt" als Template abgespeichert.
Meine Hoffnung: Wenn ich ein altes Blechbauteil in ein Norm-Bauteil umwandle und dann wieder zu einem Blechbauteil mache, sollten sich die iProperties erneuern.
Das klappt aber leider überhaupt nicht. Sogar einfache neu erstellte Norm-Bauteile bleiben ohne iProperties, wenn ich sie zu einem Blech umwandle.
Wie geht es wirklich?

------------------
Herzliche Grüße
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenste umwandelst von blech nach norm oder zurück wird keine vorlage verwendet. Vorlagen gelten nur wennste neue dateien erzeugst. Zum übertragen von iproperties gibts den konstruktionsassi.

------------------
himmelblau

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo himmelblau,
mit dem Konstruktionsassistenten habe ich es noch nicht versucht. Der hat für mich letztens die Wiederverwendung eines Bauteils in BGen aufzeigen sollen und nach langer Wartezeit kein brauchbares Ergebnis hervorgebracht (kein Vault installiert...). Ich werde es aber trotzdem ausprobieren. Vielen Dank für Deinen Hinweis.
Was mir noch einfällt: In einer übergeordneten BG in der Stücklistenansicht die gewünschten Eigenschaften kopieren und an der richtigen Stelle einfügen. Da aber nicht das "Nach-unten kopieren" benutzen, denn bei Erreichen des Fensterrandes breitet sich der Markierungsbereich unheimlich schnell aus und überschreibt leicht viel mehr, als gewünscht war.
Eine weitere Möglichkeit wäre vielleicht ein VBA-Makro oder eine iLogic-Regel. Für entsprechende Code-Schnipsel wäre ich dankbar. Benötigte iProperties: AbwicklungsLänge, AbwicklungsBreite, Objekthöhe (in früheren Versionen "Stärke"), sowie ein paar konstante Text-Werte.

Ein schönes Wochenende und

------------------
Herzliche Grüße
Thomas

[Diese Nachricht wurde von tschütte am 11. Mai. 2019 editiert.]

[Diese Nachricht wurde von tschütte am 11. Mai. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
es gibt noch eine andere Möglichkeit der Übertragung von iproperties:

- in der Baugruppenvorlage die benötigten benutzerdefinierten iproperties erstellen und in der BG Stückliste sichtbar schalten
- neue BG mit der angepassten Vorlage erstellen und die zu ändernden Bauteile in die BG einfügen
- BG Stückliste der neuen BG öffnen und die gewünschten Werte in die Felder der zu ändernden Bauteile eintragen
- BG speichern. Nun wurden die neuen iproperties in die entsprechenden Bauteile übernommen.

Ich hoffe das hilft
Gruß
Burkhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Dieser VBA-Code erstellt dir die iProps in einer IPT , wenn noch nicht vorhanden

Code:

---

Sub Ben_def_iProperties_erstellen()
   
     Set oDoc = ThisApplication.ActiveDocument
    'Wenn kein Dokument offen, beenden
    If oDoc Is Nothing Then Exit Sub
       
    'nur aus einer *.ipt ausführen
    If oDoc.DocumentType <> kPartDocumentObject Then
        MsgBox "Dieser Befehl kann nur aus einer Bauteil-Datei (*.ipt) ausgeführt werden!!", vbCritical, "@Copyright by meierjo"
        Exit Sub
    End If
   
    On Error Resume Next
   
    Set prop = oDoc.PropertySets("Inventor User Defined Properties").Item("AbwicklungsLänge")
    If Err Then
        'Ipropertie existiert nicht, wird erstellt
        userform1.TBSprache_FR.BackStyle = fmBackStyleOpaque
        oDoc.PropertySets("Inventor User Defined Properties").Add "", "AbwicklungsLänge"
    End If
   
    Set prop = oDoc.PropertySets("Inventor User Defined Properties").Item("AbwicklungsBreite")
    If Err Then
        'Ipropertie existiert nicht, wird erstellt
        userform1.TBSprache_FR.BackStyle = fmBackStyleOpaque
        oDoc.PropertySets("Inventor User Defined Properties").Add "", "AbwicklungsBreite"
    End If
   
    Set prop = oDoc.PropertySets("Inventor User Defined Properties").Item("Objekthöhe")
    If Err Then
        'Ipropertie existiert nicht, wird erstellt
        userform1.TBSprache_FR.BackStyle = fmBackStyleOpaque
        oDoc.PropertySets("Inventor User Defined Properties").Add "", "Objekthöhe"
    End If
   
    Err = 0

End Sub

---

Gruss

[Diese Nachricht wurde von Meierjo am 13. Mai. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Burkhard,
auch eine interessante Variante. Ich werde sie ausprobieren. Vielen Dank und

------------------
Herzliche Grüße
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Meierjo,
vielen Dank für den VBA-Code. Ich denke, diese Möglichkeit ist für mich am praktikabelsten.

------------------
Herzliche Grüße
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP