Vla-put-displaylocked

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

構文: (vla-put-displaylocked vla-object bool)

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

引数

vla-object … PViewport の VLAオブジェクト
bool … ブール型

:vlax-True: ビューポートはロックされる。
:vlax-False: ビューポートはロックされない。

戻り値: nil

サンプル

(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)
       )
    )
)