Vla-put-lock

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月23日 (土) 11:16時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-lock ''vla-object'') ; 機能 : 画層のロック状態を設定する。 ; 引数 :* vla-object … VLAオブジェクト ::* :vl...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-lock vla-object)


機能
画層のロック状態を設定する。


引数
  • vla-object … VLAオブジェクト
  • :vlax-true : 画層をロックに設定
  • :vlax-false : 画層をアンロックに設定
戻り値
nil


サンプル
(setq LayerTable (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq lay (vla-add LayerTable "NewLayer"))

; 表示
(vla-put-layeron lay :vlax-true)
(vla-put-layeron lay :vlax-false)

; フリーズ
(vla-put-freeze lay :vlax-true)
(vla-put-freeze lay :vlax-false)

; ロック
(vla-put-lock lay :vlax-true)
(vla-put-lock lay :vlax-false)

; 印刷
(vla-put-plottable lay :vlax-true)
(vla-put-plottable lay :vlax-false)

; 線の太さ
(vla-put-lineweight lay 18) ; 0.18mm
(vla-put-lineweight lay -3) ; 規定値

; 色
(vla-put-color lay 128)



関連事項