Gel des objets à altitude 0

[Didj05]

Bonjour à toutes et tous,

Depuis Autocad/Covadis 2026 je trouve que la mise en orbite 3D de mes projets est encore plus longue qu'avant et je me posais une question. Pensez-vous qu'il soit possible de créer un LISP qui permette de sélectionner automatiquement et de geler/dégeler tous les objets 2D à altitude 0 dans une fenêtre d'écran. Je me dis que (peut être bêtement) cela pourrait améliorer le temps de regen lorsqu'on passe en 3D d'avoir beaucoup moins 2D qui n'ont aucune utilité pour travailler en 3D !

Pourquoi cette demande : en faisant quelques tests, je m'aperçois que dans une fenêtre 3D dès que l'on gèle les objets 2D (dessin, profils en long et en travers), la rotation, affichage des textures,... est quasi instantanée.

Merci - bye

[didier]

Bonjour @Didj05

Il y a des choses simples à faire avant de penser à geler la 2D.

Est-il possible d'avoir un dessin exemple ? pour vérifier le temps gagné avec les améliorations.

Amicalement

[Didj05]

Les choses simples ont me semble-t-il été faites ! Mon fichier est bien trop gros pour le joindre dans le post !

[Jérôme C]

Bonjour,

Ce qui prend le plus de temps, c'est la transformation des textes True type en textes affichables en 3d. Il faut essayer de transformer tout tes textes en polices Autocad (shx). Normalement, après ton orbite va grandement s’accélérer.

Je pense avoir déjà vu passer une routine permettant. 

Voir 

et

Bonne journée

[lecrabe]

Hello @Didj05

Mais tu le transferes par  https://www.grosfichiers.com/fr/  (C Gratuit jusqu a 10 Go)

ET tu nous donnes le lien de DWLD ...

Bye, lecrabe

 

[Steven]

Bonjour @Didj05,

Si ton fichier est sur Onedrive ou autre Drive, tu peux créer un lien de téléchargement., sans passer par un service externe, tiers.

[Didj05]

Voilà le fichier à télécharger. Du coup j'ai bien dégradé mon MNT pour que ce soit un peu plus fluide.

https://fromsmash.com/l-.8kD-Gw2-ct

[didier]

Bonjour @Didj05

Un peu en retard, mais je réponds quand même !

La première chose qui me semble utile est de simplifier les polyligne inutilement complexes composées de dizaines de milliers de sommets.
Les courbes de niveau et les courbes de channel.

Commande CNIVSIMPLIFICATION ou menu Covadis3D->Coubres de niveau -> simplification et choisir détruire les originaux.
Le calque Courbe de niveau passe de 26513 Ko à 1158 Ko par exemple.

Ensuite, il ne faut pas toujours dessiner le MNT TN après projet, on peut le faire si on doit calculer un projet sur ce projet et dans ce cas ce que je fais est de mettre le TN de référence dans un autre fichier que je déclare dans les états de terrain.
Dans le vôtre, on a quatre MNT superposés !

Et enfin, remplacer la police ARIAL par SIMPLEX ou encore mieux du TXT, du moins pendant la période de calculs et de visualisation.
Il sera toujours possible de redéfinir ces styles au moment d'imprimer les profils si vous tenez absolument à ces polices.

Je pense que ces modifications dans le mode opératoire vont bien alléger le dessin.

Une dernière chose, pour visualiser sans utiliser la gestion graphique d'AutoCAD, favorisez le visualiseur d'Objets Covadis qui est bien plus performant et propose des options inexistantes sur AutoCAD, comme modifier le facteur d'échelle en Z pour mieux percevoir les élévations.

Amicalement

 

 

 

 

 

[Didj05]

La conversion des polices n'apporte avec le lisp pas grand chose chez moi en terme de rapidité.

Pour ce qui est de mes PF liées, calculées et représentées avec TN, c'est un peu un contrainte car tous mes sous-projets sont liés et c'est important que je suivent l'évolution des cubatures de l'un à l'autre.

J'ai également essayé plusieurs fois que créer un fichier dwg uniquement réservé à mes état de terrain et le mettre en référence externe mais je trouve que la rapidité n'est guère améliorée.

Pour le visualiseur Covadis, je trouve cet outil assez inutile car quand je me mets en 3D c'est pour travailler en 3D et pas juste pour visualiser.

Je vais essayé de simplifier mes CN quand même. Comment faites vous pour savoir ce que pèse un calque ?

Merci pour la réponse.

[didier]

Bonjour @Didj05

Je suis surpris de ce que vous écrivez au sujet des polices, c'est connu depuis la nuit des temps sur AutoCAD et c'est bien plus rapide SANS les polices TTF.
Mais admettons !

Pour connaitre le "poids" d'un calque, ouvrir un fichier vierge entièrement purgé, y coller les entités à mesurer, enregistrer et noter le poids et faire pareil une fois la simplification appliquée.

