voir propriété objet imbriqué

[FRAXA]

Bonjour à tous,

 

Est-il possible, en utilisant la souris, de sélectionner un bloc imbriqué dans un autre afin de voir ses propriétés (surtout les attributs)?

 

Merci

[Tramber]

Très vite fait :

 

Un petit lisp à améliorer

 (defun c:vatt()
 (vl-load-com)
 (initget 2 "S")
 (setq enti(nentsel "\nSélectionnez le sous-bloc  [sortir] :"))
 (if enti
   (progn
     (while(and(/= enti "S")(not(=(length enti)4)))
       (initget 2 "S")(setq enti(nentsel "\nCet objet n'est pas un sous-bloc recommencez [sortir] :")))
     (foreach p (last enti)
       (setq str "")
       (alert(strcat
               (vla-get-name(vlax-ename->vla-object p))
               (if(=(vla-get-hasAttributes(vlax-ename->vla-object p)) :vlax-true)
                 (foreach l (vlax-safearray->list(vlax-variant-value(vla-GetAttributes(vlax-ename->vla-object p))))
                   (setq str(strcat str"\tVALEUR :"(vla-get-TagString l)" \t"(vla-get-TextString l)"\n")))"\tSANS\n"))))
     ))
 )

Autant d'alertes que de niveaux d'imbrication et la présence ou non d'attrib.

 

Attention, c'est le sous-objet que tu cliques qui sera lu comme le plus profond. Ainsi, une imbrication 4 donne 4 alertes au maximum mais 1 au minimum !

 

Chais pas si chuis clair...

 

 

[Edité le 24/3/2010 par Tramber]

[FRAXA]

Salut Tramber!

 

J'ai un message d'erreur : type d'argument incorrect: VLA-OBJECT nil.

 

Je précise que les blocs imbriqués sont des objet 3D avec certains de leurs attributs qui sont constants et invisibles.

 

 

 

[Tramber]

Corrigé !

 

J'avais laissé une crottte de nez !

 

Défaut, si tu cliques direct sur un attrib, t'as rien.

[FRAXA]

T'es un chef

 

Merci

[Tramber]

Vouais d'accord, disons que je suis un chef en fast-food !

Pour le 3 étoiles suivez mes regards (Bretagne, Bouches du Rhône,...etc).

 

Mais je rappelle que si tu cliques sur un sous-bloc d'un niveau -2, tu ne verras pas ce qu'il y a en -3 ou -4, par exemple.

 

Comme tu l'as constaté, on part du plus profond pour remonter au niveau -1.

 

C'est la dernière valeur renvoyée par NENTSEL qui est de longueur 4 quand on clique un bloc.

Il n'y a pas de filtre sur NENTSEL mais normalement y a pas besoin. Résultat, ca marche sur les X-Refs (dont tout le monde sait que c'est une sorte de bloc).

 

C'était le petit quart d'heure du professeur.