Classement

(DEFUN c:MaHach (/ aa qs ww wx) (SETQ ww (TBLSEARCH "STYLE" "arial_025")) (SETQ wx (GETVAR "TextStyle")) (IF (= ww nil) (ENTMAKE (LIST (CONS 0 "STYLE") (CONS 100 "AcDbSymbolTableRecord") (CONS 100 "AcDbTextStyleTableRecord") (CONS 2 "arial_025") (CONS 70 0) (CONS 40 0.2) (CONS 41 1.0) (CONS 50 0.0) (CONS 71 0) (CONS 42 0.2) (CONS 3 "Arial.ttf") (CONS 4 "") ) ;_ Fin de List ) ;_ Fin de ENTMAKE ) ;_ Fin de if (SETQ aa (ENTSEL "Selectionner une Hachure: ")) (SETQ qs (GETPOINT "\nPoint d'insertion du texte: ")) (WHILE (/= aa nil) (PROGN (SETVAR "TextStyle" "arial_025") (COMMAND "_Text" "_j" "_left" qs 0 (CDR (ASSOC 2 (ENTGET (CAR aa)))) ) ;_ Fin de COMMAND (SETQ aa (ENTSEL "Selectionner une hachure: ")) (IF (/= aa nil) (SETQ qs (GETPOINT "\nPoint d'insertion du texte: ")) ) ;_ Fin de if ) ;_ Fin de PROGN ) ;_ Fin de WHILE (PRINC) ) ;_ Fin de DEFUN CatHachure.lsp

Salut, MODIFLONG (_LENGTHEN).

Salut, Lorsque tu lance PEDIT, tu fait M pour Multiple et ensuite P pour Précédent. Ça prendra la sélection précédente.

@Zaher_chn Rien n'est jamais parfait, c'est pourquoi je te parlais modification/amélioration. Je suis content d'avoir rendu service. Je reste disponible sur les forums dans cette optique. Amicalement

@Zaher_chn Dans ce cas, voici le code : Attention, je ne gère pas le calque, tu dois te mettre dans le bon calque courant avant de lancer la commande DECMUR (defun c:decmur ( / di p1 p2 p3 pol) (setq p1 (getpoint "\nPremier point du mur\n")) (setq p2 (getpoint p1 "\nDeuxième point du mur\n")) (setq p3 (osnap (cadr (entsel "\nChoix du côté opposé du mur (épaisseur)\n")) "_nea")) (command "_pline" p1 p2 "") (setq pol (entlast)) ;(setq polvla (vlax-ename->vla-object pol)) (setq di (distance (vlax-curve-getclosestpointto (vlax-ename->vla-object pol) p3) p3)) (command "._offset" (/ di 2.0) pol p3 "" ) (vla-put-ConstantWidth (vlax-ename->vla-object (entlast)) di) (entdel pol) ) À ta disposition si à l'utilisation, tu penses à une modification/amélioration Amicalement

@Zaher_chn Voici ce que je propose. Il y a des soucis avec les deux derniers murs, la sélection est correcte ? Tu préfères autre chose ? 2023-06-30_17-22-19.mp4 Amicalement