---

Hi,

ich möchte per VBA aus dem Schriftfeld die Benutzer Eingaben auslesen...
In der Hilfe gibt es zum Objekt TitleBlock die Funktion GetResultText.

geht das damit ??? leider gibt es kein Bsp. dafür.

Wer kann mir auf die Sprünge helfen ???

Danke.

Gruss Pelikan

PS. Systeminfo ist nicht mehr aktuell... Es geht um Inv 10 !

[Diese Nachricht wurde von Pelikan am 23. Nov. 2005 editiert.]

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

---

Hi Pelikan

versuch mal das:

Private Sub getPropsFromIdwParent()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDrawDoc As DrawingDocument
  Set oDrawDoc = oApp.ActiveDocument
 
  Dim oPartDoc As PartDocument
  Set oPartDoc = oDrawDoc.ReferencedFileDescriptors(1).ReferencedDocument
 
  MsgBox oPartDoc.FullFileName
 
  Dim oPropSets As PropertySets
  Set oPropSets = oPartDoc.PropertySets
 
  Dim oPropSet As PropertySet
 
  For Each oPropSet In oPropSets
   
    For i = 1 To oPropSet.Count
     
      On Error Resume Next
      Debug.Print "PropSet Name: " & oPropSet.DisplayName & "  Prop Name: " & oPropSet(i).Name & " ; Wert: " & oPropSet(i).Value
     
    Next i
   
  Next oPropSet
 
End Sub

Gruss Emick

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