VBA - Bentley MAP detach XFM Feature record from graphical element.

Hi GRJ,

I have no simple answer for your (sorry), but I'd like to ask what exactly do you want to achieve if talking about "no !! way to transfer the XFM data in an ordinary database"? Do you want to:

• Make a one-step export of XFM data attached to XFM elements to some relation database.
• Convert "XFM project with data stored in DGN file" to "XFM project using mslink to store data in a database".
• Drop anything related to XFM from elements and design file and to convert existing XFM DGN file into old style DGN file with mslinks (including data transfer)?

With regards,

 Jan

Hi GRJ,

I have no simple answer for your (sorry), but I'd like to ask what exactly do you want to achieve if talking about "no !! way to transfer the XFM data in an ordinary database"? Do you want to:

• Make a one-step export of XFM data attached to XFM elements to some relation database.
• Convert "XFM project with data stored in DGN file" to "XFM project using mslink to store data in a database".
• Drop anything related to XFM from elements and design file and to convert existing XFM DGN file into old style DGN file with mslinks (including data transfer)?

With regards,

 Jan

Hi Jan,

I want to import cadastral shape areas ( files in SHP and DBF format) in Microstation how you said as "old style DGN with mslink".
For this I import the SHP/DBF files in bentley map, then I want to export the XFM data record to the odbc database connected with MSLINK to the graphical element .

With regards,
Josef

Hi Josef,

so the complete workflow is:

1. There are some shape files with the same structure (cadastral map areas).
2. There is XFM project designed based on SHP files structure. (Note: It's possible to import SHP file both with and without XFM project, so it's the reason of this question)
3. You use MapInteroperability tool in Bentley Map to import SHP file
4. You want to convert such file into "mslink style", which includes:
   
   1. To move properties from XFM to database
   2. To establish mslinkg to this newle created record
   3. To drop XFM element into normal MicroStation element

Is it correct?

With regards,

 Jan

Hi Jan,

I use Bentley Map only for import SHP Files, no XFM project.

Command:

>File >Import >Gis Data Types >Imports >New Import >Add File >Import

With regards,

Josef

Attached my MVBA script.

dbXFM2DB.mvba

Hi Josef,

I have had not enough time to check your code (but for the first sight it looks not bad, even if talking about its structure). I did some quick testing and in my opinion this code should work:

Dim ftEnum As FeatureEnumerator
Set ftEnum = locateOp.GetLocatedFeatures

Do While ftEnum.MoveNext
	Dim currentFeature As feature
	Set currentFeature = ftEnum.Current
	
	Dim pureElement As element
	Set pureElement = xft.FeatureMgr.RemoveFeatureLinkages(currentFeature.Geometry)
	
	'Do whatever you need with the new element
	pureElement.Level = ActiveDesignFile.Levels.Find("Default")
	
	pureElement.Rewrite
Loop

I guess you should add it to your process feature class to OnFinished method.

With regards,

 Jan

Hi Jan,
First thank you for your effort!

If I understand you correctly, then I have to work through all selected features and not like my approach through the selected elements.
My basic code is (was):
Dim ee As ElementEnumerator
Set ee = locateOp.GetLocatedElements
ShowPrompt "Elements: " & CStr(locateOp.LocatedElementsCount)
Do While ee.MoveNext

Set ele = ee.Current
ele.Redraw msdDrawingModeHilite
If Not ele.HasAnyDatabaseLinks Then
insertRow ele ' convert xfm data to ODBC record an attach to element
End If
Loop

I must substitute this approach with your code.
Is this correct?

With regards,
Josef R.