Aller au contenu

verrouillage automatique des fenetre


nobless

Messages recommandés

Le plus rapido sans prog. C'est avec la commande _filter, tu selectionnes une fenêtre, ensuite dans la liste, tu enleves tous sauf objet: viewport. Ensuite tu cliques sur Apply et

tape ALL, enter !

 

Une fois la sélection terminée, tu vas dans ton tableau des propriétés pour verrouiller tous les viewports dans ton dessin.....en 1 min. tous les fenêtres sont verrouillées !

 

J'espère c'est clair ?

l'ACADien ! http://img124.exs.cx/img124/7999/start.gif

Lien vers le commentaire
Partager sur d’autres sites

Je m'excuse car ma version est en anglais (trop proche des Etats-Unis d'Amérique) , pis je ne connais

malheureusement pas les commandes français. Mais avec un souligner devant la commande, elle devient universelle ( ex: _FILTER )

 

 

l'ACADien ! http://img124.exs.cx/img124/7999/start.gif

Lien vers le commentaire
Partager sur d’autres sites

Salut

Voici un petit lisp qui te verrouille toutes tes fenêtres

 

(defun c:verr(/ cmd fen n sel tot)
 (vl-load-com)
 (setq cmd (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (command "_.undo" "_group")
 (if (setq sel (ssget "x" (list (cons 0 "VIEWPORT"))))
   (progn
     (setq n 0 tot 0)
     (while (ssname sel n)
       (if (and (= (logand (cdr (assoc 90 (entget (ssname sel n)))) 16384) 0) (/= (cdr (assoc 69 (entget (ssname sel n)))) 1))
         (progn
           (setq fen (vlax-ename->vla-object (ssname sel n)))
           (vlax-put-property fen 'displaylocked ':vlax-true)
           (setq tot (1+ tot))
         )
       )
       (setq n (1+ n))
     )
     (princ (strcat "\n"  (itoa tot) " fenêtre(s) de verrouillée(s)"))
   )
   (princ "\nPas de fenêtres")
 )
 (command "_.undo" "_end")
 (setvar "cmdecho" cmd)
 (princ)
)

 

ou autrement, comme te le dis Pako, par les filtres

 

tu lances la command _-vports puis v et a

Au moment de la sélection des objets, tu lance le filtre en transparent --> '_filter

Tu prends comme choix du filtre=fenêtre. tu fais appliquer et tu tapes tout dans la sélection et tu valides le tout. Voilà, mais j'ai vu que ça ne fonctionne apparemment que sur l'onglet sélectionné

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

sisi filter marche sur tout les onglet

c'est la selection rapide qui selectionne que dans l'onglet actif

 

et maintenant que je connais cette commande je vais plutot me faire un bouton que charger un lisp de plus qui finissent par alourdir autocad

 

merci a tous car je suis vraiment charette et j'ai gagne beaucoup de temps avec cette commande mal documenté a mon gout

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...
  • 1 mois après...

voici une macro à coller derrière une icône :

 

Pour toutes les verrouiller

 

^C^Cespacep;fmult;v;ac;tout;;espaceo;

 

Pour toutes les déverrouiller

 

^C^Cespacep;fmult;v;in;tout;;espaceo;

 

 

Je me suis amusé à créer un petit bloc Cadenas ouvert, cadenas fermé pour savoir ou j'en suis !!!

 

Mais ça c'est une autre histoire... à moins que...

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour Nobless,

 

Le plus simple serait de te mettre à disposition un exemple. Mais pour cela il que je m'intéresse de pret au téléchargement.

 

au secours Patrick, comment faire, j'essaye de creuser le sujet de moi même

 

à plus

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

 

Nobless voici l'exemple que je te propose de découvrir à l'adresse ci-dessous.

 

http://perso.wanadoo.fr/rebcao/CADxp/f-verrou-deverrou.gif

 

 

Christian

 

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

 

das ist ein test...

 

http://perso.wanadoo.fr/rebcao/CADxp/f-verrou-deverrou.gif

 

qui marche (c'est le même bazarre que mon adresse plus haut

 

je découvre, ça fait que quelques jours que je débute sur ce superbe FORUM.

 

Christian

 

PS : au fait quand est-ce qu'on bosse !!!...

 

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Hello - Pour Pako

 

Il me semble que les gars du Quebec sont FIERS de parler, écrire, lire, etc, en Français...

 

Cependant ils utilisent des logiciels en Anglais !!!

 

Cherchez la contradiction ???

 

Crabuleusement

 

les commandes sont lancées en anglais par les menus et les boutons

exemple _line

faire Esc

puis Entr

pour avoir la syntaxe en français !

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité