Hi Laurie
Thanks for the reply. Unfortunely still doesn't work. It looks like the Set
g_oCivilApp = ... that itsn't workink but I can't understand the reason.
Here is the code:
Option Explicit
Public g_oCivilApp As AeccApplication
Public g_oAeccDoc As AeccDocument
Public g_oAeccDb As AeccDatabase
'
' Start Civil 3D, create document and database objects.
'
Public Function InitCivil3D() As Boolean
Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Const sAppName = "AeccXUiLand.AeccApplication.7.0"
Set g_oCivilApp = oApp.GetInterfaceObject(sAppName)
If g_oCivilApp Is Nothing Then
MsgBox "Error creating " & sAppName & ", exit."
InitCivil3D = False
Exit Function
End If
Set g_oAeccDoc = g_oCivilApp.ActiveDocument
Set g_oAeccDb = g_oAeccDoc.Database
InitCivil3D = True
End Function
Sub AlignHorizontalGeometry_RunReport()
On Error Resume Next
Dim rptDlg As ReportForm_HorizontalGeometry
' initialize C3D
If InitCivil3D = False Then
Call MsgBox("Error: Unable to initialize Civil 3D Object Model",
vbOKOnly, "Civil 3D Reports")
Exit Sub
End If
On Error Resume Next
Err.Clear
' Create report dialog and display it
Set rptDlg = New ReportForm_HorizontalGeometry
If Err.Number <> 0 Then
Exit Sub
End If
rptDlg.Show
Set rptDlg = Nothing
End Sub
Thanks
Luís
"Laurie" wrote in message
news:6354983@discussion.autodesk.com...
Hi Luis,
YOu need to:
Changes the references under [Tools][References] to suit R2010
You need to change the number 17.2 (for R2009) to 18 (for R2010) in the
GetCivilObjects code.
Lastly, save under a new name so you don't lose your R2009 functionality..
If that doesn't work, step through the code till you find the line
creating the error and post the line.
Regards,
Laurie Comerford
Luís Laíns wrote:
> Hi,
>
> I'm trying to run some VBA routines made for C3D 2009 in C3D 2010, but I'm
> allways getting the error message:
>
> Error: Unable to initialize Civil 3D Object Model
>
> I'm sure it's a very basic question but can anyone help me we this?
>
> Tks
> Luis
>
