Vla-get-lock
- 構文
- (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
関連事項