[编程交流] AutoCAD 2007的图层状态

(defun c:rl1 nil
 (vl-load-com)
 (layerstate-restore "1" nil nil)
 (princ)
)

;;; Alan J. Thompson
;;; LayerStateSave Values
;;; Combine numeric values to use more than one (ie: 32+2+64)
;;; CONSTANT    LAYER PROPERTY        NUMERIC VALUE
;;; -----------------------------------------------------
;;; acLsAll        All            65535
;;; acLsColor        Color            32
;;; acLsFrozen        Frozen or thawed    2
;;; acLsLineType    Linetype        64
;;; acLsLineWeight    Lineweight        128
;;; acLsLocked        Locked or unlocked    4
;;; acLsNewViewport    New viewport layers     16
;;;             frozen or thawed
;;; acLsNone        None            0
;;; acLsOn        On or off        1
;;; acLsPlot        Plotting on or off    8
;;; acLsPlotStyle    Plot style        256
;;; LayerStateList
(defun LayerStateList (/ #List)
 (vlax-for x
           (vla-item (vla-getextensiondictionary
                       (vla-get-layers
                         (vla-get-activedocument (vlax-get-acad-object))
                       ) ;_ vla-get-layers
                     ) ;_ vla-getextensiondictionary
                     "ACAD_LAYERSTATES"
           ) ;_ vla-item
   (setq #List (cons (vla-get-name x) #List))
 ) ;_ vlax-for
 (reverse #List)
) ;_ defun
;;; LayerStateManager
(defun LayerStateManager (/)
 (or *LayerStateManager*
     (setq *LayerStateManager*
            (vla-getinterfaceobject
              (vlax-get-acad-object)
              (strcat
                "AutoCAD.AcadLayerStateManager."
                (itoa (fix (atof (getvar "acadver"))))
              ) ;_ strcat
            ) ;_ vla-getinterfaceobject
     ) ;_ setq
 ) ;_ or
 (vla-setdatabase
   *LayerStateManager*
   (vla-get-database
     (vla-get-activedocument (vlax-get-acad-object))
   ) ;_ vla-get-database
 ) ;_ vla-setdatabase
) ;_ defun
;;; LayerStateRelease
(defun LayerStateRelease (/)
 (not (vl-catch-all-error-p
        (vl-catch-all-apply
          'vlax-release-object
          (list *LayerStateManager*)
        ) ;_ vl-catch-all-apply
      ) ;_ vl-catch-all-error-p
 ) ;_ not
) ;_ defun
;;; LayerStateSave
(defun LayerStateSave (#Name #Prop)
 (LayerStateManager)
 (if
   (not
     (vl-catch-all-error-p
       (vl-catch-all-apply
         '(lambda ()
            (vlax-invoke-method *LayerStateManager* 'Save #Name #Prop)
          ) ;_ lambda
       ) ;_ vl-catch-all-apply
     ) ;_ vl-catch-all-error-p
   ) ;_ not
    #Name
 ) ;_ if
) ;_ defun
;;; LayerStateRestore
(defun LayerStateRestore (#Name)
 (LayerStateManager)
 (if (not
       (vl-catch-all-error-p
         (vl-catch-all-apply
           '(lambda ()
              (vlax-invoke-method *LayerStateManager* 'Restore #Name)
            ) ;_ lambda
         ) ;_ vl-catch-all-apply
       ) ;_ vl-catch-all-error-p
     ) ;_ not
   #Name
 ) ;_ if
) ;_ defun
;;; LayerStateDelete
(defun LayerStateDelete (#Name)
 (LayerStateManager)
 (if (not
       (vl-catch-all-error-p
         (vl-catch-all-apply
           '(lambda ()
              (vlax-invoke-method *LayerStateManager* 'Delete #Name)
            ) ;_ lambda
         ) ;_ vl-catch-all-apply
       ) ;_ vl-catch-all-error-p
     ) ;_ not
   #Name
 ) ;_ if
) ;_ defun