grandsteak44

Merci Bonuscad Effectivement ca marche beaucoup mieux comme ca !! J'ai complete le programme pour avoir aussi le nom du fichier dans un attribut FICHIER. Ca donne ca : (defun DATEO () (menucmd "M=$(edtime,$(getvar,date),DD/MO/YY)") ) (defun c:MAJATT ( / AncVal LstEnt NomEnt) (setq NomEnt (entnext)) (while NomEnt (setq LstEnt (entget NomEnt)) (if (member '(0 . "ATTRIB") LstEnt) (cond ((member '(2 . "DATEO") LstEnt) (setq AncVal (cdr (assoc 1 LstEnt))) (setq LstEnt (subst (cons 1 (DATEO)) (cons 1 AncVal) LstEnt)) (entmod LstEnt) (entupd NomEnt) ) ((member '(2 . "NOM2") LstEnt) (setq AncVal (cdr (assoc 1 LstEnt))) (setq LstEnt (subst (cons 1 (getvar "loginname")) (cons 1 AncVal) LstEnt)) (entmod LstEnt) (entupd NomEnt) ) ((member '(2 . "FICHIER") LstEnt) (setq AncVal (cdr (assoc 1 LstEnt))) (setq LstEnt (subst (cons 1 (getvar "dwgname")) (cons 1 AncVal) LstEnt)) (entmod LstEnt) (entupd NomEnt) ) ;;Autant de condition que l'on veut ici ;; sous la forme ;; ((condition vrai) ici member ;; (subst)(entmod)(entupd) ;; ) ) ) (setq NomEnt (entnext NomEnt)) ) (princ) ) Maintenant j'aimerais avoir le chemin qui s'affiche avant le nom du fichier mais visiblement j'ai un probleme de syntaxe quand je remplace la ligne (setq LstEnt (subst (cons 1 (getvar "dwgname")) (cons 1 AncVal) LstEnt)) par (setq LstEnt (subst (cons 1 (strcat (getvar "dwgprefix") (getvar "dwgname"))) (cons 1 AncVal) LstEnt)) Cherchez l'erreur ...

Bonjour, Merci Bonuscad pour ta reponse qui correspond bien a ce que je voulais (t'avais bien compris la question). Ta modification marche bien avec la fonction MAJNOM mais par contre j'ai un probleme avec la fonction MAJATT (fusion de MAJNOM et MAJDATE) : lorsque je la lance il ne se passe rien et il n'y a pas de message d'erreur. A quoi cela peut il bien etre du ??

Après test il s'avére que l'utilisation de RIA et LATT en même temps ne fonctionne pas. (REA attend un texte et non un attribut et LATT attend un attribut et non un texte ...) Modifier le programme REA pour qu'il marche avec des attributs est au-dessus de mes capacités...(qui sont hyper limitées) mais je vais qd même me pencher sur le sujet en attendant la prochaine version de LATT. Bon WE.

Bonjour, J'ai essaye la fonction MAJATT mais cela ne semble pas marcher. J'ai pourtant cree un bloc avec les attributs DATEO et NOM2. Comment modifier le programme pour que l'attribut NOM2 corresponde au nom de l'utilisateur de l'ordinateur ? Merci d'avance

Bonjour Je te remercie Patrick pour la célérité et la pertinence de ta réponse. Le programme REA repond à ma requête.(même si ce n'est que partiellement). Je l'ai légérement adapté pour qu'il me donne un résultat en métres (alors je que dessine en centimétres) et je vais m'empresser de l'utiliser. Coté imagination c'est pas ca qui manque de mon côté (c'est plutôt niveau programmation que ça peche mais je m'y mets). En effet quand je vois la puissance des fonctions LATT et REA, je me mets a imaginer un attribut lié à une (voire plusieurs) surfaces de polyligne avec possibilité d'en ajouter et d'en retirer et qui en ferait la somme tout en conservant les formidables liaisons...Ou bien d'un attribut qui serait lié a plusieurs autres et en ferait la somme (toujours avec une liaison dynamique). Tout cela me parait sur le principe pas trop compliqué (à condition de comprendre le fonctionnement des programmes LATT et REA). Si un des cracks présents sur le forum à une idée à ce sujet je suis prenneur. Merci par avance

Bonjour J'ai testé avec beaucoup d'interet les différentes fonctions. Etant hyper débutant en programmation je dois dire que je suis très impressionné par la puissance du programme. (En fait je ne pensais pas qu'autocad était capable de faire de tels tours de passe-passe.) Etant en plein reve je me demandais s'il etait possible (de la meme maniere qu'on arrive a lier un attribut a un autre) de lier un attribut a une polyligne (plus particulieremen a sa surface) pour avoir par exemple une etiquette dont l'attribut indiquant la surface d'un local se met a jour automatiquement quand on modifie la polyligne delimitant le contour de ce local ?? Merci d'avance pour vos reponses.