Enregistrement des DWG....Tramber On as besoin de toi ^^

[Cortana]

Bonjour bonjour

 

Voila j'aimerai savoir si il est possible de crée un "truc" qui permeterai que l'or de l'enregistrement autocad rajoute automatiquement la date et un nom predefini expemple

 

Je boss sur Esquise.dwg et quand je l'enregistre il l'enregistre sous Esquise [surligneur] -24-01-Paul[/surligneur].dwg et que la parti surligner c autocad qui le met automatiquement ??????

 

 

Voila amicalament Cortana

 

[Edité le 25/1/2007 par Cortana]

[Cortana]

J'ai trouver se maccro qui permet de sauvegarder mais tout le temp avec le meme nom

Pas vraiment se que je recherche mais si quel qu'un sais commen faire rentrer une variable qui affiche la date je suis preneur

 

 

 ^C^C_saveas;2000;essaie.dwg;o 

[Cortana]

Toujour personne ????

Bon tant pis j'attenderai <acronym class=dict title=

[Bred]

Salut,

dans l'aide : command "edtime" - à rajouter (en l'adaptant) à ta macro.

 

L'exemple ci‑dessous utilise la date et l'heure du tableau précédent. Notez que la virgule doit être entre guillemets car elle est lue comme délimiteur de sujet

 

$(edtime, $(getvar,date),DDD"," DD MON YYYY ‑ H:MMam/pm)

Cette expression renvoie le résultat suivant :

 

Sam, 5 Sep 1998 - 4:53am

[Cortana]

Je suis peu etre bete mais je ne compren pas commen tu te sert de

$(edtime, $(getvar,date),DDD"," DD MON YYYY ‑ H:MMam/pm) 

Donc si tu savai pourai tu me le dire car sa fait 2 heure que je cherche et je comprend pas

[Bred]

J'avoue ne pas être un connaisseur en macro.

