LISP pour insérer la date courante dans un attribut

[BruLemi]

Bonjour,

Est-ce que quelqu'un aurait un lisp qui pourrait écrire la date d'aujourd'hui (idéalement au format AAAA-MM-DD) en cliquant sur l'attribut de n'importe quel bloc existant?

On n'aurait qu'a taper la commande DATE par exemple, puis qu'à cliquer qu'une fois!

Merci à l'avance!

Bruno

[_gile · Accepted solution]

Salut,

J'ai appelé la commande ATTDATE parce que DATE est le nom d'une variable système qu'on peut appeler en ligne de commande.

(defun c:ATTDATE (/ ent cdate)
  (if (and
	(setq ent (car (nentsel "\nSelectionnez un attribut: ")))
	(= (cdr (assoc 0 (entget ent))) "ATTRIB")
	(setq cdate (itoa (fix (getvar 'cdate))))
      )
    (setpropertyvalue
      ent
      "TextString"
      (strcat (substr cdate 1 4) "-" (substr cdate 5 2) "-" (substr cdate 7 2))
    )
  )
  (princ)
)

[BruLemi]

DANS LE 1000!!!

MERCI GILLES!!!

[yanndellamaggiora]

BONJOUR 

ca ne marche pas pour moi 

Autocad 2025 français

je charge le lisp, appelle la commande "ATTDATE", sélectionne l'attribut et rien ne se passe ,même pas un message d'erreur

pourriez vous m'aider ?

Merci

[_Steven_]

---

@yanndellamaggiora  a écrit :

BONJOUR 

ca ne marche pas pour moi 

Autocad 2025 français

je charge le lisp, appelle la commande "ATTDATE", sélectionne l'attribut et rien ne se passe ,même pas un message d'erreur

pourriez vous m'aider ?

Merci

---

Bonjour @yanndellamaggiora,

Je viens de faire le test avec AutoCAD 2025 et le lisp fonctionne parfaitement.

Avez-vous bien copié l'ensemble du code sans oublier la dernière parenthèse ?

Il arrive, parfois, qu'on oublie la dernière parenthèse.

[rebcao]

Bonjour Bruno, @BruLemi 

On peut aussi passer par une EXPRESSION DIESEL à mettre dans la valeur de l'ATTRIBUT via INSERER UN CHAMP :

   $(edtime,$(getvar,tdupdate),YYYY/MO/DD)

Après tout dépend quelle DATE tu veux ? Ici j'utilise la VARIABLE SYSTEME  TDUPDATE  qui correspond à la DATE du dernier enregistrement du fichier.  CDATE  serait la date du jour

Christian