Comunidad
AutoCAD - Todos los productos - Español
Bienvenido/a al foro de los productos de la familia AutoCAD de Autodesk! Comparte tu conocimiento, haz preguntas y explora los temas populares de AutoCAD.
cancelar
Mostrando los resultados de 
Mostrar  solo  | Buscar en lugar de 
Quiere decir: 

Obtener la ultima celda con datos de Excel desde un Lisp

2 RESPUESTAS 2
RESUELTAS
Responder
Mensaje 1 de 3
omar.villalobos
213 Vistas, 2 Respuestas

Obtener la ultima celda con datos de Excel desde un Lisp

Buenas noches, estoy creando un Lisp que me permita cargar un Excel y que cree una lista a partir de datos que contienen las columnas A, B, C y D, ya he logrado cargar y conectar Excel con mi código Lisp, sin embargo, creo que necesito obtener la última celda con dato de la columna "A" para luego realizar un “repeat” con el numero hallado y así poder crear las listas e interactuar con ellas más adelante. Esa es la parte que no he podido lograr -Con el código, obtener el dato de la última celda de la columna "A" con dato- Si alguien puede ayudarme. Estaré muy agradecido. Comparto el codigo. Acepto consejos u otras opciones que ayuden al objetivo. Saludos.

Etiquetas (1)
2 RESPUESTAS 2
Mensaje 2 de 3
Sea-Haven
en respuesta a: omar.villalobos

 This is get active range, change myxl to suit.

; thanks to Lee-mac for this defun 
; www.lee-mac.com
; 44 is comma 9 is tab 34 is space 58 is colon
(defun _csv->lst58 ( str / pos )
	(if (setq pos (vl-string-position 58 str))
		(cons (substr str 1 pos) (_csv->lst58 (substr str (+ pos 2))))
		(list str)
    )
)

; get active range selected
(defun getrangexl ( / lst UR CR RADD )

(setq lst '())
(setq UR (vlax-get-property  (vlax-get-property myxl "ActiveSheet") "UsedRange"))
(setq CR (vlax-get-property UR "CurrentRegion"))
(setq RADD (vlax-get-property CR "Address"))
(setq cnt (vlax-get-property CR  "Count"))

(setq lst (_csv->lst58 radd))

(setq st (vl-string-subst "" "$" (vl-string-subst "" "$" (nth 0 lst) )))
(setq end (vl-string-subst "" "$" (vl-string-subst "" "$" (nth 1 lst) )))

(setq st  (columnrow st))
(setq end  (columnrow end))

(princ st)
(princ "\n")
(princ end)

)

 

Mensaje 3 de 3
joaquim.moral
en respuesta a: omar.villalobos

Hola @omar.villalobos,
¡Gracias por participar en la Comunidad Autodesk!

¿Te ha ayudado la propuesta que te ha hecho @Sea-Haven a solucionar tu duda?

Si es así, puedes hacer clic en el botón "Aceptar como solución". De esta manera ayudas a que otras personas usuarias puedan acceder y encontrar más fácilmente la información.

De lo contrario, coméntanos en este mismo hilo para que la comunidad pueda seguir ayudándote. 

Gracias y esperamos tu respuesta,

¿Te ha parecido útil este post? ¡Deja un like!
¿Tu pregunta ha sido solucionada? Selecciona 'Marcar como solución' y ayuda a las demás a encontrar fácilmente la información.

You found a post helpful? Then feel free to give likes to these posts!
Your question got successfully answered? Then just click on the 'Mark as solution'


Joaquim Moral
Community Manager
Spanish Community

¿No encontraste lo que buscabas? Pregúntale a la comunidad o comparte tus conocimientos.

Publicar en los foros  

Autodesk Design & Make Report

New events in the Spanish Community