Turn several inventor drawing file views in one Autocad File

[CCarreiras]

Hi!

Scenario: There's a few  dwg (or dxf) files in a folder. Each drawing as only one view.

It's possible to create a iLogic Rule to:

copy all this drawing views to just one Autocad file (all inventor views in the autocad file , paste the views in the modelspace)

or

copy each views from the several drawings and pastey all them in a new Inventor's  file, all views in the same sheet.

Any thoughts?

Thanks.

[bradeneuropeArthur]

Hi,

Yes this is possible:

take this code and put in your I-logic.

'Public Sub dwg()
Dim a As Application
a = ThisApplication

Dim Copydwgfrom As DrawingDocument
'put here your dwg full file name where to copy from
Copydwgfrom = a.Documents.Open("C:\Vault\Projects\w2.dwg", False)

Dim Copydwgto As DrawingDocument
Copydwgto = a.ActiveDocument

Dim shCopy As Sheet
shCopy = Copydwgfrom.Sheets.Item(1)

Call shCopy.CopyTo(Copydwgto)
'End Sub

Then afterwards you can manually export to autocad dwg.

or with this coding:

''Public Sub PublishDWG()
    ' Get the DWG translator Add-In.
    Dim DWGAddIn As TranslatorAddIn
     DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As Document
     oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
     oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
     oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
	oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    ' Check whether the translator has 'SaveCopyAs' options
    If DWGAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        Dim strIniFile As String
		'first create an ini file manually with the export options
		'this will be needed to define the export settings
        strIniFile = "C:\tempDWGOut.ini"
        ' Create the name-value that specifies the ini file to use.
        oOptions.Value("Export_Acad_IniFile") = strIniFile
    End If

    'Set the destination file name
    oDataMedium.FileName = "c:\tempdwgout.dwg"

    'Publish document.
    Call DWGAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'End Sub

if help is neede please ask.

[CCarreiras]

HI!

Thanks, it's a good start.

Ok, it works for one document, but the workflow is to do it to all documents in the folder.

A good scenario will be to select a folder and then the rule will run the task for every dwg file inside the folder.

Thanks.

[bradeneuropeArthur]

Changes like this:

Look in Directory C:\tests

Dim a As Application
a = ThisApplication

'Your directory here!!!
Dim oDir As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Tests")
Dim fio() As System.IO.FileInfo = oDir.GetFiles()
'MsgBox(fio.Count)
        'a.GetFiles()
Dim f As System.IO.FileInfo
        For Each f In fio

            If f.FullName.Contains(".dwg") Then

		Copydwgfrom = a.Documents.Open(f.FullName, False)

            End If
        Next

Dim Copydwgfrom As DrawingDocument

Dim Copydwgto As DrawingDocument
Copydwgto = a.ActiveDocument

Dim shCopy As Sheet
shCopy = Copydwgfrom.Sheets.Item(1)

Call shCopy.CopyTo(Copydwgto)

[CCarreiras]

Did you test the rule?

"Copydwgfrom cannot be referred to befote it is declared", so, i moved ti up.

Nevertheless, the rule doesnt work, Unspecified error.

Tryed to make some changes, but still dont work...

Thanks.

[bradeneuropeArthur]

Yes you are right.

I need to copy it form vb.net.

That went wrong!

I will test again.

[bradeneuropeArthur]

Rewritten and tested:

Dim a As Application
a = ThisApplication
Dim oDir As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Tests")
Dim fio() As System.IO.FileInfo = oDir.GetFiles()
MsgBox(fio.Count)
'a.GetFiles()
Dim f As System.IO.FileInfo

Dim Copydwgfrom As Inventor.Document
Dim Copydwgto As DrawingDocument
Copydwgto = a.ActiveDocument
Dim shCopy As Sheet
'Copydwgfrom = 
For Each f In fio
	

    If f.FullName.Contains(".dwg") Then

		Copydwgfrom = a.Documents.Open(f.FullName, False)
		shCopy = Copydwgfrom.Sheets.Item(1) 
		Call shCopy.CopyTo(Copydwgto)
    End If
Next

[CCarreiras]

OK, it works in a simple way.

My aim is to read each file in test folder, copy the views, and paste all copied views, in only one sheet in the new drawing. Now is pasting each view in one new sheet.

Any chance to paste all the copied views in the same sheet?

Also, if the source files have more then one sheet, it's possible to bring all sheets instead the first one?

Thanks.

[bradeneuropeArthur]

Simple as it is...

Copy instead the views to the current sheet.