Imprimir en pdf de un click

Ir abajo

Imprimir en pdf de un click

Mensaje por cyberactive el Mar Nov 13, 2018 4:57 pm

Hola: Tengo un problema al tratar de imprimir en PDF varios LAYOUT, todos estarian configurados para imprimir en A3 y horizontal, funciona creando el archivo pero solo de uno, el detalle es que hay varios layout y tengo que crear archivos en PDF  de cada layout o si es posible que genere un solo archivo con los layout que contiene el archivo DWG, no pongo un DWG por que funciona sobre cualquier archivo de autocad, adjunto si el codigo que he estado elaborando, gracias de antemano.

Código:

(defun c:PDFA3()
(foreach layoutname (vl-remove "Model" (layoutlist))
  (command "._layout" "set" layoutname)
  (command "tilemode" "0")
  (command "-plot"
     "y"
     ""
     "Dwg To PDF.pc3"
     "ISO A3 (420.00 x 297.00 MM)"
     "m"
     "L"
     "N"
     "e"
     "_F"
     "_C"
     "_Y"
     "acad.ctb"
     "Y"
     "N"
     "N"
     "N" (strcat "D:" (getvar "dwgname")) "y" "Y")
  )
)
)

cyberactive

Mensajes : 26
Fecha de inscripción : 16/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Imprimir en pdf de un click

Mensaje por bernie67 el Mar Nov 13, 2018 9:36 pm

Y por que no usas el publish? puedes asignar un nombre a cada tipo de ploteo según el tamaño, la orientación y los ctb a usar y cargarlos en el publish, luego determinas si quieres que salgan en un solo archivo o plano a plano. Lo puedes hacer para varios archivos abiertos al mismo tiempo. La verdad no se programar pero es la forma usual de hacerlo en autocad.
Saludos
Bernardo Corradine
avatar
bernie67

Mensajes : 69
Fecha de inscripción : 22/03/2016
Edad : 51
Localización : Bogota DC-Colombia

Ver perfil de usuario

Volver arriba Ir abajo

Re: Imprimir en pdf de un click

Mensaje por cyberactive el Mar Nov 13, 2018 11:14 pm

Gracias por la pronta respuesta, pero si he utilizado el comando PUBLISH, pero tendria que personalizar cada rato, en todo caso con Autolisp funcionaria en todos los archivos sin configurar, es mas ya avance con el lisp y ya crea los PDF con los nombres de cada layout pero lo unico que falta es direccionar al disco D, por que solo los graba en documentos, si alguien podria agregarle la ruta de grabar al disco D.
Código:
(defun c:pruebaPDF ()
(foreach lay (layoutlist)
  (setvar 'CTab lay)
  (COMMAND "-PLOT"
 "y" ;grabar configuracion
 ""
 "DWG To PDF.pc3"
                "ISO expand A3 (420.00 x 297.00 MM)"
 "M"
 "Landscape"
 "N"
 "E"
 "f"
 "C"
 "Y"
 "acad.ctb"
 "Y"
 "N"
 "N"
 "N"
 ""; Nombre de archivo
 "N"
 "y")
    )
)

cyberactive

Mensajes : 26
Fecha de inscripción : 16/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Imprimir en pdf de un click

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.