selection lignes de repere

[pascal19]

Bonjour

 

Je sais que pour sélectionner les mtext ayant une ligne de repere je dois faire

 

(setq ss (ssget '((0 . "MTEXT") (102 . "{ACAD_REACTORS")))) 

 

mais comment faire pour ajouter à ma sélection les lignes de repere associés

 

d'avance merci

[zebulon_]

Bonjour,

 

(setq ss 
 (ssget 
   '((-4 . "        (-4 . "          (0 . "MTEXT")
         (102 . "{ACAD_REACTORS")
       (-4 . "AND>")
       (0 . "LEADER")
    (-4 . "OR>"))
 )
)

 

Sinon, il y a aussi l'utilisation des LIGNEDEREPMULT pour lesquels la flèche et le texte ne font qu'un seul objet de type MLEADER (mais ce n'est disponible qu'à partir de la version 2008)

 

Amicalement

Vincent

 

[pascal19]

merci pour ce trés bel exemple de sélection

idéal pour ceux qui veulent apprendre

 

a+

[pascal19]

Bonjour

 

Actuellement, grace à zebulon j'extrait les mtext et les lignes de repere d'une sélection d'objet divers.

 

Ce que je voudrai, c'est une routine qui, à partir d'une sélection de MTEXT, me rajoute à mon jeu de sélection les éventuelles lignes de repere associées aux MTEXT de ma sélection.

 

merci de votre aide...

[zebulon_]

Bonjour,

 

(defun addleader (ss / sst I e a ls)
 (setq sst ss)
 (setq I 0)
 (repeat (sslength ss)
   (setq e (ssname ss I))
   (setq a (entget e))
   (setq ls (cadr (member '(102 . "{ACAD_REACTORS") a)))
   (if (= (car ls) 330)
     (setq sst (ssadd (cdr ls) sst))
   )
   (setq I (+ I 1))
 )
 sst
)

(defun c:selrep (/ ss)
 (setq ss (ssget '((0 . "MTEXT") (102 . "{ACAD_REACTORS"))))
 (setq ss (addleader ss))
 (sssetfirst nil ss)
) 

 

Amicalement

Vincent

 

[pascal19]

Merci beaucoup vincent

 

Au départ j'ai cru que ça ne marchait pas car il n'affiche pas ma selection, j'ai juste un message du genre "selection set" mais je n'ai pas ma sélection avec les grip.

C'est bizard, je pensais que (sssetfirst nil ss) servait à ça...

 

En tout cas en lançant une commande aprés "selrep" j'ai bien ma sélection de mtext et de lignes de repere associées prise en compte

 

Je vais gagner un temps précieux...

 

merci encore

a+

[zebulon_]

C'est bizard, je pensais que (sssetfirst nil ss) servait à ça...

 

cela ne marche pas toujours à l'affichage (en général un regen affiche les grips, si sssetfirst ne le fait pas tout de suite). Quoi qu'il en soit, les objets sont bien sélectionnés.

 

Un bug de sssetfirst ? Il y a déjà eu des discussions concernant ce problème ici

 

Amicalement

Vincent