MText

giro_2000
giro_2000
in Programming and customization

Good morning. This is my code into a Excel VBA module:

Sub CreaMTextfromExcel()

Dim bricsApp As Object
Dim MTextObj As BricscadDb.AcadMText

On Error Resume Next
Set bricsApp = GetObject(, "BricsCadApp.AcadApplication")
If bricsApp Is Nothing Then
Set bricsApp = CreateObject("BricsCadApp.AcadApplication")
End If
On Error GoTo 0

………. etc.

Upon executing "Dim MTextObj As BricscadDb.AcadMText", compiler gives me back following error : User-defined type not defined". Could You please help me about it ?

Thankfully Yours, gfg

Comments

  • Virgil
    Virgil

    Hello.

    When using V26, maybe checking if references to Bricscad App 26.0 Type Library (x64) and Bricscad Db 26.0 Type Library (x64) are added to the project could help.

  • ALANH
    ALANH

    If your happy to do it the other way around then you can use lisp to read and write an Excel, so could read the text values X&Y string etc and draw in Bricscad. Have a lisp with lots of Excel defuns happy to provide, various authors.

    This may help though

    excel to bricscad.txt