VARIABLE SSGET - AYUDA

Ver el tema anterior Ver el tema siguiente Ir abajo

VARIABLE SSGET - AYUDA

Mensaje por eduardoceliz el 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

Ver perfil de usuario

Volver arriba Ir abajo

Re: VARIABLE SSGET - AYUDA

Mensaje por nolo el 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 : 95
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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