Classement

Bonjour, Rien de plus normal. Certains objet de certains bloc sont en couleur "Ducalque". Donc quand tu fusionnes tout tes calques dans un seul calque, les objets prennent la couleur définie par le calque car tes objets son en couleur "Ducalque". Pour palier ce problème, avant fusion, il faudrait ouvrir chaque blocs et forcer la couleur pour ne plus être en "Ducalque".

Avec l'accrochage Extension et Autosnap activés, ça fonctionne tout seul

Bonjour @ombresoleil, Il semblerait que tu souhaiterais modifier la longueur de votre rectangle tout en conservant le centre géométrique de celui-ci au même endroit. C'est bien çà ? Si tel est bien le cas, c'est impossible à faire, dans l'état. Il faut vous créer un bloc dynamique dont le point d'insertion sera au centre géométrique du rectangle. Ensuite, dans l'éditeur de bloc, créez un paramètre linéaire sur la longueur du rectangle. Dans les propriété du paramètre linéaire mets l'emplacement de la base, rubrique Divers, à Milieu. ajoute ensuite une première action Etirer allant vers la gauche du rectangle puis créé une seconde action Etirer vers la partie droite du rectangle. Ferme l'éditeur de bloc en enregistrant les modifications. De ce fait, lorsque tu tireras sur une flèche du nouveau bloc dynamique, ton rectangle s'étirera dans les deux sens tout en restant à sa place. Je te conseille toutefois, avant de créer le bloc, de mettre le rectangle à l'horizontal. Ça sera plus facile par la suite de l'insérer et de l'orienter comme tu le souhaiterais. Il faudra ensuite transformer la nouvelle référence de bloc en bloc dynamique. Toutefois, si tu as plusieurs rectangles de mêmes dimensions dans ton dessin, peut-être serait -il judicieux de t'installer ou te faire installer AutoCAD 2025. Avec la nouvelle commande CONVERTIRBLOC, tu pourras convertir tous les rectangles de mêmes dimensions d'un seul coup. Voici un aperçu de ce que tu pourrais faire avec AutoCAD 2025 : https://www.dropbox.com/scl/fi/4kc5f3h2ul1ltag1bih4g/RECTANGLE_ETIRABLE_2_SENS.zip?rlkey=9fjvsqq76dbzmka3k0k4nklst&dl=0

Voilà (vl-load-com) (defun C:PolyOnPoint ( / Point2D dFuzz ssPoly oPoly ssPonc oPonc PtDeb PtFin PT I J iNbPoncDeb iNbPoncFin) (defun Point2D (PT) (list (car PT) (cadr PT) 0.0) ) (initget 4) (if (not (setq dFuzz (getreal "\nRayon de recherche <0.01> : "))) (setq dFuzz 0.01) ) (initget 1 "Oui Non") (setq b2D (= "Oui" (getkword "\nLimiter la recherche en 2D [Oui/Non] : "))) (if (and (princ "\nSélectionner les linéaires : ") (setq ssPoly (ssget (list (cons 0 "ARC,LINE,LWPOLYLINE")))) (princ "\nSélectionner les ponctuels : ") (setq ssPonc (ssget (list (cons 0 "POINT,INSERT")))) ) (progn (setq ssOK (ssadd)) (setq I 0) (repeat (sslength ssPoly) (setq oPoly (ssname ssPoly I)) (setq I (1+ I)) (setq PtDeb (vlax-curve-GetStartPoint oPoly)) (if b2D (setq PtDeb (Point2D PtDeb))) (setq PtFin (vlax-curve-GetEndPoint oPoly)) (if b2D (setq PtFin (Point2D PtFin))) (setq iNbPoncDeb 0) (setq iNbPoncFin 0) (setq J 0) (while (and (< J (sslength ssPonc)) (= iNbPoncDeb 0) (= iNbPoncFin 0) ) (setq oPonc (ssname ssPonc J)) (setq J (1+ J)) (setq PT (cdr (assoc 10 (entget oPonc)))) (if b2D (setq PT (Point2D PT))) (if (and (= iNbPoncDeb 0) (equal PT PtDeb dFuzz)) (setq iNbPoncDeb 1) ) (if (and (= iNbPoncFin 0) (equal PT PtFin dFuzz)) (setq iNbPoncFin 1) ) ) (if (or (>= iNbPoncDeb 1) (>= iNbPoncFin 1)) (ssadd oPoly ssOK) ) ) (sssetfirst nil ssOK) ) ) )

Si je comprend peut être votre problème, si vous étirez votre rectangle en dynamique celui ci peut prendre la forme d'un trapèze. Si c'est le cas, ce que vous pouvez faire: tapez SNAPANG et donnez les deux points d'extrémité d'un coté, puis basculez en mode ORTHO. Dans ces conditions vous pourrez étirez votre rectangle sans déformation des angles droits.

Même remarque qu'Olivier dans mon code, substitue (à la ligne 25) ((and -> ((or Et au cas ou, tu ne voudrais pas tester les Z, il faudrait changer les lignes: '(-4 . ">=,>=,>=") -> '(-4 . ">=,>=") et '(-4 . "<=,<=,<=") -> '(-4 . "<=,<=")

Ca pose plusieurs problèmes, car on va devoir modifier la couleur d'une définition de bloc en fonction de l'insertion de sa référence. Si un bloc CHAISE (composé d'objets de couleur DUBLOC ou DUCALQUE) est inséré 1 fois dans un calque Bleu et une fois dans un calque Vert, de quelle couleur doit être la chaise, car on peut forcer Vert ou Bleu, mais pas les 2 en même temps! Si un bloc est composé d'objet de couleur DUBLOC et que le bloc est inséré 1 fois en couleur Ducalque dans un calque Bleu et 1 fois dans ce même calque Bleu mais avec une couleur forcée Rouge, quelle doit être la couleur de la chaise? Si une définition de bloc, contient d'autre bloc, on multiplie par 2 ou plus les problèmes. Olivier

Hello @ombresoleil En fait il te faudait une routine qui force la couleur de tous les objets <DuCalque> dans la couleur par defaut du calque d origine et de plus qui "descende" dans la structure des Blocs pour analyser les objets <DuCalque> et faire de meme ! Ai je bien compris ? Et apres tu fais ta fusion de calques ... Bye, lecrabe

hello mise a jour du lisp "VPOutlineV1-4.lsp" 3 nouvelles fonction, tourne le texte dans le sens de lecture de la fenetre et place le texte en haut a gauche merdouille de temps en temps( texte mal tourné en bas a gauche) Phil