Limpiar Poli
Publicado por Ousmane (6 intervenciones) el 12/08/2016 22:30:47
Ayuda!! Método eficaz para controlar, corregir errores de polígonos y polilineas.
Valora esta pregunta
0
(DEFUN c:LimpiarPoligonos()
;Pide al usuario seleccionar el objeto
setq obj (car(entsel"\nSelecciona el objeto"))
;obtener la lista de definicion DXF
lent (entget obj)
;obtener la lista de puntos del poligono
puntos (mapcar 'cdr (vl-remove-if '(lambda(A)(/= (car A) 10)) lent))
(command "clean" obj "")
(princ)
)