---

hallo

mich würde mal interessieren ob es eine Begrenzung der Anzahl der Benutzerdefinierten Iproperties gibt und wenn ja wie groß diese Anzahl ist

mfg

gerusc

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

---

Hi, gute Frage. Anscheinend sehr viele. Ich habe schnell ein Makro geschrieben, und es auf 1000 begrenzt. Die macht er auf jeden Fall. Ich tippe mal auf einen 32Bit Integer, also seeeeehr viele.

Code:

---

Sub Test_Max_UserProps()
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oUserProps As PropertySet
    Set oUserProps = oPart.PropertySets.Item(4)
   
    Dim i As Integer
    For i = 0 To 1000
        On Error Resume Next
       
        oUserProps.Add "test"
        ThisApplication.StatusBarText = "Property Nr. " & i
        If Err.Number <> 0 Then
            MsgBox ("Die Property Nr. " & i & " war böse!" & vbCrLf & "ERROR: " & Err.Description)
            Exit Sub
        End If
    Next
End Sub

---

PS: Ein neues Bauteil muss aktiv sein.

------------------
Grüße Igor

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 17. Apr. 2008 editiert.]

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

---

Na dass muss er ja jetzt nur noch austesten

BB

------------------
Wir erfahren unsere Grenzen erst, wenn wir sie überschreiten !

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

---

Danke für die schnelle Antwort
ich glaube mal 1000 reichen aus

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

---

Moin Igor

Ich denke intern ist das eine Liste, die dynamisch erzeugt wird. Die hat (theoretisch) keine Größenbegrenzung 

CU

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

 

Zitat:

---

Original erstellt von Charly Setter:
Moin Igor

Ich denke intern ist das eine Liste, die dynamisch erzeugt wird. Die hat (theoretisch) keine Größenbegrenzung  :D

CU

---

Praktisch jedoch hat alles eine Größe (selbst wenn der Array-Index eine Größe von 2GB haben darf, ist trotzdem begrenzt)  

------------------
Grüße Igor

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 17. Apr. 2008 editiert.]

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

---

Zitat:

---

Original erstellt von daywa1k3r:

... und es auf 1000 begrenzt.

---

So, die hab ich jetzt drin,
und wie krieg ich sie wieder raus 

Matthias

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

---

ich hab nur drauf gewartet... 

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

---

Zitat:

---

Original erstellt von MatthiasG:
So, die hab ich jetzt drin,
und wie krieg ich sie wieder raus  ;)

Matthias

---

Ich mag dich  :D

Für Alle die die Meldung „Wollen Sie die Änderungen speichern“ mit „Ja“ bestätigt haben 

Code:

---

Sub Delete_Test_UserProps()
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oUserProps As PropertySet
    Set oUserProps = oPart.PropertySets.Item(4)
   
    Dim oProp As Inventor.Property
   
    For Each oProp In oUserProps
        If oProp.Value = "test" Then
            oProp.Delete
        End If
    Next
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions

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

---

Zitat:

---

Original erstellt von daywa1k3r:
Ich mag dich     :D

---

Hi Igor,
Ich Dich doch auch,
aber Ich konnte es mir nicht verbeissen 

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