[编程交流] VB使用la切换视口

(vl-load-com)
;;;--------------------------------------------------------------------;
(defun ViewportReactor:Start ()
 (or *ViewportReactor*
     (setq *ViewportReactor*
            (vlr-sysvar-reactor
              "My viewport reactor "
              '(
                (:vlr-sysvarchanged . ViewportCallback:SysVarChanged)
               )
            )
     )
 )
 (princ)
)
;;;--------------------------------------------------------------------;
(defun ViewportCallback:SysVarChanged (rea var / clayer)
 (if (and (= "CLAYER" (strcase (car var))) (cadr var))
   (vlax-for x (vla-get-paperspace
                 (vla-get-activedocument
                   (vlax-get-acad-object)
                 )
               )
     (if (= "AcDbViewport" (vla-get-objectname x))
       (progn
         (setq clayer (strcase (getvar 'clayer)))
         (vl-catch-all-apply
           'vla-put-viewporton
           (list
             x
             (if (= clayer (strcase (vla-get-layer x)))
               :vlax-true
               :vlax-false
             )
           )
         )
         (vla-update x)
       )
     )
   )
 )
 (princ)
)
;;;--------------------------------------------------------------------;
(ViewportReactor:Start)
(princ)

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
using acApp = Autodesk.AutoCAD.ApplicationServices.Application;
using System.Collections.Generic;
[assembly: ExtensionApplication(typeof(CADTutor.Sample.ViewportsToggle.Events))]
namespace CADTutor.Sample.ViewportsToggle
{
   class Events : IExtensionApplication
   {
       void IExtensionApplication.Initialize()
       {
           acApp.DocumentManager.DocumentCreated += onDocumentCreated;
           Document doc = acApp.DocumentManager.MdiActiveDocument;
           doc.Database.SystemVariableChanged += onSystemVariableChanged;
       }
       void IExtensionApplication.Terminate()
       {
       }
       static void onDocumentCreated(object sender, DocumentCollectionEventArgs e)
       {
           Document doc = e.Document;
           if (doc != null)
               doc.Database.SystemVariableChanged += onSystemVariableChanged;
       }
       static void onSystemVariableChanged(object sender, 
           Autodesk.AutoCAD.DatabaseServices.SystemVariableChangedEventArgs e)
       {
           if (e.Changed == true && e.Name.ToUpper() == "CLAYER")
           {
               Database db = HostApplicationServices.WorkingDatabase;
               using (Transaction tr = db.TransactionManager.StartOpenCloseTransaction())
               {
                   BlockTableRecord btr =
                       (BlockTableRecord)tr.GetObject(
                           SymbolUtilityServices.GetBlockPaperSpaceId(db),
                           OpenMode.ForRead);
                   string clayer = db.Clayer.ToString().ToUpper();
                   List<LayerTableRecord> layersToLock = new List<LayerTableRecord>();
                   foreach (ObjectId id in btr)
                   {
                       Viewport vp =
                           tr.GetObject(id, OpenMode.ForRead) as Viewport;
                       if (vp != null)
                       {
                           string vpLayer = vp.Layer.ToUpper();
                           LayerTableRecord ltr =
                               (LayerTableRecord)tr.GetObject(vp.LayerId, OpenMode.ForWrite);
                           if (ltr.IsLocked == true)
                           {
                               layersToLock.Add(ltr);
                               ltr.IsLocked = false;
                           }
                           vp.UpgradeOpen();
                           if (clayer == vp.Layer.ToUpper())
                               vp.On = true;
                           else
                               vp.On = false;
                       }
                   }
                   foreach (LayerTableRecord ltr in layersToLock)
                       ltr.IsLocked = true;
                   tr.Commit();
               }
           }
       }
   }
}