Comment récuperer une information (cmd liste)

[Circus]

Bonjour,

 

Je voudrais pouvoir récupérer dans les jeux de propriété, les informations qui aparessent lorsque l'on utilise la commande "liste"

 

Par exemple pour un bloc dynamique, je voudrais savoir dans quel état de visibilité il se trouve.

 

Si on fait "liste" on obtient quelquechose du genre :

 

REFERENCE DE BLOC Calque: "0"

Espace: Espace objet

Maintien = 11d57

Nom du bloc: "aaa"

Nom anonyme: "*U6"

en point, X= 18.911 Y= 21.985 Z= 0.000

Facteur d'échelle X: 1.000

Facteur d'échelle Y: 1.000

Angle de rotation: 0.00

Facteur d'échelle Z: 1.000

UnitésIns: Mètres

Conversion d'unités: 1.000

Mettre à l'échelle uniformément: Oui

Autoriser la décomposition: Oui

Visibilité: EtatVisibilité1

 

Je souhaite donc avoir le résultat EtatVisibilité1 dans mon jeux de propriété, ce qui me permettra de faire ma nomenclature.

 

Merci d'avance.

[Maximilien]

ne partie de la solution se trouve ici

[Circus]

Merci bien, j'ai regardé mais j'ai pas pigé...enfin j'ai aucune notion la dedans.

[(gile)]

Salut,

 

Comme je ne comprends pas bien ce que tu veux faire exactement, je te fais une première proposition en LISP pour récupérer les propriétés d'un bloc dynamique et leurs valeurs, les afficher dans la fenêtre de texte et, eventuellement, de les enregistrer dans un fichier Excel.

 

(defun c:prop-bloc-dyn (/ bloc descr)
 (if
   (and
     (setq bloc (car (entsel "\nSélectionnez un bloc dynamique: ")))
     (setq bloc (vlax-ename->vla-object bloc))
     (= (vla-get-ObjectName bloc) "AcDbBlockReference")
     (= (vla-get-IsDynamicBlock bloc) :vlax-true)
   )
    (progn
      (setq descr (strcat "Bloc\t" (vla-get-EffectiveName bloc) "\n"))
      (foreach	prop (vlax-invoke bloc 'getDynamicBlockProperties)
 (setq
   descr (strcat descr
		 (vla-get-PropertyName prop)
		 "\t"
		 (vl-princ-to-string (vlax-get prop 'Value))
		 "\n"
	 )
 )
      )
      (textscr)
      (princ descr)
      (initget "Oui Non")
      (if (= (getkword
	"\nEnregistrer dans un fichier ? [Oui/Non] : "
      )
      "Oui"
   )
 (progn
   (setq
     file
      (open
	(getfiled "Créez ou sélectionnez un fichier" "" "xls" 33)
	"a"
      )
   )
   (princ descr file)
   (close file)
 )
      )
      (graphscr)
    )
 )
 (princ)
) 

[Circus]

Bonjour,

 

En faite moi je voudrais exploiter directement le résultat dans les jeux de propriété.

 

Exemple concret, j'ai ma nomenclature objet sur autocad, ca me liste tout ce qu'il y a sur mon plan. J'ai des objets qui en seront différent en fonction de la visibilité. Les interrupteurs std ou étanches, pareil pour les PC et les éclairages. Tout comme pour les convecteurs, une visibilité par puissance. D'un coté j'optimise mes plans et de l'autre j'ai une nomenclature cohérente.

 

C'est pour ca que je voudrais faire aparaitre l'état de visibilité dans les jeux de propriété.

 

D'ailleur ce n'est pas la seul chose que je voudrais extraire comme info que l'on obtient avec la commande liste.

Le sens d'ouverture d'une porte s'obtient par déduction dans les infos donné par la cmd liste , le Drapeaux d'ancrage.

 

Enfin j'utilise beaucoup d'étiquette dynamique donc les jeux de propriétés, c'est pour ca que exporter vers excel c'est pas ca. Mais merci Gile , je note ton code, car exporter vers excel j'en aurai besoin un jour ou l'autre.

[Circus]

J'ai testé, bon travail, l'info est bien récupéré. Reste à voir comment faire pareil dans les jeux de propriété.

un truc genre :

 

A = DynamicBlockProperties

If A = "Sens 1" Then

RESULT = "Std"

Else

RESULT = "Etanche"

End If

 

Avec un truc plus élaboré bien sur pour l'ensemble de mes objets

 

En tout cas, quand je vois des trucs pareils ca donne fortement envis de s'investir dans la programmation, j'ai malheureusement pas le temps, entre Autodesk Architectural Desktop, Inventor et quand j'ai le temps Viz...la programmation ce sera pour plus tard.

 

Si quelqu'un pouvait arriver a faire un nomenclature détaillé, il pourrait ce faire un minimum de revenu, car je pense que ca interesserai pas mal de monde ! Surtout quand on vois que sur Autodesk Architectural Desktop on ne peux toujours pas obtenir simplement un metrage linéaire de mur en fonction du style...