Macro en SOLIDWORKS para guardar en PDF
Publicado: Mié Sep 25, 2019 12:17 pm
Muy buenas,
soy nuevo y no sé como va esto... acabo de escribir este tema en el foro de "calc", creo, pero no aparece...
pongo de nuevo por aquí el caso que me ocupa... (disculpas si no procede)
estoy buscando tener una macro en solidworks que permita tener una serie de archivos abiertos (*.slddrw) y que se puedan guardar uno por uno en pdf en el mismo directorio en el que están los archivos *.sldrw. y que vaya cerrando los que ya ha guardado en pdf.
hasta ahora sólo he encontrado por la red una macro que permite tener un archivo abierto y guardarlo como pdf (que es algo que se puede hacer en un par de clicks con el ratón...
os dejo aquí el código:
espero que alguien pueda ayudarme.
Muchas gacias por vuestra ayuda, vuestro tiempo y vuestro conocimiento!!
soy nuevo y no sé como va esto... acabo de escribir este tema en el foro de "calc", creo, pero no aparece...
pongo de nuevo por aquí el caso que me ocupa... (disculpas si no procede)
estoy buscando tener una macro en solidworks que permita tener una serie de archivos abiertos (*.slddrw) y que se puedan guardar uno por uno en pdf en el mismo directorio en el que están los archivos *.sldrw. y que vaya cerrando los que ya ha guardado en pdf.
hasta ahora sólo he encontrado por la red una macro que permite tener un archivo abierto y guardarlo como pdf (que es algo que se puede hacer en un par de clicks con el ratón...
os dejo aquí el código:
Código: Seleccionar todo
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim Filepath As String
Sub Main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' Check to see if a drawing is loaded.
If swModel Is Nothing Then
swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")
' If no model currently loaded, then exit
Exit Sub
End If
If swModel.GetType <> swDocDRAWING Then
swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")
' If active file is not drawing, then exit
Exit Sub
End If
Set swDraw = swModel
If swDraw.GetPathName = "" Then
swDraw.Save
End If
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, ".") - 1)
swDraw.SaveAs (Filepath + ".PDF")
End Sub
Muchas gacias por vuestra ayuda, vuestro tiempo y vuestro conocimiento!!