selection d\'une méta-vue spécifique

[CADarome]

Bonjour à tous..

 

J'essai de trouver un moyen de sélectionner la méta-vue numéro 16

 

Ce code...fonctionne bien pour une méta-vue standards.

 (ssget "X" (list
     '(0 . "VIEWPORT")
      (cons 69 16)
   )
      )

 

Cependant, la méta-vue en question était une poliligne fermé et transformé en métavue par la suite...

 

donc,..

 (0 . "LWPOLYLINE")

 

comment selons-vous, devrais-je filter ma demande ?

ya-t-il plus simple ?

 

 

[Bred]

Salut,

à tester :

(on doit povoir faire + simple...)

(setq sel (ssget '((0 . "VIEWPORT,*POLYLINE,SPLINE,ELLIPSE,CIRCLE,REGION"))))
(repeat (setq i (sslength sel))
 (if (and (equal (cdr (assoc 0 (entget (ssname sel (setq i (1- i)))))) "VIEWPORT")
   (equal (cdr (assoc 69 (entget (ssname sel i)))) 16)) (setq Fen (ssname sel i)))
 (if (and (equal (cdr (assoc 0 (entget (setq f (cdr (assoc 330 (entget (ssname sel i)))))))) "VIEWPORT")
   (equal (cdr (assoc 69 (entget (ssname sel i)))) 16)) (setq Fen f))
 )

 

[Edité le 14/11/2007 par Bred]

[CADarome]

Merci Bred,...

 

que penses-tu de ceci ?

 

 (setq str (getstring "\nEntrez le numéro de la Métavue à rechercher: "))
(setq MVsel (ssget "_X" '((0 . "VIEWPORT"))))
(if (eq (sslength MVsel) 1)
 (alert " Aucune Métavue dans ce dessin.")
 (progn     
   (setq sscount (sslength MVsel))
   (setq val1 (- sscount 2))
   (repeat (1- sscount)
     (setq MVname (cdr (assoc 69 (entget (ssname MVsel val1)))))
     (if (eq (itoa MVname) str)
(alert (strcat "Métavue no: " (itoa MVname) " Trouvé"))
     )
     (setq val1 (1- val1))
   )
 )
)

[Bred]

Re,

désolé, je n'avais pas compris ce que tu voulais faire (je pensais que tu voulais faire une selection à l'écran et que tu avais des problèmes avec les fenêtres non rectangulaire....)

 

que penses-tu de ceci ?

regarde dans l'aide "getreal" (avec en parralelle "initget")

 

Tu devrais peut-être expliquer un peu plus ce que tu veux faire, car l'utilité de ton code m'echappe un peu et je ne voudrais pas te proposer des choses inutiles....

 

 

[CADarome]

Tu as raison..

 

Je m'excuse...je ne suis pas toujours claire....Il faut que j'apprenne à extérioriser mes pensées.

 

;-)

 

l'utilité..: Dévier certaines valeurs d'une programmation existante et Patcher le reste..

dont je n'ai pas le code.

 

Donc, aucune utilité comme tel.

 

;-)