「Vla-put-autosnapmarkercolor」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-autosnapmarkercolor ''vla-object'' ''color'') ; 機能 : AutoSnap マーカーの色を指定する。 ; 引数 :* vla-object … P...」) |
細編集の要約なし |
||
| (同じ利用者による、間の1版が非表示) | |||
| 11行目: | 11行目: | ||
:* vla-object … PreferencesDrafting の VLAオブジェクト | :* vla-object … PreferencesDrafting の VLAオブジェクト | ||
:* color … acColor 列挙型 | :* color … acColor 列挙型 | ||
::* acBlack | |||
::* acRed | ::* acRed | ||
::* acYellow | ::* acYellow | ||
| 18行目: | 19行目: | ||
::* acMagenta | ::* acMagenta | ||
::* acWhite | ::* acWhite | ||
2016年1月14日 (木) 09:13時点における最新版
- 構文
- (vla-put-autosnapmarkercolor vla-object color)
- 機能
- AutoSnap マーカーの色を指定する。
- 引数
-
- vla-object … PreferencesDrafting の VLAオブジェクト
- color … acColor 列挙型
- acBlack
- acRed
- acYellow
- acGreen
- acCyan
- acBlue
- acMagenta
- acWhite
- 戻り値
- nil
- MEMO ： このプロパティの初期値は acYellow。
- サンプル
(vl-load-com)
(defun c:Example_AutoSnapMarkerColor()
;; AUTOSNAPマーカーの色を読み込んで変更、元に戻すサンプル。
(setq acadObj (vlax-get-acad-object))
(setq preferences (vla-get-Preferences acadObj))
;; drafting preferences オブジェクトを取得
(setq ACADPref (vla-get-Drafting preferences))
;; 規定値を読み込み
(setq originalValue (vla-get-AutoSnapMarkerColor ACADPref))
(alert (strcat "AutoSnapMarkerColor の値は: " (itoa originalValue)))
;; AutoSnapMarkerColor の値を変更
(vla-put-AutoSnapMarkerColor ACADPref acRed)
(setq newValue (vla-get-AutoSnapMarkerColor ACADPref))
(alert (strcat "AutoSnapMarkerColor の値を次にセット : " (itoa newValue)))
;; 元に戻す
;; * Note: 戻したくなければコメントアウトすればよし
(vla-put-AutoSnapMarkerColor ACADPref originalValue)
(alert (strcat "AutoSnapMarkerColor を次の値に戻します : " (itoa originalValue)))
)
関連事項