acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

VARIABLE SSGET - AYUDA

2 participantes

Ir abajo

VARIABLE SSGET - AYUDA Empty VARIABLE SSGET - AYUDA

Mensaje por eduardoceliz Vie Abr 22, 2016 4:07 am

hola, quisiera q me ayuden a crear lista por tipos de entidades, estoy usando el siguiente codigo para agrupar entidades de las capas que aparecen en el codigo para lo cual me genera una lista con los nombres de todas las entidades , lo q me interesa es crear una lista por tipo de entidadd: ejemplo.- lista xdatum, lista C-ROAD-SECT, lista TEXT, lista DESBROCE., lista 0
cada una con sus respectivas entidades.

(SETQ txt(SSGET (LIST(CONS 8 "XDATUM,C-ROAD-SECT-TEXT,DESBROCE,0"))))
(setq lista(vl-remove-if 'listp (mapcar 'cadr (ssnamex txt))))

eduardoceliz

Mensajes : 20
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

VARIABLE SSGET - AYUDA Empty Re: VARIABLE SSGET - AYUDA

Mensaje por nolo Vie Abr 22, 2016 2:29 pm

Pues igual con el código cero, prueba esto
Código:
(defun c:prueba( / lista_entidades tipo )
(setq lista_entidades '("LINE""ARC""CIRCLE""TEXT""etc"))
(foreach a lista_entidades
 (if (setq tipo (ssget "_x" (list (cons 0 a))))
 (print (eval(read (strcat
 "(setq lista_" a "(vl-remove-if 'listp (mapcar 'cadr (ssnamex tipo))) )"
 ))))
 (print (strcat "No hay " a))
 )
)
)

Te generará listas como estas, lista_line, lista_arc, lista_circle,lista_text etc con los nombres de las entidades de lista_entidades en todo el dibujo

Para comprobarlo puedes hacer, por ejemplo
Código:
(foreach a lista_line (redraw a 3))

Un saludo

nolo

Mensajes : 182
Fecha de inscripción : 17/03/2016

Volver arriba Ir abajo

Volver arriba

- Temas similares

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