「Vla-put-autosnapmarkercolor」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-autosnapmarkercolor ''vla-object'' ''color'') ; 機能 : AutoSnap マーカーの色を指定する。 ; 引数 :* vla-object … P...」) |
細編集の要約なし |
||
11行目: | 11行目: | ||
:* vla-object … PreferencesDrafting の VLAオブジェクト | :* vla-object … PreferencesDrafting の VLAオブジェクト | ||
:* color … acColor 列挙型 | :* color … acColor 列挙型 | ||
::* | ::* vbBlack | ||
::* | ::* vbRed | ||
::* | ::* vbYellow | ||
::* | ::* vbGreen | ||
::* | ::* vbCyan | ||
::* | ::* vbBlue | ||
::* | ::* vbMagenta | ||
::* vbWhite | |||
2016年1月14日 (木) 09:12時点における版
- 構文
- (vla-put-autosnapmarkercolor vla-object color)
- 機能
- AutoSnap マーカーの色を指定する。
- 引数
-
- vla-object … PreferencesDrafting の VLAオブジェクト
- color … acColor 列挙型
- vbBlack
- vbRed
- vbYellow
- vbGreen
- vbCyan
- vbBlue
- vbMagenta
- vbWhite
- 戻り値
- 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))) )
関連事項