Vla-get-displaylocked

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-displaylocked vla-object)


機能
ビューポートをロックするかどうか指定する。


引数
  • vla-object … PViewport の VLAオブジェクト


戻り値
ブール型
  • :vlax-True: ビューポートはロックされる。
  • :vlax-False: ビューポートはロックされない。


サンプル
(vl-load-com)
(defun c:Example_DisplayLocked()
    ;; ペーパー空間ビューポートのロックを切り替えるサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq paperSpace (vla-get-PaperSpace doc))
  
    ;; ペーパー空間ビューポートを作成
    (if (= (vla-get-count paperSpace) 0)
        (alert "このペーパー空間には、ビューポートがないので作っとけや。")
        (progn
           (setq msg "")
           ;; ペーパー空間ビューポートに移動
           (vlax-for pviewportObj paperSpace
               ;; 
               (if (= (vla-get-ObjectName pviewportObj) "AcDbViewport")
                   (progn
                       ;; ペーパー空間ビューポートがロックされているか確認
                       (setq DisplayState (if (= (vla-get-DisplayLocked pviewportObj) :vlax-true) " はロックされてる" " はロックされてなさげ"))
	                      (setq ID (itoa (vla-get-ObjectID pviewportObj)))
                       (setq msg (strcat msg "PViewport ID " ID DisplayState "\n"))
                   )
               )
           )
           ;; ロック状態の表示
           (alert msg)
       )
    )
)

関連事項