Je ne parle à aucun moment de Lisp donc je ne vois pas de quoi vous parlez. : "n'apporte avec le lisp pas grand chose"

Si vous voulez absolument garder TOUTES ces entités dans le même dessin, il ne va guère être possible de modifier votre situation.
C'est comme si vous demandiez comment changer SANS rien changer ?

Amicalement

[Didj05]

Le Lisp dont je parlais c'était pour mettre toutes les polices en SHX. Je ne dis pas que ça n'améliore rien mais ce n'est pas transcendent non plus en terme de résultat.

J'ai suivi vos conseils également en générant moins de MNT. Bien sur c'est plus rapide mais je devrais y revenir lorsque mon/mes projets seront finalisés.

Ma demande de base était de pouvoir geler (par l'intermédiaire d'un LISP) tout ce que était en altitudes zéro car là, en le faisant manuellement,t je me suis aperçu qu'il y avait un vrai gain en rapidité. Je ne fais que des projets en montagne donc je pense (mais je peux me tromper) que les calculs avec un gros delta Z n'arrangent pas les choses en terme de travail en 3D ! C'est bien le problème d'Autocad d'avoir sur une même interface le 2D et le 3D.

Merci pour vos réponses 😉

[Olivier Eckmann]

Lorsque tu parles de geler, tu penses au calque, ou bien au masquage des objets.

Si les objets 2D et 3D ne sont pas dans les mêmes calques, pourquoi ne pas passer par les états de calque.

Il suffit de faire un état TRAVAIL_2D avec les calques des objets 2D et 3D visibles et un autre état TRAVAIL_3D dans lequel tous les calques des objets 2D sont gelés.

A partir de là, il suffit de passer d'un état à l'autre selon le type de travail que l'on souhaite.

 

[didier]

Bonjour @Didj05

Je ne fais que des projets en montagne
Cela ne change rien au nombre de coordonnées à gérer, la valeur change, mais ça ne rentre pas en compte.

Geler les MNT ou les mettre dans des fichiers externes.
Geler les calques avec les profils, ça, c'est efficace.
Modifier les polices ou mettre Qtextmode à 1 aura aussi un effet sur la rapidité de chargement des données avant orbite.

Les états de calque sont une bonne piste de recherche.

Amicalement

[Olivier Eckmann]

Sinon, tu peux tenter le coup avec ce lisp. C'est une version simple qui traite les objets de base et qui nécessite que les ExpressTools soient installés

(defun C:Hide2D ( / ssEnt oEnt oEntDxf I sDxfName ss2D ss3D Z Z1 Z2 )
  (if (not (member "acetutil.arx" (arx)))
    (progn
      (alert "Le menu Express tools doit être installé!")
      (exit)
    )
  )
  (setq ssEnt (ssget "x" (list (cons 410 (getvar "CTAB")))))
  (setq I 0 ss2D (ssadd) ss3D (ssadd))
  (repeat (sslength ssEnt)
    (setq oEnt (ssname ssEnt I))
    (setq I (1+ I))
    (setq oEntDxf (entget oEnt))
    (setq sDxfName (cdr (assoc 0 oEntDxf)))
    (cond ((or (= sDxfName "POINT")
	       (= sDxfName "INSERT")
	       (= sDxfName "TEXT")
	       (= sDxfName "MTEXT")
	       (= sDxfName "CIRCLE")
	       (= sDxfName "ARC")
	   )
	   (setq Z (caddr (cdr (assoc 10 oEntDxf))))
	   (if (<= Z 0)
	     (ssadd oEnt ss2D)
	     (ssadd oEnt ss3D)
	   )
	  )
	  ((= sDxfName "LWPOLYLINE")
	   (setq Z (cdr (assoc 38 oEntDxf)))
	   (if (<= Z 0)
	     (ssadd oEnt ss2D)
	     (ssadd oEnt ss3D)
	   )
	  )
	  ((= sDxfName "LINE")
	   (setq Z1 (caddr (cdr (assoc 10 oEntDxf))))
	   (setq Z2 (caddr (cdr (assoc 11 oEntDxf))))
	   (if (and (<= Z1 0) (<= Z2 0))
	     (ssadd oEnt ss2D)
	     (ssadd oEnt ss3D)
	   )
	  )
          ((or (= sDxfName "3DFACE") (= sDxfName "3DSOLID"))
	   (ssadd oEnt ss3D)
	  )
  	  (T
	   (ssadd oEnt ss2D)
	  )
    )
  )
  (acet-ss-visible ss2D 1)
  (acet-ss-visible ss3D 0)
)

(defun C:Show2D ( / )  ;(acet-ss-visible ss flag) ; flag : 0 = visible, 1 = invisible
  (acet-ss-visible (ssget "x" (list (cons 410 (getvar "CTAB")))) 0)
)