Vla-put-autotrackingveccolor
- 構文
- (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))) )
関連事項