Filtre de sélection d\'objet

[fauxsuisse]

Bonjour tout le monde.

 

J'ai trouvé une fois un fichier lisp et DCL fait par gile qui permet de faire des filtre de sélection à partir d'objets sélectionnés. le lisp s'appelle ssfilter.lsp

et son contenu est le suivant :

 

;; SSFILTER (gile)
;; Créer un filtre de sélection à partir d'objets sélectionnés et de propriétés 
;; cochées dans une boite de dialogue

(defun ssfilter_box (/ dcl_id lst)
 (setq dcl_id (load_dialog "ssfilter.dcl"))
 (if (not (new_dialog "ssfilter_box" dcl_id))
   (exit)
 )
 (action_tile
   "accept"
   "(and (= \"1\" (get_tile \"wid\"))
     (setq lst (cons 370 lst))
   )
   (and	(= \"1\" (get_tile \"typ\"))
(setq lst (cons 6 lst))
   )
   (and (= \"1\" (get_tile \"col\"))
     (setq lst (cons 62 lst))
   )
   (and	(= \"1\" (get_tile \"lay\"))
     (setq lst (cons 8 lst))
   )
   (and (= \"1\" (get_tile \"ent\"))
     (setq lst (cons 0 lst))
   )
   (done_dialog)"
 )
 (action_tile "cancel" "(setq lst nil)")
 (start_dialog)
 (unload_dialog dcl_id)
 lst
)


(defun c:ssf (/ ss ent lst flst n elst)
 (and
   (or
     (setq ss (cadr (ssgetfirst)))
     (setq ss (ssget))
   )
   (repeat (setq n (sslength ss))
     (setq elst (cons (entget (ssname ss (setq n (1- n)))) elst))
   )
   (setq lst (ssfilter_box))
   (setq flst
   (append
     (cons
       '(-4 . "	       (apply 'append
	      (mapcar '(lambda (x)
			 (append (cons
				   '(-4 . "					   (mapcar '(lambda (y)
					      (cond
						((member x '(0 8 370))
						 (assoc x y)
						)
						((= 6 x)
						 (cond
						   ((assoc x y))
						   (T '(6 . "BYLAYER"))
						 )
						)
						((= 62 x)
						 (cond
						   ((assoc x y))
						   (T '(62 . 256))
						 )
						)
					      )
					    )
					   elst
				   )
				 )
				 (list '(-4 . "OR>"))
			 )
		       )
		      lst
	      )
       )
     )
     (list '(-4 . "AND>"))
   )
   )
 )
 (sssetfirst nil (ssget "_X" flst))
 (princ)
)

 

et maintenant j'aurais bien aimé avoir un choix de sélection supplémentaire qui est celui d' échelle de type de ligne, dans le fichier dcl j'ai pu rajouter celle ligne mais dans le lisp j'ai aucune idée comment faire :casstet:

 

[(gile)]

Salut

 

Le DCL modifié :

ssfilter_box:dialog{
 label="Propriétés";
 :toggle{
   label="Type d'entité";
   key="ent";
   value="0";
   fixed_width=true;
   allow_accept=true;
 }
 spacer;
 :toggle{
   label="Calque";
   key="lay";
   value="0";
   fixed_width=true;
   allow_accept=true;
 }
 spacer;
 :toggle{
   label="Couleur";
   key="col";
   value="0";
   fixed_width=true;
   allow_accept=true;
 }
 spacer;
 :toggle{
   label="Type de ligne";
   key="typ";
   value="0";
   fixed_width=true;
   allow_accept=true;
 }
 spacer;
 :toggle{
   label="Epaisseur de ligne";
   key="wid";
   value="0";
   fixed_width=true;
   allow_accept=true;
 }
 [color=red]spacer;
 :toggle{
   label="Echelle de type de ligne";
   key="sclt";
   value="0";
   fixed_width=true;
   allow_accept=true;[/color]
 }
 spacer;
 ok_cancel;
} 

 

Le LISP modifié :

;; SSFILTER (gile)
;; Créer un filtre de sélection à partir d'objets sélectionnés et de propriétés
;; cochées dans une boite de dialogue

(defun ssfilter_box (/ dcl_id lst)
 (setq dcl_id (load_dialog "ssfilter.dcl"))
 (if (not (new_dialog "ssfilter_box" dcl_id))
   (exit)
 )
 (action_tile
   "accept"
   "(and (= \"1\" (get_tile \"wid\"))
     (setq lst (cons 370 lst))
   )
   (and	(= \"1\" (get_tile \"typ\"))
(setq lst (cons 6 lst))
   )
   (and (= \"1\" (get_tile \"col\"))
     (setq lst (cons 62 lst))
   )
   (and	(= \"1\" (get_tile \"lay\"))
     (setq lst (cons 8 lst))
   )
   (and (= \"1\" (get_tile \"ent\"))
     (setq lst (cons 0 lst))
   )
   [color=red](and (= \"1\" (get_tile \"sclt\"))
     (setq lst (cons 48 lst))
   )[/color]
   (done_dialog)"
 )
 (action_tile "cancel" "(setq lst nil)")
 (start_dialog)
 (unload_dialog dcl_id)
 lst
)


(defun c:ssf (/ ss ent lst flst n elst)
 (and
   (or
     (setq ss (cadr (ssgetfirst)))
     (setq ss (ssget))
   )
   (repeat (setq n (sslength ss))
     (setq elst (cons (entget (ssname ss (setq n (1- n)))) elst))
   )
   (setq lst (ssfilter_box))
   (setq flst
   (append
     (cons
       '(-4 . "	       (apply 'append
	      (mapcar '(lambda (x)
			 (append (cons
				   '(-4 . "					   (mapcar '(lambda (y)
					      (cond
						((member x '(0 8 370))
						 (assoc x y)
						)
						((= 6 x)
						 (cond
						   ((assoc x y))
						   (T '(6 . "BYLAYER"))
						 )
						)
						((= 62 x)
						 (cond
						   ((assoc x y))
						   (T '(62 . 256))
						 )
						)
                                                      [color=red] ((= 48 x)
						 (cond
						   ((assoc x y))
						   (T '(48 . 1.0))
						 )
						)[/color]
					      )
					    )
					   elst
				   )
				 )
				 (list '(-4 . "OR>"))
			 )
		       )
		      lst
	      )
       )
     )
     (list '(-4 . "AND>"))
   )
   )
 )
 (sssetfirst nil (ssget "_X" flst))
 (princ)
)

[fauxsuisse]

Merci Gile t'es un AS

c'est Grace à des gens comme toi qu'on aime continuer

de travailler acec ces outils, merci beaucoup encore :)