Autolisp AutoCAD 2013

Bonjour,
je vous expose mon "problème":

je créé des dossiers de plans sur autoCAD 2013 avec plusieurs onglets de présentation. Chaque onglet est toujours constitué de la même manière, c'est a dire un cartouche (nom du document, nom de la page, numéro page etc etc...) et la vue en question (fenêtre).

Je souhaiterai réaliser un répertoire automatique, c'est à dire que avec un lisp (si possible) ce répertoire ce mette à jour en fonction de ce qui est remplis dans mon cartouche (nom de la page ainsi que le numéro de celle ci).

Je vous remercie déjà par avance pour votre aide.

PS: je débute en autoLISP....

Salut,

Tu dois d'abord récupérer l'ensemble des blocs cartouches présent dans ton fichier:
(En supposant que le nom du bloc est "CARTOUCHE") -> (setq ss (ssget "x" '((2 . "CARTOUCHE"))))
Tu obtient un ensemble 'ss' d'entités qui correspondent à tes blocs.
Ensuite il faut pour chaque entité de l'ensemble, lire les attributs du bloc et récupérer les valeurs qui t'intéresses.
Cela donnerait un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

(setq cpteur 0) ; compteur (while (setq ent1 (ssname ss cpteur)) ; récupération de la première entité de l'ensemble (if (setq listret (lec_attrib ent1)) ; recherche les attributs de l'entité (setq lstCartouche (cons (list (nth (+ (vl-position "NUMFOL" listret) 1) listret) ; N° folio (nth (+ (vl-position "DESIGN" listret) 1) listret) ; Désignation folio ) lstCartouche)) ) (setq cpteur (1+ cpteur)) )

---

Cela donnera une liste 'lstCartouche' du type: ( ( 'N° Folio1' 'Désignation Folio1' ) ( 'N° Folio2' 'Désignation Folio2' ) ... ( 'N° FolioN' 'Désignation FolioN' ) )

Pour récupérer les attributs des blocs il faut créer la fonction 'lec_attrib' utilisée ci-dessus:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

(defun lec_attrib (ent1x / entlx attribname attribval listatt typent attexist) (setq entlx (entget ent1x) ; Récupère les valeurs de l'entité typent (cdr (assoc 0 entlx)) ; Récupère la valeur associée au code DXF 0 = type d'entitée attexist (cdr (assoc 66 entlx)) ; Récupère la valeur associée au code DXF 66 = exist attrib listatt nil ) (if (and (= typent "INSERT") (= attexist 1)) ; bloc avec attribut (progn (setq ent1x (entnext ent1x)) ; Nom de l'entitée suivante (setq entlx (entget ent1x)) ; Valeurs de l'entitée (while (= (cdr (assoc 0 entlx)) "ATTRIB") ; Récupère la valeur associée au code DXF 0 = type d'entitée (Setq attribname (cdr (assoc 2 entlx))) ; Récupère le nom de l'attribut (Setq attribval (cdr (assoc 1 entlx))) ; Récupère la valeur de l'attribut (setq listatt (cons attribname listatt)) ; Nom de l'attribut (setq listatt (cons attribval listatt)) ; valeur de l'attribut (setq listatt (cons ent1x listatt)) ; ENAME de l'attribut (setq ent1x (entnext ent1x)) ; Entité suivante (setq entlx (entget ent1x)) ; Valeurs de l'entitée ) ) ) (reverse listatt) ) ; fin defun

---

Ensuite il faudra utiliser la liste 'lstCartouche' pour afficher dans autocad ton répertoire des folios mais je ne suis pas allé plus loin pour l'instant.

Bonne chance

mattoti