Good day,

Will this script help you a bit?

I have received this example from a colleague of mine, which I'd like to pass to you:

'a = AutoCAD Zeichnung

'b = Interaktiver Report

Output "Start: Importing " & a.Name & " to " & b.Name

'Get DWG Filename

DwgFile = a.FullFileName

'Create Import Object

Set DxfImport = CreateObject("ComosDxfImport2.DxfImport2")

If Not DxfImport Is Nothing Then

If DwgFile <> "" Then

Set IRep = b.Report

Set RDoc = Irep.ReportDocument

RetVal = DxfImport.Import(RDoc, DwgFile, Nothing, false, true)

MsgBox RetVal

End If

Else

Msgbox "DxfImport Objekt konnte nicht angelegt werden."

End If

Output "Ende"

'int ComosImportInterface.IDXFImport.Import

' (Document doc,

' string Filename,

' ref IXReport XRep,

' bool GraphicalOnly,

' bool Unattended)

All the best,

SuperPippo

Dear Otso,

I hear that Siemens is taking care of this point, so please stay tunes.

With best regards,

SuperPippo

Good day Otso,

I have found out that you need to open the report, in front of the import, in your script.

All the best,

SuperPippo

Hello,

Here you see the script example from a colleague of mine, for this purpose. Opening the Report was meant in the script, not with a double click :-)

'a = AutoCAD Zeichnung

'b = Interaktiver Report

Output"Start: Importing "& a.Name &" to "& b.Name

' get DWG file name

DwgFile = a.FullFileName

' create Import Object

SetDxfImport = CreateObject("ComosDxfImport2.DxfImport2")

If NotDxfImportIs Nothing Then

IfDwgFile <>""Then

' open report

SetIRep = b.Report

IRep.Open

' instanciate ReportDocument after report is open, because before it is null.

SetRDoc = Irep.ReportDocument

' call import function

RetVal = DxfImport.Import((RDoc), DwgFile,Nothing, false, true)

'\\\\\- Unattended

'\\\\- GraphicalOnly

'\\\- XRep

'\\- AutoCAD FileName

'\- ReportDocument

' save and close report

IRep.Save

IRep.Close

b.ShutdownIReport

' returnvalue of DxfImport is always 0

Output"Returnvalue: " &RetVal

End If

Else

Msgbox"DxfImport Objekt konnte nicht angelegt werden."

End If

Output"Ende"

'int ComosImportInterface.IDXFImport.Import

'      (Document doc,

'  string Filename,

'      ref IXReport XRep,

'      bool GraphicalOnly,

'      bool Unattended)

All the best,

SuperPippo