selection par propriétés

[Squelet]

(Gile) nous avait concocter une routine pour selectionner des entités suivant leurs propriétés.

Avec une boite de dialogue avec des cases à cocher (couleur, calque,..)

Mais je n'arrive pas à la retrouver !!

Quelqu'un aurait souvenir de ça ?

[Squelet]

Je viens de retrouver ça :

;; Sélection par propriétés

(defun c:ssp (/ ss ent lst)
(and
(or
(and
(setq ss (cadr (ssgetfirst)))
(= 1 (sslength ss))
(setq ent (ssname ss 0))
)
(setq ent (car (entsel)))
)
(setq lst (getprops ent))
(sssetfirst nil (ssget "_X" lst))
)
(princ)
) 

avec ça

 (defun getprops (ent / lst)
(setq elst (entget ent)
dcl_id (load_dialog "Props.dcl")
)
(if (not (new_dialog "props" dcl_id))
(exit)
)
(action_tile
"accept"
"(if (= \"1\" (get_tile \"wid\"))
(if (assoc 370 elst)
(setq lst (cons (assoc 370 elst) lst))
(setq lst (cons '(370 . -1) lst))
)
)
(if (= \"1\" (get_tile \"typ\"))
(if (assoc 6 elst)
(setq lst (cons (assoc 6 elst) lst))
(setq lst (cons '(6 . \"BYLAYER\") lst))
)
)
(if (= \"1\" (get_tile \"lay\"))
(if (assoc 8 elst)
(setq lst (cons (assoc 8 elst) lst))
(setq lst (cons '(8 . \"BYLAYER\") lst))
)
)
(if (= \"1\" (get_tile \"col\"))
(if (assoc 62 elst)
(setq lst (cons (assoc 62 elst) lst))
(setq lst (cons '(62 . 256) lst))
)
)
(done_dialog)"
)
(start_dialog)
(unload_dialog dcl_id)
lst
)

 

Mais ça déclenche une erreur

[(gile)]

Salut,

 

Il te manque le code de la boite dialogue.

 

sinon, c'est sur cette page(ssmatch), et je suis en train d'en rajouter une qui permet de choisir les propriétés de plusieurs entités