J'ai tenter d'insérer des valeur récupérer en lisp, mais ça ne fonctionne pas....

 ^P(vl-load-com)(setq jour(menucmd "M=$(edtime,$(getvar,DATE),DD)")mois(menucmd "M=$(edtime,$(getvar,DATE),MO)")annee(menucmd "M=$(edtime,$(getvar,DATE),YY)")NomF(vl-string-subst "" ".dwg"(vlax-get-property(vla-get-activedocument(vlax-get-acad-object))'FullName))Nomenr(strcat NomF"-"jour" "mois" "année".dwg"))(princ);_saveas;2000;!Nomenr;o

 

Si tu veux je peux par contre te le faire entièrement en lisp.....

[Bred]

Si tu veux je peux par contre te le faire entièrement en lisp.....

 

Je trouvais que c'était un bon exo alors je me le suis fait...

cela enregistre le fichier "Nom_Fichier" sous le même répertoire, mais sous la forme "Nom_Fichier - 21 01 07".

Il s'enregistrars à partir de là toutes la journée sous ce nom (en écrasant le précedent)

Le lendemain, le fichier "Nom_Fichier - 21 01 07". s'enregistrera toute la journée sous "Nom_Fichier - 22 01 07".

 

 (defun c:sauv_date ()
 (vla-saveAs
   (vla-get-ActiveDocument (vlax-get-acad-object))
   
   (strcat
     (vl-string-subst "" ".dwg"
(vl-string-subst ""
  (strcat " - " (menucmd "M=$(edtime,$(getvar,date),D MO YY)"))
  (vlax-get-property(vla-get-activedocument
		      (vlax-get-acad-object))'FullName)
  )
)
     " - " (menucmd "M=$(edtime,$(getvar,date),D MO YY)")".dwg")
   )
 )

[Cortana]

Dsl de pas comprendre mais je vien tout juste de commencer avec les macro autocad 5 ans que je me sert d'autocad et c la premiere fois que j'essaye sa car mare de renomé tout les jour ^^

Voila voila donc explique moi commen faire et que faire et je ferai

Si tu veux je peux par contre te le faire entièrement en lisp.....

Euh.... si tu pouvai m'espliquer se qu'ai le lisp sa m'aiderai <acronym class=dict title=

[Bred]

Le lisp est un language de programmation.

Pour charger un lisp, tu as une explication ici !

[Cortana]

voila je vien d'aller voir le lien que tu ma indiquer dedan tu dit

Puis tu vas dans Autocad, tu va dans Outils / Charger une Application

Je l'ai pas moi sa dans outils :(

je tourne sur LT2002fra donc si tu sais commen ouvrire cette comande autrement ...

[Bred]

Ouaaaaaaaaaah!!!! mea culpa : en lt, tu ne peux pas utiliser (normalement) des lisps !!!!....

Donc je suis désolé.

Pour ce qui est du Scrip, si tu as de la chance que Tramber passe par là, tu auras ta réponse !!!...

[Cortana]

bon esperon kil passe sinon en diesel c pas possible ????

[Bred]

(essaye de répondre en évitant le language sms... beaucoup de personne dans ce forum (dont moi) se refuse de répondre à des messages de ce genre, même si les tiens sont presque normaux...)

 

bon esperon kil passe sinon en diesel c pas possible ????

Cela doit être possible, mais je n'ai pas assez de connaissance pour ça.

[Cortana]

Désolé pour le langage SMS une abitude que j'ai pris foutu MSN <acronym class=dict title=

 

Je sais se que je vai faire je vai changer le tritre du topic^^

 

[Edité le 25/1/2007 par Cortana]

[Tramber]

Je sais pas pourquoi j'apparais là, mais bon. En fait, je ne suis pas un pro du DIESEL.

 

Même si je connais des astuces pour la date et le nom du dessinateur sur LT, je ne trouve pas de moyen de faire sans lisp pour le nom du fichier à enregistrer.

 

Je ne sais pas quoi proposer. Sinon un script pour renommer mais en passant par Excel, là c'est déjà plus facile. Je n'aurai le temps que ce soir ou ce WE, si ca t'interessait.

[Bred]

Je sais pas pourquoi j'apparais là

... c'est ma faute : je pensais que tu maîtrisais les macro boutons comme un dieu.... ;)

Pour ce qui est du Scrip, si tu as de la chance que Tramber passe par là, tu auras ta réponse !!!...

Désolé de t'avoir cité si tu en es incapable !!! :P

[bonuscad]

En DIESEL voici un bouton que tu pourrais faire:

 

^C^C_FILEDIA;0;_.SAVEAS;2000;$M=$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),4))-$(edtime,$(getvar,DATE),DD"-"MO)-$(getvar,LOGINNAME).dwg;FILEDIA;1;^Z

 

Inconvénient, si tu l'utilises plusieurs fois, il va cumuler la date et le LoginName (le nom de l'utilisateur de la machine), ou alors il faut sophistiquer le code, mais en diesel cela devient complexe...

[Cortana]

Ba moi j'ai ecouter Bred donc j'ai mis un apel desepere et oui Tramber c une fonction que j'ai vraiment vraiment besoin mais le Probleme de mon Autocad c le LT devant le 2002 ^^

 

Donc bon et j'ai pas trop les moyen en se moment de racheter une autre version

 

Si on ne peu pas le faire en Script ou en Diesel ne vous archaner pas comme des fou a essayer je continurai tout les soir a verifier tout les fichier de mes employer et rajouter leur nom et la date car yen a souvent 60% de mes desinateur qui oublie de le faire eux meme et j'ai beau crier rien ni fait la j'arrive a un point on j'en ai mare

[Tramber]

... c'est ma faute : je pensais que tu maîtrisais les macro boutons comme un dieu.... ;)

 

Oui, de même que les scripts, mais pas le DIESEL. Pourtant c'est pas compliqué, mais je n'ai jamais eu 5 minutes pour l'apprendre.

[bonuscad]

Je pense que le problème de cumulation, pourrait être résolu en diesel par le un test de la variable SAVENAME.

 

Mais si la solution ne t'interresse pas (pas réponse à mon post), je ne vais pas chercher. :casstet:

