「Vla-setgridspacing」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-setgridspacing ''vla-object'' ''XSpacing'' ''YSpacing'' ) ; 機能 : ビューポートのグリッド間隔を設定する。 ; 引数...」) |
(相違点なし)
|
2016年2月12日 (金) 13:10時点における最新版
- 構文
- (vla-setgridspacing vla-object XSpacing YSpacing )
- 機能
- ビューポートのグリッド間隔を設定する。
- 引数
-
- vla-object … VLAオブジェクト(PViewport、Viewport)
- XSpacing … ビューポートでのグリッドの X 間隔。
- YSpacing … ビューポートでのグリッドの Y 間隔。
- 戻り値
- nil
- サンプル
(vl-load-com) (defun c:Example_SetGridSpacing() ;; ビューポートのグリッド間隔を変更するサンプル (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; 既定値を取得 (setq viewportObj (vla-get-ActiveViewport doc)) ;; グリッドを表示に変更 (vla-put-GridOn viewportObj :vlax-true) (vla-put-ActiveViewport doc viewportObj) ;; ビューポートのグリッド間隔を取得 (vla-GetGridSpacing viewportObj 'XSpacing 'YSpacing) (alert (strcat "X =" (rtos XSpacing 2) ", Y =" (rtos YSpacing 2))) ;; 変更 (vla-SetGridSpacing viewportObj (* XSpacing 0.5) (* YSpacing 0.5)) (vla-put-ActiveViewport doc viewportObj) (vla-GetGridSpacing viewportObj 'XSpacing 'YSpacing) (alert (strcat "X =" (rtos XSpacing 2) ", Y =" (rtos YSpacing 2))) )
関連事項