Repertoire automatique

[julien1982]

bonjour,

 

 

Je souhaiterai créer un lisp me permettant de faire un sommaire automatique.

 

Je m'explique:

 

Sur un plan Autocad je crée plusieurs differents onglets de présentations (CF PJ) avec sur chacune un bloc nommé "CART" qui possède plusieurs attributs (texte, num de plan, ech, ind et num de folio).

 

Sur mon onglet "répertoire" je créé un sommaire via fichier lisp (cf PJ). Une fois ce répertoire créé (la trame) je ne sais absolument pas comment faire pour venir récupérer les différentes informations de mes différents "CART" (num folio, texte, et indice) de chaque onglet pour venir les injecter dans le bloc "ligne_répertoire".

 

Merci d'avance pour votre aide.

test_sommaire.zip

[GEGEMATIC]

salut,

ci dessous tu as a peu près tout ce dont tu as besoin pour sélectionner tes cartouches

en fait, par defaut un ssget parcour tous les espaces

donc à toi d'adapter le code suivant à ton besoin.

le code n'est pas très propre car il mélange le dxf et l'active x, mais c'est pareil.

il y a des fonctions pw_ que tu pourra facilement remplacer par des fonctions natives vl-

Gérald

 

 (setq lcart  (pw_listsel (ssget "x" '((0 . "INSERT")  (67 . 1)  (2 . "cadre_a4")) )))
 
 (foreach l lcart
   (setq eg (entget l))
   ;;extrait le titre
    (setq att (vla-getattributes (pw_to_object l)))
    (setq 1er (car (vlax-safearray->list (vlax-variant-value att))))
   (setq attval (vla-get-MTextAttributeContent 1er))
   ;;ecrit le numéro
   (setq onglet (cdr (assoc 410 eg)))

[julien1982]

Salut et merci deja pour ton aide;

le soucis c'est que je debute en Lisp donc c'est du chinois pour moi ce que tu me dis (rires forts).

[julien1982]

Bonjour,

 

personne pour m'aider un peu plus?

 

a+.

[Patrick_35]

Salut

 

Regarde ce sujet

 

@+