Foro de Delineación

Código: Seleccionar todo

;;;
;;;	CPAS.LSP
;;;	Por PABLO_FERRER. (elhombredelsaco)
;;;-----------------------------------------------------------------------------
;;;	Rutina para obtener una tabla de extensión ".csv" (ejecutable con Excell)
;;;	con el listado completo de caracteristicas
;;;	de todas las capas del archivo
;;;
;;;	Fecha de creación: 	11/04/08 
;;;	Ultima modificación: 	11/04/08    ---------- v0.0 ----------
;;;	para llamar a la orden teclee: cpas
(defun c:cpas (/ capas i arch fich capa)
 (vl-load-com)
 (setq capas (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
       i 0)
  (setq
      arch
	   (strcat
	     (getvar "dwgprefix")
	     "CAPAS_"
	     (VL-STRING-RIGHT-TRIM ".dwg" (getvar "dwgname"))
	     ".csv"
	   )
      fich (open arch "a")
    )
  (princ "\n" fich)
    (princ (strcat ";" "LISTADO DE CAPAS" ";" (getvar "dwgname") "\n") fich)
    ;(princ (strcat ";" "Generado el:" ";" fecha "\n") fich)
    ;(princ (strcat ";" "A las:" ";" hora "\n") fich)
    (princ (strcat ";" "NOMBRE;ACT;INUT;BLOQUEAR;COLOR;TIPO DE LÍNEA;GROSOR DE LÍNEA;ESTILO;TRAZAR") fich)
  (princ " ; \n" fich)
;;;
(repeat (vla-get-count capas)
  (setq capa (vla-item capas i))
  (princ
  	(strcat
	";"
	(vla-get-name capa)
	";"
	(if (= (vla-get-layeron capa) :vlax-true)
	 "act"
	 "des")
	";"
	(if (= (vla-get-freeze capa) :vlax-true)
	  "des"
	  "act")
	";"
	(if (= (vla-get-lock capa) :vlax-true)
	  "bloq"
	  "des")
	";"
	(itoa (vla-get-color capa))
	";"
	(vla-get-linetype capa)
	";"
	(itoa (vla-get-Lineweight capa))
	";"
	(vla-get-PlotStyleName capa)
	";"
	(if (= (vla-get-Plottable capa) :vlax-true)
	  "si"
	  "no")
	";"
	"\n")
	fich)
  (setq i (1+ i))
  )
(close fich)
  (alert
    (strcat "Se ha creado un fichero de nombre: "
	    "\n"
	    "CAPAS_"
	    (VL-STRING-RIGHT-TRIM ".dwg" (getvar "dwgname"))
	    ".csv"
	    "\n"
	    "en la dirección:"
	    "\n"
	    (getvar "dwgprefix")
    )
  )
)