[Cortana]

Ah si si la solution m'interesse je l'ai meme essayer sa fonctionne mais me l'enregistre dans C:/Programmefile/Autocad/...

 

Mais il fau que j'essaye avec SAVENAME je ferai sa apres ma poz de midi car la j'ai super fain ^^

[Cortana]

Bon avec savename sa fonctionne pas j'ai trouver la solution mais sa crée plien de fichier dans C:/programfile/autocad...

[Cortana]

Finalement le macro par en live il me met sa maintenan

 

Commande: _FILEDIA
Commande: _FILEDIA
Entrez une nouvelle valeur pour FILEDIA <1>: 0
Commande: _.SAVEAS
Format de fichier courant: Dessin AutoCAD LT 2000
Entrez le format de fichier [R13(LT95)/R14(LT98/LT97)/2000/DXF/Gabarit] <2000>: 
2000
Enregistrer le dessin sous Fra\concour-26-01--26-01-.dwg>: concour-26-01--26-01-
Commande: . SAUVENOM
Format de fichier courant: Dessin AutoCAD LT 2000
Entrez le format de fichier [R13(LT95)/R14(LT98/LT97)/2000/DXF/Gabarit] <2000>: 
dwg
Choix de l'option incorrect.
Format de fichier courant: Dessin AutoCAD LT 2000
Entrez le format de fichier [R13(LT95)/R14(LT98/LT97)/2000/DXF/Gabarit] <2000>: 

 

 

Donc j'ai l'impresion que sa foire Bocoup <acronym class=dict title=

 

Bon c pas grave je mis pencherai se week end mais il me faudra de l'aide donc je flooderai un peu ce post <acronym class=dict title= :)

 

[Edité le 26/1/2007 par Cortana]

[bonuscad]

Pas facile le diesel hein, il faut dire que c'est pas très souple,

 

Bon pour éviter que la date et le login se cumule, il vaut mieux mettre ceci dans un bouton:

 

Tout d'une traite sans retour chariot, ou d'espaces (alors attention lors du copier-coller depuis le forum)

 

^C^C_FILEDIA;0;_.SAVEAS;2000;$M=$(if,$(eq,$(getvar,SAVENAME),),$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),4))-$(edtime,$(getvar,DATE),DD"-"MO)-$(getvar,LOGINNAME).dwg);FILEDIA;1;^Z

 

Dommage, mais je ne peux faire mieux avec le IF (la seconde expression du if ne peut être qu'une commande et non une expression diesel, car celle ci n'est pas évalué) :(

Limité le diesel ! :mad:

 

NB: J'oubliais, tu peux concatener la variable "DWGPREFIX" pour avoir le nom du dossier du dessin, voir (strcat ) dans l'aide diesel.

 

[Edité le 26/1/2007 par bonuscad]

[Cortana]

Salut Salut

Voila je vien de tester ta macro (je sais il est 00h30 <acronym class=dict title=)

et dans l'idée c'est pas mal et je t'en remerci le probleme est que j'enregistre par exemple le DWG lapin (lapin.dwg) sur le bureau une premiere fois avec les comandes "normal" ba quand je clique sur la maccro il enregistre dans "C:\Program Files\AutoCAD LT 2002 Fra" et non plus sur le bureau et maintenan quand j'enregistre plusieur fois il ajoute derier exemple le fichier lapin.dwg devien "lapin-28-01-jérémy.dwg" et apres plusieur clique sur le maccro sa devien "lapin-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy-28-01-jérémy.dwg"

 

Enfin voila quoi la maccro fonction presque mise a par c'est deux ou trois petit probleme

 

 

Encore merci a vous de m'aider mais je pense que cette macro peu servir a plien de gens

 

 

PS: ne t'embete pas a metre la comande $(getvar,LOGINNAME) je meterai manuellement le nom de mes employer car j'ai remarquer que leur poste s'apellai tous administrateur <acronym class=dict title=[Edité le 27/1/2007 par Cortana]

 

[Edité le 29/1/2007 par Cortana]