Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Attribute in IDW's

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Attribute in IDW's (954 mal gelesen)
SHP
Mitglied
Konstrukteur


Sehen Sie sich das Profil von SHP an!   Senden Sie eine Private Message an SHP  Schreiben Sie einen Gästebucheintrag für SHP

Beiträge: 1331
Registriert: 17.07.2003

IV9-SP3
IV10-Sp3a
IV11

erstellt am: 26. Aug. 2005 21:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich hab in der Programmierhilfe folgenden Code gefunden und hab dazu einige Fragen.

- bei mir macht "Debug.Print oSet.Item(1).Value" nichts.
  Kann es sein das was nicht stimmt?
  Was soll es machen?

- wie müsste der Code in einer IDW aussehen, wenn anstatt der Flächen, die Skizzen im ActivSheet ein Attributset "TEST" erhalten sollen.

_________________________________
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oFaceColl As ObjectCollection
Set oFaceColl = ThisApplication.TransientObjects.CreateObjectCollection
For Each oFace In oDoc.ComponentDefinition.SurfaceBodies.Item(1).Faces
  oFaceColl.Add oFace
Next

Dim oSet As AttributeSet
Dim oSetEnum As AttributeSetsEnumerator

Set oSetEnum= oDoc.AttributeManager.OpenAttributeSets(oFaceColl,"Test")
For Each oSet In oSetEnum
  If oSet.Count > 0 Then
    Debug.Print oSet.Item(1).Value
  End If
Next
______________________________________________

etwas später:
- oSet.Count ist bei mir 0, darum kommt kein Debug.Print
- wenn ich das if weglasse kommt eine Fehlermeldung.
  Wahrscheinlich gibt es kein oSet.Item(1).Value, oder?

------------------
Gruß
Hans-Peter 
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

[Diese Nachricht wurde von SHP am 26. Aug. 2005 editiert.]

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

SHP
Mitglied
Konstrukteur


Sehen Sie sich das Profil von SHP an!   Senden Sie eine Private Message an SHP  Schreiben Sie einen Gästebucheintrag für SHP

Beiträge: 1331
Registriert: 17.07.2003

IV9-SP3
IV10-Sp3a
IV11

erstellt am: 27. Aug. 2005 18:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz