prolifération des listes d'échelles

[philsogood]

hello

je ne sais pas pourqui mais sur certains ficheirs (que je n('ai aps créé à la base) j'ai une multiplication des échellles)

sur un ficheir j'ai purger 92000 échelles!! je ne sais même aps comment ces échelles se créent (à la main il m'aurait fallu des heures pour le faire)

avez-vous une technique pour purger des échelles sur des dossiers complets? en le faisant fichier apr fichier j'utilise JAV

@+

Phil

[philsogood]

ou alors (ce qui peut également être utile) comment connaitre le nombre d'échelles par ficheir en sélectionnant un dossier (comme ça on peut purger les échelles que sur les dessins le nécessitant)

@+

Phil

[Big666]

bonjour

radical purge, tu coche que échelle et ça supprime toutes les échelle inutile .

[bonuscad]

Bonjour,

 

J'utilise un petit lisp qui se charge de tout (il est exécuter automatiquement; pour ma part j'utilise un MNL ou il y a l'instruction suivante:)

Mise à jour du mois de Juin 2022

PROCÉDURE A NE PAS EMPLOYER SI VOUS AVEZ DÉJÀ UTILISÉ L'ANNOTATIF DANS VOS DESSIN (risque d'erreur de demande ADS erronée sur vos objets déjà annotés: même si les échelles redéfinies sont identiques)

(if s::startup
(setq s::startup (append s::startup '((echel_perso))))
(defun-q s::startup () (echel_perso))
)

 

 

Il y a d'autre façon de faire..., mais dans ce cas je ne me préoccupe de rien; les échelles existantes sont purgées et le miennes sont introduites à la place.

 

(defun echel_perso ( / )
 (lst-ech
   (list
     (list "1:1" 1 1)
     (list "     10 ème" 100 1)
     (list "     20 ème" 100 2)
     (list "     25 ème" 100 2.5)
     (list "     50 ème" 100 5)
     (list "    100 ème" 10 1)
     (list "    200 ème" 10 2)
     (list "    250 ème" 100 25)
     (list "    500 ème" 10 5)
     (list "  1 000 ème" 1 1)
     (list "  2 000 ème" 1 2)
     (list "  2 500 ème" 10 25)
     (list "  5 000 ème" 1 5)
     (list " 10 000 ème" 1 10)
     (list " 20 000 ème" 1 20)
     (list " 25 000 ème" 1 25)
     (list " 50 000 ème" 1 50)
     (list "100 000 ème" 1 100)
     (list "200 000 ème" 1 200)
     (list "250 000 ème" 1 250)
     (list "500 000 ème" 1 500)
   )
 )
 (princ)
)

; routine modif liste echelle
(defun lst-ech (lst / i x n dict ent1)
 (vl-load-com)
 (while (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST"))
   (progn
     (vla-delete (vlax-ename->vla-object (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")))))
   )
 )
 (setq
   i 1
   x (strcat "Z" (rtos i))
 )
 (repeat (length lst)
   (setq
     n (nth (1- i) lst)
     dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")))
   )
   (setq ent1
     (entmakex
       (list
         '(0 . "SCALE")
         '(100 . "AcDbScale")
         '(70 . 0)
         (cons 300 (car n))
         (cons 140 (cadr n))
         (cons 141 (caddr n))
         '(290 . 0)
       )
     )
   )
   (dictadd dict x ent1)
   (setq
     i (1+ i)
     x (strcat "Z" (rtos i))
   )
 )
)

 

 

Bien sur tu peux personnaliser ta liste comme tu l'entends (au début- du code)

Modifié le 24 juin 2022 par bonuscad
Risque de message d'erreur et perte de l'annotivité déjà définie.

[Olivier Eckmann]

Bonjour,

 

outil Autodesk pour purger les échelles d'annotation

 

http://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/scale-list-cleanup-utility-for-autocad-2015.html

 

Olivier

[philsogood]

merci pour vos outils...

j'ai un problème concernant ces listes, elles se créent totues seules

j'efface 23000 lsites, jenregistre ferme, réouvre le même ficheir il y en a à nouveau 18000

pas gagné cette histoire!!

Phil

[Olivier Eckmann]

Bonjour,

 

si tu as des Xref, elles reviennent effectivement toutes seules, il faut nettoyer toutes tes XREF d'abord, puis ton DWG ensuite.

 

Olivier

[rebcao]

Bonjour,

 

Tu ajoutes une Icône avec une MACRO très simple pour nettoyer TOUTES LES ECHELLES inutiles (= "Purge échelles") .

 

^c^c_-scalelistedit;_D;*;_E;

A faire dans toutes les XREFS... tu peux automatiser ça sur tes X fichiers en utilisant le SUPER AUTO SCRIPT d'Eric !

 

Christian

[philsogood]

pouah!!

ben du coup j'ai pris un bout du code de schtroumpf bricoleur, l'ai collé dans mon lisp ou j'ai mes "alias" (petites focntions que j'utilise très souvent et qui s'ouvre sur chaque dessin) et j'ai ouvert tous les fichiers d'un coup...

autant dire que j'ai le temps d'aller manger avant que AutoCAD n'ait fini le nettoyage sur tous ces fichiers!!!

mais je ne comrpends toujours aps comment ces échelles font pour se multiplier comme ça!!

Phil

[philsogood]

ce maudit autoscript depuis le temps va falloir que je me penche dessus

Phil

[Eric]

ce maudit autoscript

 

Eh lui, comment qui cause

 

je ne comrpends toujours aps comment ces échelles font pour se multiplier comme ça!!

La version 2008 avait un bug qui causait celà.

Le SP1 corrige ce problème.