Microstation - CreateDatabaseLink

CreateDatabaseLink - URGENTE !!!

Publicado por esther (3 intervenciones) el 15/09/2003 13:14:10

Hola a todos, necesito saber como se crea un databaselink, he mirado la ayuda pero no me ha servido de nada.
este es el código que intento ejecutar:
Dim en As ElementEnumerator
Dim sc As New ElementScanCriteria
Dim ele As Element
Dim dtlink As DatabaseLink
sc.IncludeType ElementEnumerator
Set en = MicroStationDGN.ActiveModelReference.Scan(sc)
Do While en.MoveNext
Set ele = en.Current
dtlink = ele.GetDatabaseLinks --> error
MsgBox dtlink.EntityNumber
MsgBox dtlink.DatabaseType
Loop
El error me dice que el dtlink no es un tipo objeto o tipo variant, alguien me puede ayudar, es bastante urgente.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Crear DatabaseLink en VBA

Publicado por Alejandro (129 intervenciones) el 22/12/2023 22:58:07

Para crear un DatabaseLink en MicroStation en VBA, debes utilizar la función `CreateDatabaseLink` de la clase `Element`. Aquí tienes un ejemplo de cómo podrías hacerlo:

Dim en As ElementEnumerator

Dim sc As New ElementScanCriteria

Dim ele As Element

Dim dtlink As DatabaseLink

sc.IncludeType ElementEnumerator

Set en = MicroStationDGN.ActiveModelReference.Scan(sc)

Do While en.MoveNext

    Set ele = en.Current

    ' Crear un nuevo DatabaseLink para el elemento actual '

    Set dtlink = ele.CreateDatabaseLink

    ' Asignar valores a las propiedades del DatabaseLink '

    ' Por ejemplo, establecer el EntityNumber y DatabaseType '

    dtlink.EntityNumber = ele.ID

    dtlink.DatabaseType = 1 ' Puedes asignar el valor adecuado según tus necesidades '

    ' Mostrar información '

    MsgBox "EntityNumber: " & dtlink.EntityNumber

    MsgBox "DatabaseType: " & dtlink.DatabaseType

Loop

En este código, `ele.CreateDatabaseLink` se utiliza para crear un nuevo DatabaseLink para el elemento actual en el bucle. Luego, puedes asignar valores a las propiedades del DatabaseLink según tus necesidades.

Asegúrate de asignar los valores correctos a las propiedades del DatabaseLink para que se adapten a tus requerimientos específicos.

Espero que esto te sea de ayuda, Esther.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Microstation - CreateDatabaseLink - URGENTE !!!