VBA - accessing linkages

Re: VBA - accessing linkages

Jeff Bielefeld — Wed, 13 Jul 2011 20:32:13 GMT

...okay very good, thank you for that update. I would also recommend that before calling the .GetSubFeature(0) method, your code performs a check to ensure that the .SubFeatureCount property has a value greater than 0.

Re: VBA - accessing linkages

kolkiewicza — Wed, 13 Jul 2011 19:00:34 GMT

I have managed to make in run. I just added to the code those lines:

Set Subfeature = oFeature.GetSubFeature(0)

Set oElement = Subfeature.Geometry

Thanks for the suggestion.

Re: VBA - accessing linkages

kolkiewicza — Wed, 13 Jul 2011 11:27:17 GMT

Thanks Jeff,

Please find the macro attached. It works on selected elements.

BTW, I use Bentley PowerMap v8i and if I check element information I can see linkages and the one I'm interested in is Type 0x379.

I'm going to try calling the subfeature method.

Re: VBA - accessing linkages

Jeff Bielefeld — Tue, 12 Jul 2011 20:31:10 GMT

After looking at the provided budynki_shape2.dgn file, it is at first not apparent which elements contain your user attribute data. Using pure MicroStation scanning and elements (e.g. no XFT constructs) it seemed that .GetUserAttributeData(lIDGL) always returned a zero sized array. Can you please provide the .mvba that you previously referred to (e.g. tried it in different macro which shows the id of selected element) for review.

Also please be aware that your Budynki feature class is a collection so while the business properties are on the root feature, the geometries will be contained in sub-features so you will need to check the .SubFeatureCount property of the root feature, then call the .GetSubFeature(index) method to get the sub-feature instance.

Re: VBA - accessing linkages

kolkiewicza — Tue, 12 Jul 2011 19:08:33 GMT

The mvba attached