Hallo Forum
Ich möchte in der idw einer Baugruppe die Bauteilnummer und eine benutzerdefinierte Eigenschaft (z.B. die Dimension) eines Bauteils im Text einer LeaderNote automatisch anzeigen lassen.
In der Programmierungshilfe von IV fand ich ein Beispiel, um einen Modell-Parameter eines Bauteils einzufügen: ….FormattedText = "<Parameter ……… </Parameter>"
Was ich aber möchte, sollte eigentlich mit:
…..FormattedText = "<Property ………</Property>" möglich sein.
Wie komme ich darauf? Nun, ich habe eine LeaderNote in der idw manuell angepasst und dann die FormattedText-Eigenschaft in einer Variable gespeichert und nachher den Wert in den Code eingefügt. Mit der oben beschriebenen "<Parameter ……… </Parameter>" –Methode funktionierte es.
Als Testbeispiel habe ich mich auf die Bauteilnummer beschränkt und folgendes kleines Sub verfasst:
Public Sub test()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet
Dim fuehrung As LeaderNote
For Each fuehrung In oSheet.DrawingNotes.LeaderNotes
fuehrung.FormattedText = "<Property Document='model' PropertySet='Design Tracking Properties' Property='Part Number' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='5'>BAUTEILNUMMER</Property>"
Next
End Sub
Leider gibt’s in der FOR-Schleife bei: fuehrung.FormattedText =“….“ eine Debuggermeldung. Wo liegt der Fehler? Ist das Vorhaben überhaupt möglich?
Wir arbeiten mit IV10 Prof. SP3a
Ich Danke für Eure Antworten.
Gruss
Daniel Straub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP