thry0

Bjr à tous, Vois du coté des hyperliens ... Sélectionne ton texte - Click droit - Propriétés. Ensuite insère un hyperlien par rapport aux vues de ton dessin --> Présentation 10 Une fois fait, un CTRL plus click sur ton texte t'ouvre la page désirée (Présentation 10). Voilà ;)

Bjr à tous, Le lisp BLOCKREPLACE des Expresstools paraît tout indiqué :-) Sélectionner le bloc à remplacer puis le bloc le remplaçant, blocs à la même échelle et même point d'insertion ...

Bjr à tous, Avec la commande ELEV à renseigner avant de lancer ta commande ...

Re, Une polyligne 2D aura tous ses sommets sur un plan horizontal, alors qu'une polyligne 3D pourra avoir des sommets avec des élévations, des Z, différentes ...

Bjr à tous, Regarder du coté de la variable OSNAPZ (à 1) qui contraint à dessiner à l'élévation renseignée avec ELEV par rapport au SCU courant ...

Bjr à tous, Du coté de RESVUE peut être ... ? A augmenter éventuellement :unsure:

Re, Y compris après un REGNTOUT ... ?

Bjr à tous, BLOCKREPLACE des Express Tools semble tout indiqué. A la condition que les points d'insertion soient situés au même endroit ... ;) Voilà,

Bjr à tous, Pour ce qui est de la question bonus, la touche F12 (Saisie dynamique) doit régler le problème. Quant au reste ... :-)

Bjr à tous, Peut être vérifier la variable INSUNITS ... sans certitude <_<

Bjr à tous, Essayes de passer la variable PICKFIRST à 1 ...

Bjr, Vérifie que ta variable "DIMASSOC" est bien à 2 ... peut être (?)

Bjr à tous, Pourquoi ne pas simplement utiliser un style de cotes avec unités alternatives et avec un facteur de 0.25 ... ? (Je ne vois pas ici l'utilité d'un champ dynamique ...)

Bjr à tous, Un Lisp récupéré je ne sais où et dont je ne connais pas l'auteur ... (defun c:wblockm () (setq cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) ; (if (not dos_getdir) (setq path (getstring "\nDS> Target Folder: " T)) (setq path (dos_getdir "Target Folder" (getvar "DWGPREFIX"))) ) (if (/= path nil) (progn (if (= (substr path (strlen path) 1) "\\") (setq path (substr path 1 (1- (strlen path)))) ) (princ "\nDS> Building List of Blocks ... ") (setq lst nil) (setq itm (tblnext "BLOCK" T)) (while (/= itm nil) (setq nam (cdr (assoc 2 itm))) (setq pass T) (if (/= (cdr (assoc 1 itm)) nil) (setq pass nil) (progn (setq ctr 1) (repeat (strlen nam) (setq chk (substr nam ctr 1)) (if (or (= chk "*")(= chk "|")) (setq pass nil) ) (setq ctr (1+ ctr)) ) ) ) (if (= pass T) (setq lst (cons nam lst)) ) (setq itm (tblnext "BLOCK")) ) (setq lst (acad_strlsort lst)) (princ "Done.") ; (foreach blk lst (setq fn (strcat path (chr 92) blk)) (if (findfile (strcat fn ".dwg")) (command "_.WBLOCK" fn "_Y" blk) (command "_.WBLOCK" fn blk) ) ) ) ) ; (setvar "CMDECHO" cmdecho) (princ) ) Il faut juste renseigner le répertoire où stocker les blocs en autant de plans séparés. En espérant répondre à ton besoin ;o)

Re, Oui désolé j'ai répondu pour une version "pleine". Je ne peux pas t'en dire plus de mon coté. Plus qu'à attendre une réponse plus adaptée ;o)