DenisHen

@didier : désolé pour ce malentendu. ;) @Olivier : je suis dans l'espace "Planification et Analyse", ceci explique peut-être..? Mais comment on "coche" dans la fenêtre de personnalisation ? Je n'ai pas trouvé. Du coup, j'ai transféré les menus AutoCAD dans un menu à moi et ça fonctionne... Encore merci à vous deux...

Ok, perso, j'aurais placé un petit "(setvar "clayer" "0");" en début de macro, juste pour être sûr... Mais ce n'est qu'une proposition... ;) EDIT : didier m'a grillé... J'attendais la réponse Jbrosteaux.

Ne prend pas la mouche didier, je ne t'ai jamais reproché quoi que ce soit, et j'ai toujours apprécié tes remarques et ton aide. Je me suis peut-être mal exprimé, tout simplement. J'ai bien trouvé l'emplacement, mais je n'ai aucun acad.mnu, acad.mns ou acad.mnr. Est-ce un autre fichier ? Oui, je le savais, mais je l'aurais surement oublié, heureusement que tu en parles... ;)

Salut. Que ce passe-t'il si tu gèles le calque courant ?

Merci didier pour ton aide, toujours précieuse ;) Mais je n'ai que les menus Covadis, comme je l'ai dis, et je ne trouve aucun .mnu ou .mns dans mon disque dur. Bonne journée...

Je connais CHARGMNU, c'est avec cette commande que je charge les miens, mais je n'ai jamais décharger les menus d'AutoCAD. Je ne comprend pas pourquoi ils ne sont plus là...

J'ai MENUBAR=1 et je n'ai que les menus de Covadis...

Je n'en suis pas si sûr... La routine peux fonctionner comme ça. If ObjLayer.Name <> "papier" Then 'Début du premier If If ObjLayer.Freeze Then ObjLayer.Freeze = False 'Début et fin de ce second If ObjLayer.LayerOn = True 'est exécuté dans le premier If End If 'Fin de premier If Mais bon, j'ai VBA et j'ai testé le premier code de Christian, et il ne fait rien. J'ai aussi viré la dernière ligne "ObjSel.SelectOnScreen FTyp, FVal" qui ne sert à rien et qui me fait penser que ce code vient d'un autre, plus grand...

Allez, juste pour le fun... J'ai fais un petit lisp pour faire ça dans ce post.

Bonjour à tous. Suite à ce post de Willy95, j'ai décidé d'en faire un lisp. Ce lisp désactive le(s) calque(s) actif(s), puis, active le(s) calque(s) suivant. ;;; **************************************** ;;; Inactive un calque et Active le suivant ;;; Pour Willy95 ;;; **************************************** (defun c:CalqSuivant (/ LstCalq lay LstCalq CalqPos CalqDxf CalqActif) (princ "\nDéveloppé par DenisH - CadXP.com (v1.0)") (setq LstCalq nil Trouv 0 ) ;_ Fin de setq (while (setq lay (tblnext "LAYER" (not lay))) (if (not (wcmatch (cdr (assoc 2 lay)) "*|*")) (setq LstCalq (cons (cdr (assoc 2 lay)) LstCalq)) ) ;_ Fin de if ) ;_ Fin de while (setq LstCalq (vl-sort LstCalq '<)) (foreach CalqCour LstCalq (setq CalqPos (tblobjname "LAYER" CalqCour)) (setq CalqDxf (entget CalqPos)) (setq CalqActif (cdr (assoc 62 CalqDxf))) (cond ((and (> CalqActif 0) (= Trouv 0)) (setq Trouv 1) (entmod (append CalqDxf (list (cons 62 (- (cdr (assoc 62 CalqDxf))))))) ) ((and (< CalqActif 0) (= Trouv 1)) (setq Trouv 0) (entmod (subst (cons 62 (* CalqActif -1)) (assoc 62 CalqDxf) CalqDxf)) ) ) ;_ Fin de cond ) ;_ Fin de foreach (princ) ) ;_ Fin de defun

C'est simple, il l'a lu... ;)

Judicieuse remarque... je ne connaissais pas cette commande... PS : en plus, je ne sais pas comment faire, en lisp, pour savoir si un calque est actif ou pas...

Salut. Je n'ai pas ça en stock, mais ça se développe, si personne n'a ça dans ses tiroirs...

Et tu l'as eu ?

Dans l'onglet "Outils"... Mais comme l'a dit Maitre (gile) : On ne peut pas enregistrer une macro en VBA...

Salut. +1 avec (gile), et pour l'enregistrement de macro VBA dans AutoCAD, et pour le code, qui me parait incomplet aussi...

Salut. Et la commande "Aligner" ?

Je disais ça car je ne comprenais pas ce que pouvait faire nicolas2 avec un LISP sous LT... Je ne t'incriminais nullement (gile)... Ni nicolas2... errare humanum est, et je suis bien placé pour le savoir... ;)

Salut à tous... On n'est pas dans le forum AutoCAD LT 2013 ?

De rien... Content d'avoir aidé... N'oublie pas de noter "[Résolu]" à ton entête du premier message...

Salut Geof. Il y a quelques temps, j'ai fais cette routine qui devrait faire ce que tu demande : ;;;********************************************************* ;;; Sauvegarde toutes les présentation dans une vue étendue ;;; Pour philsogood de CadXP.com ;;;********************************************************* (defun c:SauvPresZoomEtendu (/ lay Pos LstPresent) (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (setq LstPresent (cons (cons (vla-get-taborder lay) (vla-get-name lay)) LstPresent)) ) ;_ Fin de vlax-for (setq Pos 1) (while (/= (cdr (assoc Pos LstPresent)) nil) (command "_.layout" "_set" (vl-princ-to-string (cdr (assoc Pos LstPresent)))) (command "_zoom" "t") (setq Pos (1+ Pos)) ) ;_ Fin de while (command "_qsave") ;;(command "_close") (princ) ) ;_ Fin de defun

Salut à tous... Le coup des Xdata, c'est de ma faute, suite à la demande d'Hydro8, j'aurais dû le prévenir. Mais je n'y connaissais rien en la matière, et les réacteurs reste de la magie pour moi... Et c'est Maître (gile) qui m'a aidé (en gros, il a fait 95% du boulo, comme d'hab.). Je n'avais pas pensé aux autres logiciels compatibles avec les DWG. Mea culpa, mea culpa, mea maxima culpa... Je ne cesserais jamais d'apprendre (ici aussi), primo, parce que c'est "enrichissant", deuzio, c'est toujours utile à un moment ou à un autre, troizio, j'aime bien ça... Encore merci pour vos "compliments", même mitigés, sur ce code... Bon week-end à tous...

Si ce sont deux textes "simples", tu peux les modifier en même temps dans les propriétés.

Je placerais ces deux textes de tailles différentes dans deux calques, gelés ou pas dans les deux "espace papier"

Salut. Si les deux présentations ont la même échelle, je pense qu'il y a l'anotativité des styles de texte.