「Vla-settextstyle2」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-settextstyle2 ''vla-object'' ''nrow'' ''ncol'' ''ncontent'' ''StringStyleName'') ; 機能 : セルの文字スタイル名を設定する...」) |
細編集の要約なし |
||
| 32行目: | 32行目: | ||
(setq MyTable (vla-Addtable modelSpace pt 5 5 10 30)) | (setq MyTable (vla-Addtable modelSpace pt 5 5 10 30)) | ||
(vla-settextstyle2 MyTable 1 1 1 "new_style") ; new_styleという文字スタイルを用意しておくこと | (vla-settextstyle2 MyTable 1 1 1 "new_style") ; new_styleという文字スタイルを用意しておくこと | ||
(alert "表のセル１：１ の文字スタイルを new_style にしました。") | |||
(vla-ZoomExtents acadObj) | (vla-ZoomExtents acadObj) | ||
) | ) | ||
2015年11月2日 (月) 09:39時点における最新版
- 構文
- (vla-settextstyle2 vla-object nrow ncol ncontent StringStyleName)
- 機能
- セルの文字スタイル名を設定する。
- 引数
-
- vla-object … Table の VLAオブジェクト
- nrow … 設定するセルの行番号。
- ncol … 設定するセルの列番号。
- ncontent … セルの内容の値。
- StringStyleName … 設定する新しいスタイル名。
- 戻り値
- nil
- サンプル
(vl-load-com)
(defun c:Example_settextstyle2()
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq pt (vlax-3d-point 0 0 0))
(setq modelSpace (vla-get-ModelSpace doc))
(setq MyTable (vla-Addtable modelSpace pt 5 5 10 30))
(vla-settextstyle2 MyTable 1 1 1 "new_style") ; new_styleという文字スタイルを用意しておくこと
(alert "表のセル１：１ の文字スタイルを new_style にしました。")
(vla-ZoomExtents acadObj)
)
関連事項