Hallo,
hab gleich ein konkretes Beispiel.
Mit folgendem Code erzeuge ich in einer idw eine Skizze, auf die ich einen Text schreibe,
der die inputdaten eines iFeatures enthält.
Das mach ich so oft wie iFeatures am Part vorhanden sind.
Jede Skizze erhält ein Attributset "iFeaturedaten" und das Attributset ein Attribut "aktuell" mit Wert 0.
Meine Überlegung:
Wenn ich den Gesamten Code nochmal durchlaufen lasse, muß ich meine Skizzen mit dem Attributset "iFeaturedaten"
wieder finden, um eventuelle Änderungen am iFeature, im Text zu aktualisieren.
Da gibt es doch den Attributmanager und FindAttributeSets.
Kann mir da jemand weiterhelfen wie ich das am Besten anstelle?
________________________________________________________________
Sub insert_ifeaturedaten(ByVal stext As String, X, Y)
' Set a reference to the active document. This assumes it
' is a drawing document.
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
'Skizze erzeugen
Dim oSketch As Sketch
Set oSketch = oDoc.ActiveSheet.Sketches.Add
'Attributset setzen
Dim oAttribSets As AttributeSets
Set oAttribSets = oSketch.AttributeSets
Dim oAttribSet As AttributeSet
On Error Resume Next
Set oAttribSet = oAttribSets.Add("iFeatureDaten")
If Err Then
Set oAttribSet = oAttribSets.Item("iFeatureDaten")
End If
Dim oAttrib As Inventor.Attribute
If oAttribSet.count = 0 Then
Set oAttrib = oAttribSet.Add("aktuell", kStringType, 0)
End If
'Set a reference to the transient geometry object.
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
oSketch.Edit
Set oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(X, Y), stext)
'Exit from editing the sketch.
oSketch.ExitEdit
End Sub
________________________________________________________________
------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.
Das Saxregister
[Diese Nachricht wurde von SHP am 27. Aug. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP