Manejo de listas en autolist (cdr-car) en AutoCAD
Saludos @brehayan
Me da mucho gusto que ya te estés iniciando en el apasionante mundo de la programación en autolisp.
Para el caso de tu consulta, debo decirte 2 cosas:
1. La lista que mencionas, se encuentra incompleta, porque no tiene completo los paréntesis de cierre.
2. La lista que mencionas, aun así se completen los paréntesis, no se ajusta a lo que deseas obtener como resultado.
Por ello he propuesto una nueva lista que si se ajustaría a los resultados que deseas obtener.
;La lista propuesta, se debe corregir:
(setq i' (5 4 3 (9 6 7 (23 1 50) 34 66);parentesis incompleto
;Lista nueva, adecuada para obtener lo que se requiere
(setq i' (5 4 3 (23 1 50) 50))
;Obtencion de loselementos de la Nueva lista:
(car i);Primer elemnto de la lista
(cadr i);Segundo elemnto de la lista
(caddr i);Tercer elemnto de la lista
(cadddr i);Cuarto elemnto de la lista
(cadr(cdddr i));Quinto elemnto de la lista
;Aqui,otra forma para obtener los elementos de una lista:
(nth 0 i);Primer elemnto de la lista
(nth 1 i);Segundo elemnto de la lista
(nth 2 i);Tercer elemnto de la lista
(nth 3 i);Cuarto elemnto de la lista
(nth 4 i);Quinto elemnto de la lista
Espero que mis comentarios te sean de ayuda. En todo caso, con mucho gusto estaré atento por si tienes alguna aclaración.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
ya @calderg1000 te dio una excelente explicación. Aqui te puedo añadir un ejemplo con tus datos:
(cadddr i) ---> (23 1 50)
(car(cadddr i)) ---> 23
(cadr(cadddr i)) ---> 1
(caddr(cadddr i)) ---> 50
O según tu primer ejercicio: (teniendo en cuenta que faltan corregir los paréntesis):
(car(cadddr(cadr(cddr i)))) --> 23
(cadr(cadddr(cadr(cddr i)))) --> 1
(caddr(cadddr(cadr(cddr i)))) --> 50
Edwin Saez
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
Estimado @brehayan
Todavia habia un paréntesis que faltaba, lo agregue al final para definir la lista, pero no se si es ahí exactamente donde va.
Aqui tienes una forma de hacerlo. Aunque talvez se pueda optimizar algo mas...Pero lo hice algo rápido.
Para usar esta forma de obtener los elementos de una lista, debe de partir del principio:
1. (car lst); primer elemento de una lista
2. (cdr lst); obtiene una sublista descartando el primer elemento de la lista
3.(car(cdr lst)); obtiene el segundo elemento de la lista
4.(cadr(cdr lst)); Obtiene el tercer elemento de la lista
5.(car(cdr (cdr (cdr i))));Obtiene el cuarto elemento de la lista=(9 6 7 (23 1 50)34 66)
Y continuar repitiendo el mismo principio para obtener los elementos de las sublistas interiores.
(setq i '(5 4 3 (9 6 7 (23 1 50) 34 66) 8));Lista con un parentesis adicionado
(car i);Primer elemento de la lista
(cadr i);Segundo elemento de la lista
(caddr i);Tercer elemento de la lista
(cadddr(cadddr i));Cuarto elemento solicitado
(caddr(cadddr(cadddr i)));Quinto elemento solicitadoEspero haber Ayudado en algo acerca de tu consulta. Saludos.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
