Trucs et astuces

Bonjour. Je savais que mon choix de vocabulaire avait une origine :   Ça ne retire rien au fait que les auteurs des commandes aient fait l'amalgame et propose bel et bien de choisir des "objets". Amicalement

Bonjour @Sami2601 Je n'ai pas envie de chercher à comprendre le travail des autres aussi je propose cette routine qui demande de cliquer sur une entité Hachure et qui modifie toutes les hachures du calque de l'entité exemple en ansi31 échelle 0.5, est-ce que ça vous va ?   Je ne change pas l'angle de la hachure Je peux la retravailler en faisant des demandes en ligne de commande au lieu de cliquer une entité. Changer les valeurs de nom de hachure et d'échelle dans le code pour coller à vos besoins pour l'instant. La commande à taper est "sami2601" Amicalement (defun c:sami2601 ( / ec ex ln n ob ss typh) (setq ex (car (entsel "\nCliquez sur la hachure pour détecter le calque :\n"))) (if (= (cdr (assoc 0 (entget ex))) "HATCH") (progn (setq typh "ansi31" ec 0.5 ln (cdr (assoc 8 (entget ex))) ss (ssget "X" (list (cons 8 ln) (cons 0 "HATCH"))) ) (repeat (setq n (sslength ss)) (setq ob (vlax-ename->vla-object (ssname ss (setq n (1- n))))) (vla-put-patternscale ob ec) (vla-SetPattern ob acHatchPatternTypePreDefined typh) ) ) (alert" l'entité n'est pas une hachure ") ) )  

Bonjour tout le monde,   J'ai une fonction qui permet de changer les hachures d'un calque avec une échelle. (defun c:HatchReben () ; Set variables for layer name, new hatch pattern, hatch scales, and hatch color (setq layerName "01232 - Bodenbedeckung - Reben Füllfläche" newHatchPattern "GB_REBEN" hatchscales 0.25 hatchColor '(130 130 130)) ; RGB color (130, 130, 130) ; Check if the specified layer exists (if (tblsearch "LAYER" layerName) (progn ; Get information about the existing layer (setq oldLayer (tblsearch "LAYER" layerName)) (setq oldLayerColor (cdr (assoc 62 oldLayer))) (setq oldLayerLinetype (cdr (assoc 6 oldLayer))) (setq oldLayerLinetypescales (cdr (assoc 48 oldLayer))) ) ; Display a message if the layer is not found (prompt (strcat "\nLayer " layerName " not found.")) ) ; Select all hatches on the specified layer (setq ss (ssget "X" (list (cons 8 layerName) (cons 0 "HATCH")))) ; Check if hatches are found on the specified layer (if ss (progn (setq i 0) ; Loop through each selected hatch (while (< i (sslength ss)) ; Get the entity name of the hatch (setq hatchEntity (ssname ss i)) ; Get the layer of the hatch (setq hatchLayer (cdr (assoc 8 (entget hatchEntity)))) ; Check if the hatch is on the specified layer (if (= hatchLayer layerName) (progn ; Modify the hatch entity to change its pattern and scales (entmod (subst (cons 2 newHatchPattern) (assoc 2 (entget hatchEntity)) (entget hatchEntity))) (entmod (subst (cons 41 hatchscales) (assoc 41 (entget hatchEntity)) (entget hatchEntity))) ; Change hatch color to RGB (130, 130, 130) (entmod (subst (cons 62 hatchColor) (assoc 62 (entget hatchEntity)) (entget hatchEntity))) ; Restore original layer properties (entmod (subst (cons 6 oldLayerLinetype) (assoc 6 (entget hatchEntity)) (entget hatchEntity))) (entmod (subst (cons 48 oldLayerLinetypescales) (assoc 48 (entget hatchEntity)) (entget hatchEntity))) ) ) ; Move to the next hatch in the selection set (setq i (1+ i)) ) Le problème c'est que bien que l'échelle soit correcte quand on vérifie sur les propriétés de la hachure, mais visuellement elle ne l'est pas. Si on remodifie manuellement l'échelle en remettant la même valeur (sur cet exemple 0.25) dans les propriétés de la hachure sélectionnée, ca marche. Quelqu'un aurait il une idée sur la provenance de ce problème?   Je vous remercie d'avance. Meilleures salutations.

@GEGEMATIC, je suis désolé. Je ne travaille plus avec AutoCAD depuis 2021. Désormais j'utilise un concurrent assez prometteur : GstarCAD.

Bonjour @BernardL Une blaguounette ? les coordonnées du géomètre sont sûrement LAMBERT. Blague à part, si c'est fait par un G.E., son nom ou son cabinet devrait apparaître quelque-part, un tampon, une citation forcément. Amicalement