Commande par esportare en DXF

[Hockrim]

Bonjour à tous. J'aurais besoin de précisions : J'ai créé 2 boutons contenant 2 macros distinctes pour exporter un fichier dwg dans la version dxf 2004.
le premier bouton contient cette macro:
^^cattdia;0;attreq;1;qsave;_dxfout;v;2004;(alert "exporter avec succès);et appuyez sur la première fois ou s'il n'y a pas de fichier dxf avec le même nom que le dwg.


le second bouton contient la macro:
■^cattdia;0;attreq;1;-qsave;_dxfout;;si;v;2004;(alert "exporter avec succès);et appuyez lorsque le fichier dxf existe avec le même nom que le dwg.

Pouvez-vous faire une commande lisp exécutant dxfout dans dxf 2004 et vérifier si le fichier dxf dans le même dossier que le dwg et s'il existe automatiquement l'écrase alors qu'il n'y a pas de création ?
ou si vous le pouvez, y a-t-il une possibilité d'unifier la commande en un seul bouton, afin d'empêcher l'utilisateur de ne pas appuyer sur le bouton et par conséquent la macro ne fonctionne pas correctement ?

Je vous remercie.

 

[GP.]

dans la deuxième ligne de code saisissez un nom de chemin valide pour votre pc.
si à la demande du nom de la presse dxf envoyer confirmer ce que le programme propose.

(défend c:dxf)
(chemin setq "d:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
(setq nomedis (getstring t (strcat "\nnome del file <" (vl-filename-base (getvar 'dwgname))) ">: ") ) ) )
(si (égal nomedis ") (setq nomedis (vl-filename-base (getvar 'dwgname))))
(si (fichier)
(commander "_saveas" "dxf" "v" "2004" "" (route strcat nomides) "_y")
(commande "_saveas" "dxf" "v" "2004"" (nom de la route strcat)
)
(principal)
)

 

[Hockrim]

Merci beaucoup. J'ai essayé, ça marche, mais j'aurais besoin de la même chose avec la commande dxfout et pas de saveas car avec cette dernière ferme le dwg et ouvre le dxf, tandis que j'ai besoin que le dwg reste ouvert.

 

[GP.]

toujours écraser, clairement si le dxf n'est pas ouvert.

(défend c:dxf)
(commande "dxfout" (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname))) "_v" "2004")
)

 

[Hockrim]

Merci beaucoup, juste ce dont j'avais besoin, ça marche bien.