「Vla-put-autosnapmarkersize」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-autosnapmarkersize ''vla-object'' ''size'') ; 機能 : AutoSnap マーカーのサイズを指定する。 ; 引数 :* vla-object...」) |
(相違点なし)
|
2016年1月19日 (火) 23:03時点における最新版
- 構文
- (vla-put-autosnapmarkersize vla-object size)
- 機能
- AutoSnap マーカーのサイズを指定する。
- 引数
-
- vla-object … PreferencesDrafting の VLAオブジェクト
- size … AutoSnap マーカーのピクセル単位のサイズを表す 1~20 の値。
- 戻り値
- nil
- サンプル
(vl-load-com) (defun c:Example_AutoSnapMarkerSize() ;; 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-AutoSnapMarkerSize ACADPref)) (alert (strcat "現在の AutoSnapMarkerSize 値は : " (itoa originalValue))) ;; 変更 サイズ10 (vla-put-AutoSnapMarkerSize ACADPref 10) (setq newValue (vla-get-AutoSnapMarkerSize ACADPref)) (alert (strcat "新しい AutoSnapMarkerSize 値は : " (itoa newValue))) ;; 戻す ;; * Note: 戻したくなくばコメントアウトするがよい (vla-put-AutoSnapMarkerSize ACADPref originalValue) (alert (strcat "AutoSnapMarkerSize 値を元に戻す : " (itoa originalValue))) )
関連事項