Foros CATIA

1 envío / 0 nuevos
Inicie sesión o regístrese para comentar
Jue, 11/07/2013 - 13:15
#1
krulljcv
Desconectado/a
Visto por última vez: Hace 5 años 6 meses
se unió: 01/29/2013 - 15:17
Macro para exportar PDF&DWG en ¿CATIA de 64 bits?

Abro este hilo para preguntar si alguien sabe de alguna macro para exportar los planos a PDF&DWG que funcione en sistema de 64 bits de CATIA.

 

Actualmente uso una macro que la saqué de este foro:

https://www.3dcadforums.com/catia-forum/4901-save-pdf.html

 

y que funciona perfectamente en sistema de CATIA de 32 bits. Si alguien sabe la programación de esta macro que he adjuntado, cambiar alguna línea para que funcione en sistemas de 64 bis estaría muy agradecido.

 

Gracias.

Superior

Thu, 07-11-2013 16:29:11
#1
admincursos

Desconectado/a

Visto por última vez: Hace 2 días 6 horas

se unió: 02/10/2008 - 13:19

Posts:
Enviar correo electrónico

Hola krulijcv

Pego el código de la macro aqui. ¿Podrías decirnos en qué linea te da el error? ¿O que error te sale al ejecutar? Ahora no tengo aqui una maquia de 64btis y no lo puedo probar.

Saludos

Create a textfile with extensions .CATvbs 
Paste all below line into thetextfile.CATvbs and in Catia run this macro.
This macro create both PDF and DWG at same time.
--------------------------------------------
Language="VBSCRIPT"
Sub CATMain()
Dim oFSO
Set oFSO= CreateObject("Scripting.FileSystemObject")

PathToCATFiles = InputBox("Enter path there CATDrawings-files exist" & vbCrLf, "File", "")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If Not oFSO.FolderExists(PathToCATFiles& "\PDF") Then
oFSO.CreateFolder(PathToCATFiles& "\PDF")
End If
If Not oFSO.FolderExists(PathToCATFiles& "\DWG") Then
oFSO.CreateFolder(PathToCATFiles& "\DWG")
End If

Set FileList = objWMIService.ExecQuery("Associators of {Win32_Directory.Name='" & PathToCATFiles & "'} Where " & "ResultClass = CIM_DataFile")

For Each objFile In FileList

If objFile.Extension = "CATDrawing" Then

On Error Resume next
Set documents = CATIA.Documents
Set drawingDocument = documents.Open(PathToCATFiles & "\" & objFile.FileName & "." & objFile.Extension)
Set drawingDocument = CATIA.ActiveDocument
drawingDocument.ExportData PathToCATFiles & "\PDF\" & objFile.FileName & ".pdf", "pdf"
drawingDocument.ExportData PathToCATFiles & "\DWG\" & objFile.FileName & ".dwg", "dwg"
Set specsAndGeomWindow = CATIA.ActiveWindow
specsAndGeomWindow.Close 
Set drawingDocument = CATIA.ActiveDocument
drawingDocument.Close 
End If
Next

Wscript.Echo "DWG and PDF files created in subfolders to " & PathToCATFiles 
End Sub
 
Superior


Fri, 08-11-2013 12:48:43
#1
admincursos

Desconectado/a

Visto por última vez: Hace 2 días 6 horas

se unió: 02/10/2008 - 13:19

Posts:
Enviar correo electrónico

Hola de nuevo,

La acabo de probar en win 64 con catia64 r19 y me funciona perfectamente, saca los dwg y pdf en sus correspondientes directorios. ¿Que versión de catia usas?

Saludos

Superior


Sat, 23-11-2013 01:35:37
#1
Mecanico

Desconectado/a

Visto por última vez: Hace 3 años 1 mes

se unió: 10/18/2013 - 18:46

Posts:

Buenas noches, no se si es tarde o no, pero por lo menos lo comento para que otros lo tengan claro.

Me han pasado esta Macro hace unas horas, tengo Windows 64 bits, la he probado y me he quedado con la boca abierta a mas no poder. No tenía ni idea de para que servía (me la han pasado y me han dicho, es muy buena), pero ha hecho un pdf y un dwg alucinantes.

Y lo bueno de todo, es que no me ha dado ningún error, solamente le he tenido que indicar el directorio donde estaban los Drawings de Catia.

 

Muy buena la macro.

Superior


Mon, 25-11-2013 13:03:09
#1
krulljcv

Desconectado/a

Visto por última vez: Hace 5 años 6 meses

se unió: 01/29/2013 - 15:17

Posts:

Hola amigos perdón por la tardanza en la respuesta, es que con el trabajo y esas cosas se me pasó el mirar el foro. Bueno la versión que usamos de Catia es la V5.20 Service pack 5 Built 20.

 

Tenemos la versión de 32 bits instalado en equipos con windows 7 Ultimate 64 y la macro funciona correctamente pero en uno de los equipos trae la versión de catia en 64 bits corriendo también en windows 7 Ultimate 64 y es ahí donde no funciona correctamente, apareciendo la siguiente imagen que adjunto.

 

No se si es algún problema de configuración del Catia, del windows o de la propia macro, a ver si alguien me podria echar un cable, gracias.

Superior