「Vla-put-autotrackingveccolor」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-autotrackingveccolor ''vla-object'' ''color'') ; 機能 : 自動トラッキング ベクトルの色を指定する。 ; 引数 :*...」) |
細編集の要約なし |
||
| 11行目: | 11行目: | ||
:* vla-object … PreferencesDrafting の VLAオブジェクト | :* vla-object … PreferencesDrafting の VLAオブジェクト | ||
:* color … OLE_COLOR (定数) | :* color … OLE_COLOR (定数) | ||
::* | ::* vbBlack | ||
::* | ::* vbRed | ||
::* | ::* vbYellow | ||
::* | ::* vbGreen | ||
::* | ::* vbCyan | ||
::* | ::* vbBlue | ||
::* | ::* vbMagenta | ||
::* vbWhite | |||
2016年1月14日 (木) 09:13時点における最新版
- 構文
- (vla-put-autotrackingveccolor vla-object color)
- 機能
- 自動トラッキング ベクトルの色を指定する。
- 引数
-
- vla-object … PreferencesDrafting の VLAオブジェクト
- color … OLE_COLOR (定数)
- vbBlack
- vbRed
- vbYellow
- vbGreen
- vbCyan
- vbBlue
- vbMagenta
- vbWhite
- 戻り値
- nil
- MEMO ： このプロパティの初期値は vbWhite。
- サンプル
(vl-load-com)
(defun c:Example_autotrackingveccolor()
;; 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-autotrackingveccolor ACADPref))
(alert (strcat "autotrackingveccolor の値は: " (itoa originalValue)))
;; autotrackingveccolorの値を変更
(vla-put-AutoTrackingVecColor ACADPref (vlax-make-variant acRed 19))
(setq newValue (vla-get-autotrackingveccolor ACADPref))
(alert (strcat "autotrackingveccolor の値を次にセット : " (itoa newValue)))
;; 元に戻す
;; * Note: 戻したくなければコメントアウトすればよし
(vla-put-AutoTrackingVecColor ACADPref (vlax-variant-change-type originalValue 19))
(alert (strcat "autotrackingveccolor を次の値に戻します : " (itoa originalValue)))
)
関連事項