Remplir un tableau.dcl avec les attributs d\'un bloc

[Arcasdk]

Bonjour à tous,

 

Alors là j'annonce du lourd.... (Et je compte bien y arriver au bout) Seulement voilà sans vous je ne vais pas aller bien loin!!:P

 

• J'aimerai mettre le même cartouche dans tous les plans d'un dossier.

• Les cartouches qui sont déjà dans les plans ne sont pas les mêmes, mais certain attribut le sont.

 

Le but de la macro est de remplir un tableau.dcl (dans des edit_box) avec tous les tagstrings ou les (cdr (assoc 2(entget entité))) d'un bloc.

 

Et le problème est là. C'est que j'arrive à tous relever (les tagstring et les textstring) mais comme c'est une boucle qui le fait, je ne sais pas si il existe un moyen d'enregister chaques données dans une variable bien précise ou une variable que je saurai retrouver..

 

      (while (setq ent (entnext ent))
(if (eq (cdr (assoc 0 (entget ent))) "ATTRIB")
  (setq	str (strcat
	      str
	      "\n"
	      (cdr (assoc 2 (entget ent)))
	      " ->\t"
	      (cdr (assoc 1 (entget ent)))
	      (setq [surligneur]x[/surligneur] (getstring "\nSelectionner la variable"))
	    )
  )
)
     )
     (alert str)

 

Est il possible de mettre a chaque fois une variable différente à la place de x

 

Dans ce cas il me sera possible d'écrire le titre du cartouche dans l'edit_box qui porte le nom titre....

 

Quand ces blocs ont été créé les attributs n'ont pas été saisie dans le même ordre. Donc je ne peut garantir que quand j'aurai la liste des attributs, ce soit "titre" en premier ou "numéro"....

 

Voila voila....Je pense avoir été clair...Mais n'hésitez pas à m'embêter..

[Patrick_35]

Salut

 

Tu peux remplacer tes cartouches différents par un seul avec Rbloc

Et pour des valeurs d'attributs identiques selon le tagstring, avec MAT

 

Les Lisps sont sur cette page

 

@+

 

[(gile)]

Salut,

 

Est il possible de mettre a chaque fois une variable différente à la place de x

 

On peut faire une incrémentation avec les noms de variables :

 

;; initialisation de l'incrément
(setq n 0)

;; à mettre dans la boucle
(set (read (strcat "var" (itoa (setq n (1+ n)))))
    (getstring "\nSelectionner la variable: ")
) 

[Arcasdk]

Ah parfait Gile l'incrémentation. C'est ce qu'il me fallait. Je vais essayer avec ça.

 

Merci Patrick, je connaissais Rbloc, j'irai certainement piocher deux trois choses.

 

Je continue....