AUTOCAD LT 2010 problème lenteur fichier cadastre

[Tometdo]

Qui pourrait m'aider???

J'ai crée un fichier qui fait références à 20 fichiers de planches cadastrales en .dwg pour les assembler (environ 150 Ko chacun). Je crée des présentations des différents postes d'éclairage.

C'est d'une lenteur terrible pour passer de l'objet à une présentation , d'une présentation à une autre, bref, régénération escargot!

J'ai bien essayé les commandes : purge, scaledit, rien n'y fait

Je pense qu'il doit exister un truc pour nettoyer ou assembler la multitude de polylignes et autres traits, qui ferait que mon fichier serait exploitable.

Merci d'avance pour vos réponses, j'en ai une 15aine à faire sur le même modèle (au secours!!!) :casstet:

 

[Edité le 22/7/2009 par Tometdo]

[vincentp010]

Salut,

 

Pour moi aussi les fichiers cadastres sont d'une lenteur.

Le problème viens du fait que le style de texte STANDARD qui est utilisée fais référence à la police Times new roman, et cette police est lourde à régénérer.

Résultat; il suffit juste de changer la police du style STANDARD pour être tranquille :)

[Tometdo]

Merci, je vais de suite essayer!!!!

[Tometdo]

[surligneur]UN TRES GRAND MERCI !!!!!! [/surligneur]

;) C'est trop chouette , le temps que je vais gagner!!!

 

[vincentp010]

Content d'avoir pu t'aider.

Perso j'utilise toujours un lisp avant de me servir des fichiers cadastres

 
(defun c:cadastre ()
  (setvar "cmdecho" 0)
  (command "annuler" "m")

; change la police du style STANDARD
  (command "-style" "STANDARD" "swissl.ttf" "0" "1.0001" "0" "N" "N")

  (command "-calque" "ch" "0" "co" "7" "*" "")
  (command "zoom" "et")

; hachure les batiments
  (command "-calque" "ch" "3BATIDUR" "")
  (setq pl1 (ssget "x" (list (cons 8 "3BATIDUR"))))
  (if (/= pl1 nil) (progn
     (setq nb (sslength pl1))
     (setq nb1 0)
     (while (< nb1 nb)
        (setq ent (ssname pl1 nb1))
        (command "hachures" "ansi31" "1" "50" ent "")
        (setq nb1 (+ nb1 1))
        (setq aff (strcat (rtos nb1 5 0) "/" (rtos nb 5 0)))
        (grtext -2 aff)
     )
     )
  )

; hachure les zones d'eau
  (command "-calque" "ch" "3EAU" "")
  (setq pl1 (ssget "x" (list (cons 8 "3EAU"))))
  (if (/= pl1 nil) (progn
     (setq nb (sslength pl1))
     (setq nb1 0)
     (while (< nb1 nb)
        (setq ent (ssname pl1 nb1))
        (command "-hachures" "p" "s" "t" "a" "s" ent "" "")
        (command "changer" "d" "" "p" "co" "4" "")
        (setq nb1 (+ nb1 1))
        (setq aff (strcat (rtos nb1 5 0) "/" (rtos nb 5 0)))
        (grtext -2 aff)
     )
     )
  )

; change les types de ligne
  (command "-calque" "ch" "0" "")
  (command "-calque" "tl" "hidden" "3fiscline" "")
  (command "-calque" "tl" "cache" "1subdfisc" "")
  (command "-calque" "tl" "lieudit" "1lieudit" "")
  (command "-calque" "tl" "section" "1section" "")

; change les epaisseurs de lignes
  (setq pl (ssget "x" (list (cons 8 "3sncf"))))
  (if (/= pl nil) (command "pedit" "m" "" pl "la" "0.5" ""))
  
  (setq pl (ssget "x" (list (cons 8 "1lieudit"))))
  (if (/= pl nil) (command "pedit" "m" "" pl "la" "0.25" ""))
  
  (setq pl (ssget "x" (list (cons 8 "1section"))))
  (if (/= pl nil) (command "pedit" "m" "" pl "la" "1" ""))
  
;effaces des calques
  (setq pl (ssget "x" (list (cons 8 "1zoncomm"))))
  (if (/= pl nil) (command "effacer" pl ""))

  (setq pl (ssget "x" (list (cons 8 "1subdsect"))))
  (if (/= pl nil) (command "effacer" pl ""))

  (command "-purger" "to" "*" "n")
  (command "-purger" "to" "*" "n")
  (command "-purger" "to" "*" "n")
  (command "-purger" "to" "*" "n")
  (command "-purger" "to" "*" "n")

  (command "zoom" "et")
  (command "redess")
  
)

 

Si tu veux t'en servir, à toi de l'adapter à tes besoins.

[Tometdo]

Ce serait avec plaisir, mon seul problème, c'est que je ne sais pas encore me servir des lisp.

Ca commence à m'intéresser sérieusement, mais je ne sais pas comment mettre ce langage en pratique.

J'ai découvert Autocad il y a un an, et je l'apprend sur le tas, faisant également du secrétariat là ou je travaille.

 

Y a t'il un site donnant quelques notions? ou inscrire ce code?

Ce doit être un vrai bonheur de lancer toutes ces commandes en une!

Si tu as encore un peu de temps à me consacrer pour me donner l'astuce, je prends!

Merci

A plus

[rebcao]

Bonjour,

 

HEU ! si j'ai bien lu le sujet : AutoCAD LT 2010 ... :casstet:

 

Dans ce cas, on oublie le LISP ! :(

 

Mais il reste, les SCRIPTS, les MACROS et les MACROS DIESEL

 

Il est vrai aussi que l'utilisation de TEXTES MULTILIGNEs provoque un ralentissement très important

 

Christian

[vincentp010]

Ah oui j'avais pas fais gaffe au LT.

Je vais me pencher sur l'histoire des scripts que je n'ai jamais essayé.

[rebcao]

Re,

 

Voici un sujet qui reprend les conseils pour nettoyer les dessins...

 

Très facile à intégrer dans un SCRIPT et à appliquer sur plusieurs dessins avec SuperAutoScript d'Eric...

 

Rajouter à ça :

 

Suppression des liens MORTS pour les XREFS et les IMAGES

Supprimer les groupes s'ils sont trop nombreux

LAYERFITERALERT à 1 pour supprimer les groupes de calques trop nombreux

 

 

Christian

 

 

 

[Edité le 24/7/2009 par rebcao]