Joanna
Nowakowska
technolog i
kartograf (vide www)
Temat: mVBA - problem z właściwością ParentGroup
Witam,Od dłuższego czasu próbuję napisać kawałek kodu, który zwracałby mi nazwę grupy (NamedGroup.Name), do której należy wskazany element i zaczynam chodzić po ścianach :)
Według wykazu spisu metod i właściwości obsługiwanych przez VBA (Microstation v8 2004, MIcrostation v8 XM) właściwość ParentGroup jak najbardziej istnieje, tyle że dotyczy obiektu NamedGroupMember, a nie dowolnego elementu graficznego.
Na mój rozum, powinno być możliwe zastosowanie składni typu:
Dim oEle as Element
oEle.AsNamedGroupMember.ParentGroup 'traktuję oEle jako członka grupy
ale kompilacja nie przechodzi - w VBA nie ma czegoś takiego jak AsNamedGroupMember
Kompilator pozwala jednak na takie kodowanie:
Dim nG as NamedGroupElement 'grupa
Dim oEleNGM as NamedGroupMember 'członek grupy
Dim nazwaGrupy as String
Set nG = oEleNGM.ParentGroup
nazwaGrupy = ng.Name
Sęk w tym, że po wskazaniu elementu na rysunku nie dysponuję obiektem typu NamedGroupElement, tylko Element, który muszę jakoś przedefiniować i nie mam pomysłu jak to zrobić.
Pytanie:
1) Jak zmusić MS do traktowania wskazanego elementu jako NamedGroupMember?
2) Gdzie robię błąd?
Pytanie alternatywne: w jaki inny sposób można stwierdzić do jakiej grupy należy element (poza tworzeniem macierzy wszystkich grup z ich elementami i przeszukiwaniem jej w pętli)? :)
Z góry dzięki za pomoc!
aTen post został edytowany przez Autora dnia 07.01.14 o godzinie 18:58