Vla-get-lock

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文

(vla-get-lock vla-object)

機能

画層がロックされているかどうかを取得する。

引数

• vla-object … VLAオブジェクト

戻り値

ブール

• :vlax-true ： 画層はロックされている
• :vlax-false ： 画層はロックされていない

サンプル

(vl-load-com)
(defun layer-state (state / typ names tf skip)
  (setq names nil)
  (vlax-for layer (vla-get-Layers
                    (vla-get-ActiveDocument
                      (vlax-get-acad-object)))
    (setq skip nil)
    (cond
      ((= 1 state) (setq typ (vla-get-freeze layer) tf :vlax-true)) 
      ((= 2 state) (setq typ (vla-get-freeze layer) tf :vlax-false))
      ((= 3 state) (setq typ (vla-get-layeron layer) tf :vlax-true))
      ((= 4 state) (setq typ (vla-get-layeron layer) tf :vlax-false))
      ((= 5 state) (setq typ (vla-get-lock layer) tf :vlax-true))
      ((= 6 state) (setq typ (vla-get-lock layer) tf :vlax-false))
      ((= 7 state) (setq typ (vla-get-plottable layer) tf :vlax-true))
      ((= 8 state) (setq typ (vla-get-plottable layer) tf :vlax-false))
      (t (setq skip T))
    )
    (if (and (null skip) (eq typ tf))
      (setq names (cons (vla-get-name layer) names))
    ))
  (reverse names)
);_end_defun

---

関連事項

• vlax-get-acad-object
• vla-get-activedocument
• vla-get-Layers
• vla-get-freeze
• vla-get-layeron
• vla-get-lock
• vla-get-plottable
• vla-put-freeze
• vla-put-layeron
• vla-put-lock
• vla-put-plottable