Ole Objects

[jason907238]

I am trying to copy the Ole objects in a file and rename the path that is in the drawing. I can't seam to find the path location in the Ole Object and there is not much out there on the web about this. I was doing the same with raster images in the same loop. I have managed to do this with the raster images. here is what I have so far....

       For Each mObject As Autodesk.AutoCAD.Interop.Common.AcadObject In mDoc.ModelSpace
            Try
                Select Case mObject.ObjectName
                    Case "AcDbOle2Frame"
                        Dim mOle As Autodesk.AutoCAD.Interop.Common.IAcadOle = mObject
                        'XXXXXXXXXXX need to finish adding here
                    Case "AcDbRasterImage"
                        Dim mRaster As Autodesk.AutoCAD.Interop.Common.AcadRasterImage = mObject
                        If Not HaveCopiedFile(mRaster.ImageFile) Then
                            System.IO.File.Copy(mRaster.ImageFile, _
                                       mFile.DestinationPath & myFileName(mRaster.ImageFile))
                            CopiedFiles.Add(myFileName(mRaster.ImageFile))
                        End If
                        mRaster.ImageFile = mFile.DestinationPath & myFileName(mRaster.ImageFile)
                End Select
            Catch ex As Exception
                MsgBox("errored in Model search")
            End Try
        Next

[Jeff H]

The Ole2Frame.LinkPath property