---

Ich habe da ein Anliegen: Bei den teuren PSP-Systemen gibt es die Möglichkeit, im Browser einer IAM oder IPT die Teile mit Displayname und Title zu versehen (übersichtlicher, besser erkennbar). Gibt es die Möglichkeit, das über VBA zu realisieren? Und wenn ja, wie würde das Macro aussehen?

Gruß

------------------
Didi

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

---

Möglichkeit gibt es:

Code:

---

Public Sub Rename()

Dim oapp As Inventor.Application
Dim odoc As Inventor.Document
Set oapp = ThisApplication
Set odoc = oapp.ActiveDocument

odoc.DisplayName = "Neuer Name"
   
End Sub

---

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

---

Hi,
ich habe das Macro auf meine Bedürfnisse angepasst und erhalte nun die Bauteilnummer mit Titel im Display (1234.Teil).

Code:

---

Public Sub Rename()
    Dim oapp As Inventor.Application
    Dim odoc As Inventor.Document
    Set oapp = ThisApplication
    Set odoc = oapp.ActiveDocument
    Dim oTitle As String
    Dim oPartNumber As String
    Dim oProp As PropertySet
    Dim oProp2 As PropertySet
    Dim i As Property
    Dim e As Property
    Set oProp = odoc.PropertySets.Item("Design Tracking Properties")
    Set oProp2 = odoc.PropertySets.Item("Inventor Summary Information")
    For Each i In oProp
    If i.DisplayName = "Bauteilnummer" Then
        oPartNumber = i.Expression
    End If
    Next
    For Each e In oProp2
    If e.DisplayName = "Titel" Then
        oTitle = e.Expression
    End If
    Next
    odoc.DisplayName = oPartNumber & "." & oTitle
End Sub

---

Wie muss ich es nun anstellen, dass dieses Macro beim Speichern ausgeführt wird?

Gruß

------------------
Didi

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

---

Nachtrag:

mit > ThisApplication.ActiveDocument.Save < vor der Namensvergabe klappt die Übergabe auch bei Neuanlegen einer Datei. Soweit sogut.
Kann man aber das Macro auch an das IV-eigene Speicherbutton anhängen? quasi als default.

Gruß

------------------
Didi

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

---

Geht am besten über .net...
http://modthemachine.typepad.com/my_weblog/add-in-creation/

oder mal im .Net- Forum suchen...

[Diese Nachricht wurde von noctis79 am 10. Jan. 2012 editiert.]

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

---

Hi,

danke für den Link. Ich werde mich mal damit auseinandersetzen.
Meine Makros funktionieren wie sie sollen, dafür ein dickes Dankeschön. Mit Ribbons geht es wahrscheinlich eleganter.
Bis bald mal.

Gruß

------------------
Didi

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