Vla-put-freeze

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


機能
画層のフリーズ状態を設定する。


引数
  • vla-object … VLAオブジェクト
  • bool … ブール
  • :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)


関連事項