Attribut dans cartouche

[Nikos26]

bonjour!

je souhaites faire un petit truk mais je n'y arrive pas!

Alors je m'explique, je souhaites mettre un attribut dans mon cartouche sur ma présentation qui reprendrai directement le nom de fichier dwg sans que je le rentre ultérieurement! J'aimerai bien que quelqu'un m'aide cela pourrait de facilité la vie et n'éviterai d'avoir a retaper mon nom de fichier a chaque fois!

:)

Si quelqu'un a une solution a mon problème!?!?!?!

[Goldorak]

Bonjour,

 

Une telle astuce m'aiderait également énormémement. Si quelqu'un peut nous éclairer sur ce sujet?

[Bred]

Salut,

un petit lisp :

(transformer "NOM_ETIQ" par le nom de l'etiquette correspondant à l'attribut correspondant dans le cartouche)

 

 (defun c:attnom ()

(while
 (not
   (and
     (setq ent1 (car (entsel "\n Choix de l'attribut à nommer en nom fichier :")))
     (equal (cdr (assoc 0 (entget ent1))) "INSERT")
   )
   )
 )

(while
 (not (equal (cdr (assoc 2 (entget ent1)))"  [b] NOM_ETIQ[/b]" ))
 (setq ent1 (entnext ent1))
 )

(setq Filname (vl-string-subst "" ".dwg"
	(vlax-get-property
	(vla-get-activedocument
	  (vlax-get-acad-object)) 'Name)))

(setq ent1 (entmod (subst (cons 1 Filname) (assoc 1 (entget ent1)) (entget ent1))))
 (command "regen")
 (princ)
 )

-------------------------------------------------------

Nota au maitres lisp :

je ne comprends pas, j'ai été obligé de mettre un (command "regen") à la fin....(entupd ent1) n'a pas l'air de fonctionner ....

[Invité Patrick]

bonjour!

je souhaites faire un petit truk mais je n'y arrive pas!

Alors je m'explique, je souhaites mettre un attribut dans mon cartouche sur ma présentation qui reprendrai directement le nom de fichier dwg sans que je le rentre ultérieurement! J'aimerai bien que quelqu'un m'aide cela pourrait de facilité la vie et n'éviterai d'avoir a retaper mon nom de fichier a chaque fois!

:)

Si quelqu'un a une solution a mon problème!?!?!?!

 

Insère un champ dynamique dans ton attribut.

[PHILACAD]

sous 2005 tape "champ" sur la ligne de commande dans le menu deroulant selectionne "document" et "nom de fichier" a la grosse c'est ce que tu cherche

[(gile)]

Salut Bred,

 

Nota au maitres lisp :

je ne comprends pas, j'ai été obligé de mettre un (command "regen") à la fin....(entupd ent1) n'a pas l'air de fonctionner ....

 

À la fin du LISP tu fais :

 

(setq ent1 (entmod (subst (cons 1 Filname) (assoc 1 (entget ent1)) (entget ent1))))

 

Donc ent1 n'est plus un "ENAME" mais une liste type entget.

 

Donc faire soit :

 

(setq ent1 (entmod (subst (cons 1 Filname) (assoc 1 (entget ent1)) (entget ent1))))

(entupd (cdr (assoc -1 ent1))) ; le nom d'entité

 

Soit plus simplement :

 

(entmod (subst (cons 1 Filname) (assoc 1 (entget ent1)) (entget ent1)))

(entupd ent1)

[Bred]

merci maitre ;)

c'est clair et concis...

cela ressemble trés bien à une explication qu'un formateur en lisp pourrait donner !!! :P

... ça avance l'idée de donner des cours ??? :cool: