sujet Re: AutoCAD : Conservation de la taille des pointillés dans un bloc dans AutoCAD – tous produits - Forum Français

AutoCAD : Conservation de la taille des pointillés dans un bloc

s.lepeu — Wed, 02 Feb 2022 12:45:02 GMT

Bonjour,

Je souhaiterais savoir comment faire en sorte que les pointillés à l'intérieur d'un bloc gardent la même apparence à l'extérieur du bloc, quelque soit l'échelle du bloc et quelque soit l'unité d'insertion, pour pas qu'ils se transforment en ligne continue après insertion du bloc dans un autre dessin. J'ai regardé sur les forums, du côté des variables système et des paramètres, en vain. J'en viens à me demander s'il ne faut par créer chaque pointillé un à un...

En vous remerciant.

Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
Conservation de la taille des pointillés dans un bloc

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

tramber — Wed, 02 Feb 2022 14:20:16 GMT

Que ce soit à l'intérieur ou à l'extérieur d'un bloc, chaque entité possède son échelle de type de ligne.

Il faut donc parfois tatonner pour ajuster toutes les échelles des composants, fermer le bloc, constater, recommencer...etc.

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

s.lepeu — Wed, 02 Feb 2022 15:03:40 GMT

J'entends bien, cela me rassure c'est ce que je fais ; mais une fois le bloc créé si je double sa taille dans le dessin où il se trouve, les pointillés vont être d'apparence deux fois plus petits proportionnellement à la taille du bloc. Je me dois alors d'ouvrir le bloc et doubler l'échelle du type de ligne de chaque entité ? Cela me semble pour le moins fastidieux (sans parler du problème si j'applique une échelle différente au bloc selon X Y ou Z). A la limite on pourrait s'en contenter à la création du bloc. Sauf qu'en insérant le bloc en question dans un dessin avec des unités différentes il doit être mis à l'échelle pour respecter les distances en fonction des unités du dessin. Il faudrait alors réaliser l'opération à chaque 1ère insertion du bloc ? Ce n'est pas viable.

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

tramber — Wed, 02 Feb 2022 15:48:36 GMT

Je te comprends. En effet, la mise à l'échelle du bloc ne fera rien au rythme de tes traits...

Mais hélas c'est comme ça.

Désolé. Il te faudrait des subterfuges comme un bloc à vues multiples mais je ne vois pas la panacée dans ce genre de solution.

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

Luna3 — Wed, 02 Feb 2022 16:59:26 GMT

Coucou,

J'avais pondu il y a assez longtemps la commande PLINE-CUT pour une amie, et cela pourrait éventuellement t'aider dans ton problème (mais je ne promet rien) :

(defun c:PLINE-CUT (/ get-pt-list seg-list name d ent-list n segment str) (defun get-pt-list (name / pt-list) (repeat (setq i (1+ (fix (vlax-curve-getendparam name)))) (setq pt-list (cons (vlax-curve-getPointAtParam name (setq i (1- i))) pt-list)) ) ) (defun get-segment-list (name d / get-dist i dist dist-tmp dist-max pt-list last-pt pt seg-list segment) (defun get-dist (pt-list / n dt) (setq n 0 dt 0 ) (repeat (1- (length pt-list)) (setq dt (+ (distance (nth n pt-list) (nth (setq n (1+ n)) pt-list)) dt)) ) dt ) (setq dist 0 i 0 dist-max (vlax-curve-getdistatparam name (vlax-curve-getendparam name)) pt-list (get-pt-list name) last-pt (car pt-list) pt-list (cdr pt-list) ) (while (< (setq dist (+ dist d)) dist-max) (cond ((> (setq dist-tmp (distance last-pt (car pt-list))) d) (setq pt (polar last-pt (angle last-pt (car pt-list)) d) segment (cons (setq i (1+ i)) (list last-pt pt)) seg-list (cons segment seg-list) last-pt pt ) ) ((< dist-tmp d) (setq segment (list last-pt) dist-tmp 0 ) (while (< (setq dist-tmp (+ (distance last-pt (car pt-list)) dist-tmp)) d) (setq segment (cons (car pt-list) segment) last-pt (car pt-list) pt-list (cdr pt-list) ) ) (setq dist-tmp (- d (get-dist segment)) pt (polar last-pt (angle last-pt (car pt-list)) dist-tmp) segment (cons (setq i (1+ i)) (reverse (cons pt segment))) seg-list (cons segment seg-list) last-pt pt ) ) ((= dist-tmp d) (setq pt (car pt-list) segment (cons (setq i (1+ i)) (list last-pt pt)) seg-list (cons segment seg-list) last-pt pt pt-list (cdr pt-list) ) ) ) ) (if (= dist dist-max) (setq seg-list (reverse seg-list)) (setq seg-list (reverse (cons (cons (setq i (1+ i)) (list last-pt (last pt-list))) seg-list))) ) ) (while (or (not (setq name (ssget "_:S+." '((0 . "LWPOLYLINE"))))) (not (setq name (ssname name 0))) ) (prompt "\nAucune polyligne n'a été sélectionnée, veuillez recommencer svp...") ) (initget 6) ;; Empêche l'utilisateur de saisir une valeur nulle ou négative (if (null (setq d (getreal "\nVeuillez spécifier la longueur des segments <1> : "))) (setq d 1) ) (setq seg-list (get-segment-list name d) ent-list (entget name) n 0 ) (foreach segment seg-list (if (= "5" (substr (setq str (rtos (/ (car segment) 2.0) 2 1)) (strlen str) 1)) (if (entmake (append (vl-remove nil (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (assoc 8 ent-list) ;; Calque (cons 90 (1- (length segment))) ;; Nb de sommets '(70 . 0) ;; Polyligne non fermée (if (assoc 62 ent-list) (assoc 62 ent-list)) ;; Si couleur forcée (if (assoc 43 ent-list) (assoc 43 ent-list)) ;; Si épaisseur globale ) ) (mapcar '(lambda (pt) (cons 10 pt)) (cdr segment)) ) ) (setq n (1+ n)) ) ) ) (if (= n (fix (/ (1+ (length seg-list)) 2.0))) (progn (entdel name) (princ "\nAucune erreur n'a été détectée lors de l'exécution.") ) (progn (entmod (if (assoc 62 ent-list) (subst (cons 62 10) (assoc 62 ent-list) ent-list) (append ent-list (list (cons 62 10))) ) ) (princ "\nUne erreur a été détectée lors de l'exécution...") ) ) (princ) )

Je n'aurais pas forcément le temps cette semaine pour l'adapter si besoin par contre...

Le principe du programme c'est de modifier les polylignes et de dessiner en dur une polyligne du type de ligne = "CACHE" en spécifiant la longueur des traits (longueur traits visibles = longueur traits non visibles). Le programme va donc remplacer 1 polylignes par N polylignes de longueurs égales. Donc le problème c'est que l'on ne peux pas différencier la longueur visible de la longueur non-visible en l'état, donc je doutes que cela te convienne parfaitement étant donné que tu souhaites avoir plutôt un rendu correspondant au type de ligne "DOTED" (ou "POINTILLE")...

Bisous,
Luna

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

Luna3 — Wed, 02 Feb 2022 17:36:26 GMT

Rectification, c'était plus rapide que prévu donc ci-dessous le programme permettant diviser une polyligne unique en plein de segments alternant entre visible et non-visible, dont la longueur des segments visibles peut être différente de la longueur des segments invisibles :

(defun c:PLINE-CUT (/ get-pt-list seg-list name d ent-list n segment str) (defun get-pt-list (name / pt-list) (repeat (setq i (1+ (fix (vlax-curve-getendparam name)))) (setq pt-list (cons (vlax-curve-getPointAtParam name (setq i (1- i))) pt-list)) ) ) (defun get-segment-list (name dv dn / get-dist i dist dist-tmp dist-max pt-list last-pt pt fl d seg-list segment) (defun get-dist (pt-list / n dt) (setq n 0 dt 0 ) (repeat (1- (length pt-list)) (setq dt (+ (distance (nth n pt-list) (nth (setq n (1+ n)) pt-list)) dt)) ) dt ) (setq dist 0 i 0 dist-max (vlax-curve-getdistatparam name (vlax-curve-getendparam name)) pt-list (get-pt-list name) last-pt (car pt-list) pt-list (cdr pt-list) fl nil ) (while (< (setq dist (+ dist (setq d (if (setq fl (not fl)) dv dn)))) dist-max) (cond ((> (setq dist-tmp (distance last-pt (car pt-list))) d) (setq pt (polar last-pt (angle last-pt (car pt-list)) d) segment (cons (setq i (1+ i)) (list last-pt pt)) seg-list (cons segment seg-list) last-pt pt ) ) ((< dist-tmp d) (setq segment (list last-pt) dist-tmp 0 ) (while (< (setq dist-tmp (+ (distance last-pt (car pt-list)) dist-tmp)) d) (setq segment (cons (car pt-list) segment) last-pt (car pt-list) pt-list (cdr pt-list) ) ) (setq dist-tmp (- d (get-dist segment)) pt (polar last-pt (angle last-pt (car pt-list)) dist-tmp) segment (cons (setq i (1+ i)) (reverse (cons pt segment))) seg-list (cons segment seg-list) last-pt pt ) ) ((= dist-tmp d) (setq pt (car pt-list) segment (cons (setq i (1+ i)) (list last-pt pt)) seg-list (cons segment seg-list) last-pt pt pt-list (cdr pt-list) ) ) ) ) (if (= dist dist-max) (setq seg-list (reverse seg-list)) (setq seg-list (reverse (cons (cons (setq i (1+ i)) (list last-pt (last pt-list))) seg-list))) ) ) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (while (or (not (setq name (ssget "_:S+." '((0 . "LWPOLYLINE"))))) (not (setq name (ssname name 0))) ) (prompt "\nAucune polyligne n'a été sélectionnée, veuillez recommencer svp...") ) (initget 6) ;; Empêche l'utilisateur de saisir une valeur nulle ou négative (if (null (setq dv (getreal "\nVeuillez spécifier la longueur des segments visibles <1.0> : "))) (setq dv 1.0) ) (initget 6) ;; Empêche l'utilisateur de saisir une valeur nulle ou négative (if (null (setq dn (getreal (strcat "\nVeuillez spécifier la longueur des segments non-visibles <" (rtos dv) "> : ")))) (setq dn dv) ) (setq seg-list (get-segment-list name dv dn) ent-list (entget name) n 0 ) (foreach segment seg-list (if (= "5" (substr (setq str (rtos (/ (car segment) 2.0) 2 1)) (strlen str) 1)) (if (entmake (append (vl-remove nil (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (assoc 8 ent-list) ;; Calque (cons 90 (1- (length segment))) ;; Nb de sommets '(70 . 0) ;; Polyligne non fermée (if (assoc 62 ent-list) (assoc 62 ent-list)) ;; Si couleur forcée (if (assoc 43 ent-list) (assoc 43 ent-list)) ;; Si épaisseur globale ) ) (mapcar '(lambda (pt) (cons 10 pt)) (cdr segment)) ) ) (setq n (1+ n)) ) ) ) (if (= n (fix (/ (1+ (length seg-list)) 2.0))) (progn (entdel name) (princ "\nAucune erreur n'a été détectée lors de l'exécution.") ) (progn (entmod (if (assoc 62 ent-list) (subst (cons 62 10) (assoc 62 ent-list) ent-list) (append ent-list (list (cons 62 10))) ) ) (princ "\nUne erreur a été détectée lors de l'exécution...") ) ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) )

Bisous,
Luna

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

s.lepeu — Thu, 03 Feb 2022 10:21:06 GMT

Merci bien pour vos réponses et merci Luna pour ton programme c'est très gentil, je vais regarder.

Je constate que les uns et les autres ont fait avec ou ont opté pour des solutions de contournement. Je suis surpris que depuis 40 ans qu'Autocad existe, les développeurs n'ont pas pris la peine de gérer de manière simple cette fonctionnalité de base concernant les pointillés (ou les hachures, c'est la même) alors que le logiciel propose aujourd'hui des milliers de fonctionnalités bien plus complexes. Cela m'a frappé quand j'ai commencé à utiliser Autocad, mais je vois qu'en 20 ans les choses n'ont pas évolué. J'ai appris tout simplement à m'en passer en n'utilisant que des traits pleins et des hachures solides avec de la transparence, à défaut de mieux. Un peu comme si j'avais une TV et que je ne changeais jamais de chaînes parce qu'il fallait aller trifouiller à l'intérieur du poste. Je ne peux imaginer cependant que des solutions n'existent pas, peut-être bas niveau.

De même, au lieu de mettre à disposition ce paramètre d'échelle de type de ligne qui me paraît être plus une variable interne tellement elle signifie plus rien, ils devraient proposer simplement la taille du motif de base qui se répète à l'infini, cela permettrait de définir facilement la bonne taille du 1er coup.

Stéf

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

patrick.emin — Mon, 07 Feb 2022 13:56:20 GMT

Bonjour @s.lepeu

Merci d’avoir posé cette question sur nos forums ! La communauté a essayé de vous aider au mieux. Si des réponses vous paraissent appropriées, voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.

Re: AutoCAD : Conservation de la taille des pointillés dans un bloc

s.lepeu — Tue, 08 Feb 2022 10:50:57 GMT

J'ai testé le programme, il est restreint aux polylignes mais il fonctionne. Petit inconvénient de la méthode, si on conserve toutes les poignées du bloc chaque pointillé apporte son lot de poignées mais cela reste du détail comparé au servie rendu. De temps en temps, présence de segments visibles en trop qu'il suffit alors de supprimer pour avoir un pointillé bien propre. Je ne pourrais pas l'utiliser partout mais compte le faire dans les cas simples. Merci Luna, je valide.