---

Hallo erstmal.

ich versuche mittels VBA die erweiterten Daten auszulesen, also jene Daten die auch ein Bauteilstempel verwendet, eventuell ein reines ADT Feature.

Mit XData habe ich es schon versucht, weil auch die Hilfe bei "erweiterten Daten" erstmal xData ausspuckt, diese scheinen hier aber nicht relevant zu sein und sind leer.

Der Debuger zeigt diese Eigenschaften ebenfalls nicht an, weshalb ich mitlerweile ein wenig ratlos bin und dankbar für jeden Rat.

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

---

Hallo,

ich versuch's mal...
Hier ein kleines Beispiel für Flächen und dem Eigenschaftssatz 'AEFläche',
ich hoffe ich hab' dich nicht missverstanden, die xData haben mich irritiert;-)

Code:

---

Sub test()
    Dim sch As New AecScheduleApplication
    Dim propSets As AecSchedulePropertySets 'Collection der Eigenschaftssätze
    Dim propSet As AecSchedulePropertySet 'ein Eigenschaftssatz
    Dim o As AcadEntity, p, i%
    ThisDrawing.Utility.GetEntity o, p, "Fläche wählen:"
    Set propSets = sch.PropertySets(o)
    If propSets.Count = 0 Then Exit Sub  'bei fehlendem Stempel
    Set propSet = propSets("AEFläche") '<-- hier anpassen
   
    'Stop 'hier auch mal einen Blick ins Lokalfenster werfen
   
    With propSet.Properties
        On Error Resume Next
        For i = 0 To .Count - 1
            Debug.Print .Item(i).Name, .Item(i).Value
        Next
    End With
End Sub

---

Ergibt mir im Direktfenster folgendes:

Code:

---

Nummer        1
Name          Testfläche
Basisfläche    26,5341187500596
AnrechenbareFläche          26,5341187500596
Berechnungsregel           
Basisumfang    21,0284715737965
AnrechenbarerUmfang          21,0284715737965
Beschreibung 
OKFFB        +0.25
OKRFB        +0.10
Belag        Fliese
Raumbuchnr    1
Belagzus     
Namekurz

---

HTH Nancy
--
ps: achja und die Lib 'AEC Schedule x.x-Objectbibliothek' setzen

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