---

Guten Tag die Damen und Herren,

(sind überhaupt Damen im IV-VBA-Forum vertreten?)

Wie kann ich denn innerhalb einer IDW
auf die Iprops einer Ansicht zugreifen?

Inventor selbst macht ja ähnliches bei den Einträgen
im Schriftfeld. Dort werden doch die Iprops der als
erstes eingefügten Ansicht übernommen.

Ich wollte ein Tool basteln bei dem die Oberfläche
aussieht wie ein Schriftfeld und mit dem man die Iprops
auch editieren kann.

Beste Grüße

Peter

[Diese Nachricht wurde von pd65 am 15. Jan. 2007 editiert.]

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

---

Hier mal ein bischen Quellcode zum probieren:

Tool holt sich in der Zeichnungsableitung aus der Erstansicht das Gewicht des Bauteils (Baugruppe) und schreibt diese in ein Benutzerd. Eigenschaft des Bauteils, welche dann vom Schriftkopf ausgelesen werden kann!

Public Sub UpdProps()
    Dim odoc As Document
    Set odoc = ThisApplication.ActiveDocument
   
On Error Resume Next
    Dim orefdoc As Document
    Set orefdoc = odoc.ActiveSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
If Err Then
    MsgBox ("Keine Erstansicht gefunden!")
    End
End If

    Dim oDim As DrawingView
    Set oDim = odoc.ActiveSheet.DrawingViews.Item(1)
        ' Set a reference to the mass properties object.
    Dim oMassProps As MassProperties
    Set oMassProps = orefdoc.ComponentDefinition.MassProperties

    ' Set the accuracy to medium.
    oMassProps.Accuracy = k_Medium
    On Error GoTo MakeProp
    Set oProperty = orefdoc.PropertySets _
                .Item("User Defined Properties").Item("Gewicht")
    oProperty.Value = Format(oMassProps.Mass, "0.00 kg")
    ...

Ich hoffe es hilft ein wenig!

Gruß Ralf

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