Filtar textos

Hola que tal nesecito su ayuda porfavor, tengo el siguiente lisp que me permite filtrar textos por ejemplo si tengo los siguientes textos H: 1.20m yo solamente lo abrevio en el lisp y lo pongo de la siguiente forma H: * y así sucesivamente pero ahora da la casualidad que quiero filtrar el siguiente texto Ø15 y no se como lo puedo filtrar.

[code](defun c:MECANICO ( )
(setq sspases (ssget "_X" (list (cons 0 "TEXT,MTEXT") (cons 1 "H: *,SUBE *,SUBEN *,DUCTO *,TERRAJEADO *,VIENE *,TUBERIA,LLEGA,RR *,DIF *,RE *,*X*,LLEGA *,EXTRACCION *,RS *,BAJA *,* S.N.P.T,DIFUSOR *,* CFM,* MBH,BAJAN *,* GPM,*
TR,*gpm*,*R.P.*,*R.E.*,*cfm,*kg"))))
(sssetfirst sspases sspases)
(princ))[/code]

Hola

Yo cuando quiero agregar el simbolo de diametro y el 5 utilizo esto...

Código:

(strcat (chr 0248)(chr 53))

si este codigo lo tecleas en la linea de comando vas a obtener el simbolo de diametro y el numero 5....

Ahora si la intencion es seleccionar algun numero que contenga el simbolo de diametro, pues entonces yo utilizo este codigo....checalo...

Código:

(sssetfirst nil (ssget "_X" '((0 . "*TEXT") (1 . "*%%C*"))))

Ahora finalmente lo acomode de la siguiente manera:

Código:

(defun c:MECANICO ( )
(setq sspases (ssget "_X" (list (cons 0 "TEXT,MTEXT")
(cons 1 "H: *,SUBE *,SUBEN *,DUCTO *,TERRAJEADO *,VIENE *,TUBERIA,LLEGA,RR *,DIF *,RE
*,*X*,LLEGA *,EXTRACCION *,RS *,BAJA *,* S.N.P.T,DIFUSOR *,* CFM,* MBH,BAJAN *,* GPM,*
TR,*gpm*,*R.P.*,*R.E.*,*cfm,*kg,"))))
(sssetfirst sspases sspases)
(princ)

(sssetfirst nil (ssget "_X" '((0 . "*TEXT") (1 . "*%%C*"))))

)

Checalo haber si te sirve

y lo comentas.

Saludos

Ahora bien, como noté que el codigo que puse no esta completo entonces aqui pongo el mismo pero con un  pequeño ajuste, haber si asi te sirve, es posible que alguien pueda dar una mejor opinion, pero yo puedo contribuir con esto.

Codigo:

Código:

(defun c:MECANICO_01 ( )



(setq sspases (ssget "_X" (list (cons 0 "TEXT,MTEXT")

(cons 1 "H: *,SUBE *,SUBEN *,DUCTO *,TERRAJEADO *,VIENE *,TUBERIA,LLEGA,RR *,DIF *,RE

*,*X*,LLEGA *,EXTRACCION *,RS *,BAJA *,* S.N.P.T,DIFUSOR *,* CFM,* MBH,BAJAN *,* GPM,*

TR,*gpm*,*R.P.*,*R.E.*,*cfm,*kg,"))))



(sssetfirst sspases sspases)

(princ)
)

(defun c:MECANICO_02 ( )
(sssetfirst nil (ssget "_X" '((0 . "*TEXT") (1 . "*%%C*"))))

(princ)
)

Por lo tanto si quieres filtrar solo los textos que tu listaste en tu lisp pues corres el comando MECANICO_01
Pero si solo quieres filtrar los textos con el simbolo de Diametro pues corres el comando MECANICO_02

Ahi nos comentas haber como te fue

Saludos

Hola "saulo2016" gracias por la ayuda fue util, solamente basto con añadir el codigo "%%C*" a mi lista.

Me queda otra duda no se si se podran filtrar el siguiente texto 11"x12" tanto el número como las pulgadas, esta leyendo un poco y no si con la función wcmatch me puede ser util, lo malo es que no se como aplicarla al lisp anterior

Ok, es que yo pense que lo quq necesitabas era filtrar lo del simbolo de Diametro intependiente de los textos....

Bueno, ahora trata de incluir

(*\")

para ver como se comporta lo del simbolo de pulgadas...

y nos cuentas como te fue



saludos

oye amigo
estoy observando que en tu listado tienes algo asi

*X*

y si en el plano tienes 11"X12"....te lo va a filtrar, pues depende de la X....
entonces dejame ver como solucionar lo de las comillas para las pulgadas...

Ya esta!!!

solo debes incluir

*\"

, sin los parentesis...y vualaaaa!!!


checalo y nos dices


saludos

saulo2016 escribió:Ya esta!!!

solo debes incluir

*\"

, sin los parentesis...y vualaaaa!!!


checalo y nos dices


saludos

Hola "saulo2016", mil gracias por la ayuda funciono perfecto..!!!