Aller au contenu

bloquer rotation attribut


pascal19

Messages recommandés

Bonsoir à toutes et tous,

 

Et en 2007, on peut grâce aux lisps de Patrick_35 =>

 

 

 ;;;=================================================================
;;;
;;; ROT_0.LSP V2.00
;;;
;;; Laisser l'angle de rotation à 0 de tous les attributs
;;;
;;; Copyright (C) Patrick_35
;;;
;;;=================================================================

(defun Attributs_rot_0(rea obj / att)
 (cond
   ((eq (cdr (assoc 0 (entget (cadr obj)))) "INSERT")
     (foreach att (vlax-invoke (vlax-ename->vla-object (cadr obj)) 'getattributes)
(vla-put-rotation att 0)
     )
   )
 )
)

(defun c:rot0()
 (if mrea_rot0
   (princ "\n\tL'angle des Attributs à 0 est déjà activée.")
   (progn
     (setq mrea_rot0 (vlr-acdb-reactor nil '((:vlr-objectModified . Attributs_rot_0))))
     (princ "\n\tActivation de l'angle des Attributs à 0")
   )
 )
 (princ)
)

(defun c:srot0()
 (if mrea_rot0
   (progn
     (vlr-remove mrea_rot0)
     (setq mrea_rot0 nil)
     (princ "\n\tDésactivation de l'angle 0 des Attributs")
   )
   (princ "\n\tL'angle des Attributs à 0 est déjà désactivée.")
 )
 (princ)
)

(vl-load-com)
(princ (strcat "\n\tPour activer l'angle des Attributs à 0, lancez la commande ROT0.\n\tPour revenir à la normale, faites la commande SROT0."))
(princ)

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité