Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Microstation » CreateDatabaseLink - URGENTE !!!

Microstation - CreateDatabaseLink - URGENTE !!!

Volver
Nuevo Tema
<<>>
 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar