Hello, I am trying to use a VBA for create lines since LibreOffice Calc to AutoCAD, I already tested the module in Excel and work perfectly, but now I want to try to run same VBA since LibreOffice Base, but I just have errors, Can someone help me to translate the VBA to Base please?
VBA module:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Option Explicit
Sub DrawRectangle()
Dim AutocadApp As Object
Dim AutocadDoc As Object
Dim RectArray(0 To 9) As Double
Dim Rectangle As Object
'****** Launch Autocad application****
On Error Resume Next
Set AutocadApp = GetObject(, "Autocad.application")
On Error GoTo 0
If AutocadApp Is Nothing Then
Set AutocadApp = CreateObject("Autocad.application")
AutocadApp.Visible = True
End If
''****Point 1****
RectArray(0) = 0
RectArray(1) = 0
''****Point 2****
RectArray(2) = ActiveSheet.Range("C6")
RectArray(3) = 0
''****Point 3****
RectArray(4) = ActiveSheet.Range("C6")
RectArray(5) = ActiveSheet.Range("C7")
''****Point 4****
RectArray(6) = 0
RectArray(7) = ActiveSheet.Range("C7")
''****Point 5****
RectArray(8) = 0
RectArray(9) = 0
''****Draw rectangle****
On Error Resume Next
Set AutocadDoc = AutocadApp.ActiveDocument
On Error GoTo 0
If AutocadApp Is Nothing Then
Set AutocadDoc = AutocadApp.Document.App
End If
Set Rectangle = AutocadDoc.modelspace.addlightweightpolyline(RectArray)
AutocadApp.ZoomExtents
Set Rectangle = Nothing
Set AutocadApp = Nothing
Set AutocadDoc = Nothing
End Sub
error:
BASIC runtime error. '1'
Type: com.sun.star.lang.WrappedTargetRuntimeException Message: [automation bridge] unexpected exception in IUnknownWrapper::invoke ! Message : [automation bridge]: