「Vla-get-lock」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-lock ''vla-object'') ; 機能 : 画層がロックされているかどうかを取得する。 ; 引数 :* vla-object … VLAオ...」)
 
編集の要約なし
 
55行目: 55行目:
* [[vla-get-lock]]
* [[vla-get-lock]]
* [[vla-get-plottable]]
* [[vla-get-plottable]]
 
* [[vla-put-freeze]]
* [[vla-put-layeron]]
* [[vla-put-lock]]
* [[vla-put-plottable]]


[[Category:AutoLISP]]
[[Category:AutoLISP]]

2013年3月23日 (土) 12:02時点における最新版

構文
(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


関連事項