[Résolu ] L'arrière-plan d'une cote est très large

[Steven]

Salut à tous,

J'ai reçu un fichier avec une cote dont l'arrière-plan est très large.

Je n'arrive pas à modifier la largeur de celui-ci.

Lorsqu'on fait un zoom étendu, AutoCAD centre les deux cotes dans l'espace objet mais il prend en compte de la largeur de l'arrière-plan de la cote du bas.

Je joins le fichier pour que vous puissiez voir de quoi il en retourne.

https://gofile.me/2GkSK/tcX0VdrVi

[lecrabe]

Hello

En effet c tres curieux et je ne sais pas corriger !

Bye, lecrabe

 

[Eric]

Salut Steven, 

Tu doubles clic sur le texte de la cote, puis clic droit sur la règle et tu choisis "Définir la largeur du TextMult" et tu mets la valeur à 0.

 

[lecrabe]

Hello

OUI bien sur, j avais deja eu / vu ce probleme "Définir la largeur du TextMult" !

La preuve voici la routine de Bonuscad pour les MTEXTs ... Conseil : ne jamais vieillir !!

Au fait @bonuscad SVP pourrais tu l ameliorer et y inclure les Cotes (Le probl de Steven) !?

Bye, lecrabe

 

 
;; 
;; https://cadxp.com/topic/49668-largeur-definie-txtmult/
;; 
;; Routine: LARG_0_MTEXT par Bonuscad
;; 
;; Car la propriete "Largeur definie" des MTEXTs 
;; n est pas modifiable dans la palette des proprietes !
;; 

(defun c:LARG_0_MTEXT (/ ss i text)
  (if (setq ss (ssget '((0 . "MTEXT"))))
        (repeat (setq i (sslength ss))
        (setq text (ssname ss (setq i (1- i))))
        (if (< 0.0 (getpropertyvalue text "Width"))
        (progn
        (if (/= (getpropertyvalue text "ColumnType") 0)
                (setpropertyvalue text "ColumnType" 0)
        )
        (setpropertyvalue text "Width" 0.0)
        )
        )
        )
  )
  (princ)
)

 

[PHILPHIL]

hello

Gilles avait ecrit ca

Le souci c'est que ca ne sauvegarde pas la largeur définitivement.

des que l'on retouche a la cote , la largeur de texte revient.

@(gile) SVP si tu passes par la ...

Phil
 

;;;----------------------------------------------
;;;modifier le "width" des texte de cote a zero 0
;;;----------------------------------------------
;;;gile

(defun dimtextwidthto0 (dim / blk break ent dxf)
  (setq blk (tblsearch "block" (cdr (assoc 2 (entget dim))))
        ent (cdr (assoc -2 blk))
        )
  (while (and ent (not break))
    (if (= (cdr (assoc 0 (setq dxf (entget ent)))) "MTEXT")
      (progn (entmod (subst '(41 . 0.0) (assoc 41 dxf) dxf)) (setq break t))
      (setq ent (entnext ent))
        )
    )
  )



(defun c:setdimwidth0 (/ jsel i name ent entlist)
  (if (setq jsel (ssget '((0 . "DIMENSION"))))
    (progn (repeat (setq i (sslength jsel))
             (setq name    (ssname jsel (setq i (1- i)))
                   entlist (tblsearch "BLOCK" (cdr (assoc 2 (entget name))))
                   ent     (cdr (assoc -2 entlist))
                   )
             (dimtextwidthto0 name)
             )
           (command "_REGENALL")
           )
    )
  (princ)
  )

 

[Steven]

Salut @Eric,

Nickel

 

@lecrabe et @PHILPHIL,

Merci pour les lisps 😉

[Steven]

Toutefois, je me demande comment la fenêtre de texte de la cote est devenue si grande.

Quelqu'un a une idée ?

[Eric]

J'ai déjà vu ça plusieurs fois avec les textes quand on utilise la fonction échelle pour réduire un plan ou une partie. Dans ce cas, la largeur du texte n'est pas affectée par la mise à l'échelle et elle garde son ancienne valeur.

Pour les cotes, la largeur devrait être 0 et cela ne devrait donc pas changer lors de la mise à l'échelle, mais aujourd'hui avec les conversions de logiciels 3D, on ne s'étonne plus de rien.

[Steven]

Merci Eric , pour la précision.

[Steven]

Le 27/01/2023 à 18:17, PHILPHIL a dit :

hello

Gilles avait ecrit ca

Le souci c'est que ca ne sauvegarde pas la largeur définitivement.

des que l'on retouche a la cote , la largeur de texte revient.

@(gile) SVP si tu passes par la ...

Phil
 

;;;----------------------------------------------
;;;modifier le "width" des texte de cote a zero 0
;;;----------------------------------------------
;;;gile

(defun dimtextwidthto0 (dim / blk break ent dxf)
  (setq blk (tblsearch "block" (cdr (assoc 2 (entget dim))))
        ent (cdr (assoc -2 blk))
        )
  (while (and ent (not break))
    (if (= (cdr (assoc 0 (setq dxf (entget ent)))) "MTEXT")
      (progn (entmod (subst '(41 . 0.0) (assoc 41 dxf) dxf)) (setq break t))
      (setq ent (entnext ent))
        )
    )
  )



(defun c:setdimwidth0 (/ jsel i name ent entlist)
  (if (setq jsel (ssget '((0 . "DIMENSION"))))
    (progn (repeat (setq i (sslength jsel))
             (setq name    (ssname jsel (setq i (1- i)))
                   entlist (tblsearch "BLOCK" (cdr (assoc 2 (entget name))))
                   ent     (cdr (assoc -2 entlist))
                   )
             (dimtextwidthto0 name)
             )
           (command "_REGENALL")
           )
    )
  (princ)
  )

Salut @PHILPHIL,

Lorsqu'on enregistre le dessin qu'on le ferme et qu'on de ré ouvre, les modifs sont prisent en compte 😀