UCSFOLLOW à 0 dans toutes les fenêtres

[(gile)]

Salut,

 

 

Suite à ce sujet, et comme le problème revient souvent, je propose une petite routine qui met la variable UCSFOLLOW à 0 dans toutes les fenêtres de présentation.

 

 

Utilisation

 

- Charger ViewportUcsFollow.dll dans AutoCAD avec la commande NETLOAD

 

- Lancer la commande UcsNoFollow

 

 

Le code (C#)

 

 

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;

namespace ViewportUcsFollow
{
   public class UcsFollowClass
   {
       [CommandMethod("UcsNoFollow")]
       public void UcsNoFollow()
       {
           Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
           Database db = HostApplicationServices.WorkingDatabase;
           try
           {
               using (Transaction tr = db.TransactionManager.StartTransaction())
               {
                   DBDictionary layouts = (DBDictionary)tr.GetObject(db.LayoutDictionaryId, OpenMode.ForRead);
                   foreach (DBDictionaryEntry entry in layouts)
                   {
                       if (entry.Key == "Model") continue;
                       Layout lay = (Layout)tr.GetObject(entry.Value, OpenMode.ForRead);
                       ObjectIdCollection vports = lay.GetViewports();
                       foreach (ObjectId vpId in vports)
                       {
                           Viewport vp = (Viewport)tr.GetObject(vpId, OpenMode.ForWrite, false);
                           vp.UcsFollowModeOn = false;
                       }
                   }
                   tr.Commit();
               }
           }
           catch (System.Exception ex)
           {
               ed.WriteMessage("\nErreur: " + ex.Message);
           }
       }
   }
}

[lili2006]

Salut Gilles,

 

Marche nickel ! :D

 

J'en profite pour te (re, :mad: )demander la procédure ( et cette fois je note !)

 

1) Je Charge ViewportUcsFollow.dll dans AutoCAD avec la commande NETLOAD (bien sur ce fichier est dans un chemin de recherche des supports)

2) Je rajoute l'expression "(command "_netload" "ViewportUcsFollow.dll ")" dans mon AutoCAD.lsp

3) Je peux utiliser la commande "UcsNoFollow" n'importe quand maintenant,..(car le ".dll " est appelé depuis mon AutoCAD.lsp lors de l'ouverture d'un nouveau fichier, ou plutôt lors du lancement de la commande "UcsNoFollow")

 

Je n'ai pas raté de marches ?

 

Merci d'avance

 

[(gile)]

Marche nickel ! :D

Merci.

 

Quand on charge une DLL, elle est chargée pour toute la session.

 

Le fichier AutoCAD.lsp est donc le bon choix (rappel : par défaut AutoCAD.lsp est chargé une fois au démarrage d'AutoCAD, acaddoc.lsp est chargé à l'ouverture de chaque document).

 

Sinon on peut aussi provoquer le chargement automatique des DLL en passant par la base de registre (voir ici)

Il serait aussi possible d'avoir un comportement du style autoload (chargement au premier appel de la commande), mais c'est un peu plus compliqué, il faut créer d'autres clés dans la base de registre.

[lili2006]

Bonjour à toutes et tous,

 

Merci de ces précisions Gilles

 

Bien sûr j'avais vu le lien que tu redonnes ici mais je ne me sens pas capable de refaire la même procédure pour "ViewportUcsFollow.dll "

 

Et ma foi avec le AutoCAD.lsp, ça marche plutôt bien,...

 

Merci encore et bon dimanche,.