FeatureMgr in VB.NET

Re: FeatureMgr in VB.NET

lijumathewv — Thu, 12 Aug 2010 10:09:35 GMT

Thanks Jeff. This helped me a to put my step ahead.

Re: FeatureMgr in VB.NET

Jeff Bielefeld — Wed, 11 Aug 2010 20:47:49 GMT

...you will need to use the CreateObjectInMicroStation method on the MicroStation application object to ensure that your XFT objects are created in the MicroStation's address space. The CreateObjectInMicroStation method is useful for an out-of-proc program that needs to create objects from a COM server that must run in MicroStation's address space.

Following is a simple VB.NET code example which uses CreateObjectInMicroStation to create XFT objects as previously described.

Imports DGN = Bentley.Interop.MicroStationDGN
Imports XFT = Bentley.Interop.Xft

Public Class Form1

    Friend m_xftCmdMgr As XFT.CmdMgr
    Friend m_xftFeatureMgr As XFT.FeatureMgr
    Friend m_xftFeatureEnumerator As XFT.FeatureEnumerator
    Friend m_xftDialogMgr As XFT.DialogMgr
    Friend m_xftPropMgr As XFT.PropMgr
    Friend m_MSApp As DGN.Application
    Friend m_ActiveFile As DGN.DesignFile
    Friend m_CurrentModel As DGN.ModelReference

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

test()

End Sub

Friend Sub xft_initialize(ByVal msapp As DGN.Application)

m_MSApp = msapp

        m_xftFeatureMgr = CType(m_MSApp.CreateObjectInMicroStation("xft.FeatureMgr"), XFT.FeatureMgr)
        m_xftFeatureEnumerator = CType(m_MSApp.CreateObjectInMicroStation("xft.FeatureEnumerator"), XFT.FeatureEnumerator)
        m_xftCmdMgr = CType(m_MSApp.CreateObjectInMicroStation("xft.CmdMgr"), XFT.CmdMgr)
        m_xftPropMgr = CType(m_MSApp.CreateObjectInMicroStation("xft.PropMgr"), XFT.PropMgr)
        m_xftDialogMgr = CType(m_MSApp.CreateObjectInMicroStation("xft.DialogMgr"), XFT.DialogMgr)

End Sub

Sub test()

Dim oMSApp As Bentley.Interop.MicroStationDGN.Application
Dim oMSAppConnector As Bentley.Interop.MicroStationDGN.ApplicationObjectConnector

' Create our MicroStation application object.
oMSAppConnector = GetObject(, "MicroStationDGN.ApplicationObjectConnector")

oMSApp = oMSAppConnector.Application

' Initialize our global XFT objects in the MicroStation process.
xft_initialize(oMSApp)

' Display the currently active design file.
MsgBox(oMSApp.ActiveDesignFile.Name)

' Create an XFT feature enumerator.
m_xftFeatureEnumerator = m_xftFeatureMgr.GetFeaturesInDgnList(oMSApp.ActiveDesignFile)

        Dim oFeature As XFT.feature
        Dim sPropertyList As String
        Dim oProperty As XFT.Property

        ' Loop through our feature enumerator and create string that contains the property names and values.
        Do While m_xftFeatureEnumerator.MoveNext
            oFeature = m_xftFeatureEnumerator.Current
            Dim oProperties As XFT.PropertyEnumerator = oFeature.GetPropertyEnumerator
            sPropertyList = "Property Values: "
            Do While oProperties.MoveNext
                oProperty = oProperties.Current
                sPropertyList += " " + oProperty.Name + " = " + oProperty.value
            Loop

            ' Display the property names and values.
            MessageBox.Show(sPropertyList)
        Loop

End Sub

End Class

Re: FeatureMgr in VB.NET

lijumathewv — Wed, 11 Aug 2010 17:24:56 GMT

This is what I'm doing in Vb.NET

Public Class Form1

Dim MSApp As Application

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim app As MicroStationDGN.ApplicationObjectConnector

Try

app = GetObject(, "MicroStationDGN.ApplicationObjectConnector")

MSApp = app.Application

MsgBox("Connected")

Catch ex As Exception

MsgBox("Open Power Map" & vbCrLf & ex.Message)

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim el As Element

With MSApp.ActiveModelReference

el = .GetElementByID64(txt.Text)

If el IsNot Nothing Then

Dim Mgr As New XFT.FeatureMgr ' Error Happens here

Dim ft As feature

ft = Mgr.CreateFeature(el)

Else

MsgBox("Element Not Found")

End If

End With

End Sub

End Class

Re: FeatureMgr in VB.NET

lijumathewv — Wed, 11 Aug 2010 17:20:15 GMT

The Bentley Map is loaded and I've referenced the file Interop.xft.dll

But I get the following error on the line

Dim s as new xft.FeatureMgr

Retrieving the COM class factory for component failed due to the following error: 8007007e.

Re: FeatureMgr in VB.NET

Jerry Walter - Bentley — Wed, 11 Aug 2010 16:58:44 GMT

You need to have Bentley Map loaded and to reference the assemblies in the /Mpa/Bin/assemblies folder to your project.. The feature manager is in the Bentley.Interop.XFT assembly.

Re: FeatureMgr in VB.NET

lijumathewv — Wed, 11 Aug 2010 15:47:34 GMT

Once Attaching the Reference Bentley GeoGraphics XFT Object Library I can do the following in VBA

Dim s As New xft.FeatureMgr

Dim en As xft.FeatureEnumerator

Dim el As Element

Set el = ActiveModelReference.GetElementByID(DLongFromLong(25715))

Dim ft As feature

Set ft = s.CreateFeature(el)

Dim pr As Property

While en1.MoveNext

Set pr = en1.Current

Debug.Print pr.Name & ":" & pr.Value & vbCrLf

Wend

I Get all the properties of that Particular Element. But this is not possible from VB.NET

Re: FeatureMgr in VB.NET

Jon Summers — Fri, 14 May 2010 14:06:27 GMT

Please provide evidence (e.g. a screenshot) that shows FeatureMgr in MicroStation V8i.

Re: FeatureMgr in VB.NET

DanPaul — Fri, 14 May 2010 14:02:13 GMT

Which assembly? Which namespace? Provide more info about, since I personaly have no idea where that class could be...

Re: FeatureMgr in VB.NET

lijumathewv — Fri, 14 May 2010 11:38:05 GMT

You will find this featureMgr class in V8i.

I want this FeatureMgr class in VB.NET not in VBA

Re: FeatureMgr in VB.NET

Jon Summers — Thu, 13 May 2010 17:53:19 GMT

What do you mean by the 'FeatureMgr Class'? I don't see that in MicroStation VBA.

Regards, Jon Summers
LA Solutions