Formazione - Access - Microstation V8

Per effettuare operazioni ripetitive le cui specifiche sono contenute in tabelle, è utile utilizzare l'automazione di VBA che permette di eseguire dei comandi in altre applicazioni.

Per effettuare il collegamento da Access a Microstation si utilizza la seguente sintassi:

Dim msobj As Object

Set msobj = GetObject("", "Microstation.Application")

msobj.MbeSendCommand "<comando>"

dove <comando> è un comando Microstation valido che normalmente si lancia dal prompt dei comandi di Microstation.

Esempio:

Abbiamo in Access una tabella LV_DGN che contiene i campi Livello e NomeLV dove Livello è il numero di livello di Microstation e NomeLV è il nome che vogliamo attribuire ad ogni livello.

La procedura che attribuisce i nomi ad ogni livello è la seguente:

Dim msobj As Object
Dim mtb As DAO.Recordset

Set msobj = GetObject("", "Microstation.Application")
Set mtb = CurrentDb.OpenRecordset("LV_DGN")

Do Until mtb.EOF
    msobj.MbeSendCommand "level set name " & mtb.Fields("Livello ") & " """ & mtb.Fields("NomeLV ") & """"
    mtb.MoveNext
Loop

Set msobj = Nothing

Set mtb = Nothing

28/08/2008