AP3D Mettre à jour les vues et nomenclatures orthographiques

Vous avez peut-être constaté que la mise à jour des vues orthographiques ne se faisait que vue par vue au risque d’oublier de mettre à jour une vue si la mise en page en contient beaucoup.

Voici un petit programme AutoLisp qui sélectionne toutes les fenêtres de la mise en page et les met à jour en fonction de la modélisation 3D.

Si la modélisation 3D n’a pas été sauvegardée au préalable, un message apparaîtra pour vous demander de confirmer ou non la mise à jour de la fenêtre, sinon la mise à jour se fera automatiquement en n’oubliant aucune fenêtre.

Si une nomenclature existe, elle se mettra également à jour.

Voici le code du programme :

;;; Mise à jour des fenêtres de vues orthographiques
;;; Dominique VAQUAND 04.07.2020
;;; www.dominique-vaquand.com

(defun c:AP3D_MajVueOrtho (/ i ii Select_Fenetres Select_Nomenclatures Ent_F Ent_N)

(if (setq i -1 Select_Fenetres (ssget « _X » ‘((0 . « VIEWPORT »))))
(while (setq Ent_F (ssname Select_Fenetres (setq i (1+ i))))
(command « _PLANTORTHOUPDATE » Ent_F)
)
)
;; Normalement la nomenclature est mise à jour dès que la fenêtre l’a été.
;; Deux précautions valent mieux qu’une, on met à jour les nomenclatures!
(if (setq ii -1 Select_Nomenclatures (ssget « _X » ‘((0 . « ACAD_TABLE »))))
(while (setq Ent_N (ssname Select_Nomenclatures (setq ii (1+ ii))))
(command « _PLANTORTHOUPDATEBOM » Ent_N)
)
)

(princ)
)

AP3D_MajVueOrtho

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *