---

Hallo,

mit folgendem Code schaffe ich es ein Eigenschaftsfeld für eine der Standardeigenschaften der Modelldatei anzulegen.

Public Sub update_idw()
'On Error Resume Next
    Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument
Dim oTblock As TitleBlockDefinition
Set oTblock = oDoc.TitleBlockDefinitions("DIN")
Dim oSketch As Sketch
Set oSketch = oTblock.Sketch
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
oTblock.Edit oSketch
Dim otxtStyle As TextStyle
I = 1
For I = 1 To oDoc.TextStyles.Count Step 1
If "STANDARD-DIN" = oDoc.TextStyles.item(I).Name Then
Set otxtStyle = oDoc.TextStyles.item(I)
Exit For
End If
Next I

' Add some property text.
    sText = "<Property Document='drawing' FormatID='{32853F0F-3444-11d1-9E93-0060B03C1CA6}' PropertyID='29' />"
    Set oTextBox = oSketch.TextBoxes.AddByRectangle(oTG.CreatePoint2d(10.05, 14.25), oTG.CreatePoint2d(16, 14.35), sText, otxtStyle)
    oTextBox.VerticalJustification = kAlignTextMiddle
    oTextBox.HorizontalJustification = kAlignTextLeft
'Call oTblock.ExitEdit(True)

End Sub

Nun möchte ich aber ein Benutzer definiertes iPropertie der Modelldatei nachrüsten.
Dabei versagt er aber kläglich.
Die Eigenschaft "formatedtext" der textboxen in der Schriftfelddefinition ist bei von mir angelegten Eigenschaftsfeldern nicht auslesbar und führt zu einem Fehler.

Geht das nicht was ich will und muß ich den Umweg über die eigenschaften der IDW nehmen?

Bin für jeden Hinweis danbar.

Tschau der Ralf

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