Buenos dias!
Tengo una aplicación que guarda planos .dwg. Estos planos tienen un .tif incrustado, y lo que la aplicación tiene que hacer es detectar que tiene ese .tif incrustado, cogerme el nombre y copiar a otra carpeta el -dwg y el .tif. El codigo que tengo es el siguiente, donde ejecuta el Autocad y en teoría tendría que coger el .tif. No se donde está el fallo o si falta algo. Os agradecería mucho si me ayudarais, es muy importante.
Dim orden As String
Dim objAcad As Object
Dim objDoc As Object
Dim DwgName As String
Dim extApp As ActiveXExtension
Dim entType As Integer
Dim entry As Object
Dim raster As String
Dim Autocad_04, prueba As String
Dim retval
On Error Resume Next
Set objAcad = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
retval = Shell("C:\Archivos de programa\Autodesk\Acadm 2004 DX\acad.exe")
If Err Then
MsgBox Err.Description
Screen.MousePointer = vbDefault
Exit Sub
Else
LinkApp lblHead, "AutoCAD.2004", "System"
Dim strcmd As String
strcmd = "_quit" + vbLf
lblHead.LinkExecute strcmd
Set objAcad = CreateObject("AutoCAD.Application")
objAcad.Visible = True
Set objDoc = objAcad.ActiveDocument
DwgName = AnadirRuta
If objDoc.FullName <> DwgName Then
objDoc.Open DwgName
End If
Set extApp = objAcad.GetInterfaceObject("ActiveXExtension.Application.1")
For Each entry In objDoc.ModelSpace
entType = entry.EntityType
If entType = 26 Then
raster = extApp.GetRasterImageFile(entry)
fichero_raster = raster
End If
Next
If raster <> "" Then
Dim fichero As String
Dim sextx As String
sextx = Right(raster, 3)
fichero = NumeroPlano + "_" + QueRevision + "." + sextx
Dim strcmd2 As String
strcmd = "-image" + vbLf + "c" + vbLf + "*" + vbLf + fichero + vbLf
strcmd2 = "filedia" + vbLf + "0" + vbLf + "._save" + vbLf + "" + vbLf + "_y" + vbLf + "filedia" + vbLf + "1" + vbLf
LinkApp lblHead, "AutoCAD.2004", "System"
lblHead.LinkExecute strcmd
lblHead.LinkExecute strcmd2
End If
Screen.MousePointer = vbDefault
objAcad.Quit
objAcad.nothing
End If
End If
Muchas gracias y un saludo.
