;;___________________________ESEDI__________________________;;;

;;;___________________http://www.esedi.net___________________;;;

;;;___________________006IMPRIMEVENTANA.LSP______;;;

;;;_______________________Versión 2.O________________________;;;

;;;________________________17/01/2007________________________;;;

;;;Comando para imprimir con unos parametros concretos DIRECTAMENTE CON VENTANA en mi trabajo.;;;

(defun C:imprime ( / pto1 pto2 )

  	(setq pto1 (getpoint "\nesquina inf izda: "))	;solicita dos ptos de ventana de impresion
	(setq pto2 (getpoint "\nesquina sup dera: "))
  	(SETQ espacio (getvar "ctab"))           ;estrae el nombre del espacio actual
  	(setq rutatrazador "CutePDF Printer.pc3" )     ;502045E-1.pc3    ;RUTA CON DOBLES CONTRABARRAS \\\\zwingsz1\\502045E-1 ;HPDJ1050C.pc3
	(setq formatopapel "A3" ) ; "A3 (297 x 420 mm)" FORMATO VER TAMAÑOS "A4 (210 x 297 mm)" "Extendido: ISO A1  (horizontal)" "ISO A0 - 841 x 1189 mm."
  	(setq estilotrazado "socoin.ctb" )     ; "socoin.ctb" ESTILO NORMALIZADO "reducido.ctb"ESTILO PARA IMPRIMIR GRANDES FORMATOS CON GROSOR EN UN OFRMATO REDUCIDO ;doble contrabarra es \;

  ;establezco el camino en caso de EM espacio modelo

  (if (= espacio "Model")
  	(progn
  	(command "_plot" "S" espacio rutatrazador )	
	(command formatopapel "M" "H" "S" "V" pto1 pto2 "A" "C" "S" estilotrazado "S" "E" "N" "N" "S")  ;pausa que pide el comando
	(princ) ;para que no devuelva nil
	) ;cierro progn

  ;establezco el camino en caso del actual "EP" espacio papel
  ;en caso que espacio defierente de modelo

    	(progn
	(command "_plot" "S" espacio rutatrazador)	;doble contrabarra es \;
	(command formatopapel "M" "H" "S" "V" pto1 pto2 "A" "C" "S" estilotrazado "S" ;escribo las opciones que solo valen en el espacio papel
		"s" "s" "n" "n" "n" "s"	 )
	) ;cierro progn
);cierro if
);cierro defun

(prompt "\n Nuevo comando imprime")		;// Indico que he cargado la rutina //
;// Se deberia hacer una macro de boton que cargue la rutina, ejecute una vez el comando //