x11start
Guest
Dans un autre forum : (merci Mhupp!)
... J'ai trouvé un lisp qui vous permet de définir à 1 la valeur ltscale de tous les fichiers contenus dans un dossier. (Je l'attache: lts.lsp)
les fichiers sont ouverts un par un, la valeur de ltscale est changée, enregistrée et fermée.
par extension je voulais essayer de faire quelque chose que je voulais faire pendant longtemps: pouvoir lancer une "purge" (élimine)
réduire tous les dwg d'un dossier avant de pouvoir l'archiver à la fin du travail.
Et voilà ce que je fais, je l'ai appelé "purgeall.lsp".
J'espère que ça vous aidera.
LTSCALE 1.0 to AllOpenedDwgs
Trying to make lisp to change LTSCALE to 1.0 to all open drawings. In other topic (defun c:S2L ( / ) (vlax-for OpenDwgs (vla-get-documents (vlax-get-acad-object)) (vla-setvariable OpenDwgs "TILEMODE" 0) );; vlax-for (princ) ) Tried to modify it but is not working. Changing (vla-setvariable OpenDw...
www.cadtutor.net
les fichiers sont ouverts un par un, la valeur de ltscale est changée, enregistrée et fermée.
par extension je voulais essayer de faire quelque chose que je voulais faire pendant longtemps: pouvoir lancer une "purge" (élimine)
réduire tous les dwg d'un dossier avant de pouvoir l'archiver à la fin du travail.
Et voilà ce que je fais, je l'ai appelé "purgeall.lsp".
J'espère que ça vous aidera.