https://wiki.gz-labs.net/index.php?title=Vla-get-flowdirection&feed=atom&action=history
Vla-get-flowdirection - 版の履歴
2024-03-28T09:59:04Z
このウィキのこのページに関する変更履歴
MediaWiki 1.39.3
https://wiki.gz-labs.net/index.php?title=Vla-get-flowdirection&diff=6025&oldid=prev
Gizmon: ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-flowdirection ''vla-object'' ) ; 機能 : タイトル行とヘッダ行を表の下部に配置するか、上部に配置するかを...」
2016-01-27T15:06:03Z
<p>ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-flowdirection ''vla-object'' ) ; 機能 : タイトル行とヘッダ行を表の下部に配置するか、上部に配置するかを...」</p>
<p><b>新規ページ</b></p><div>{{AutoLISP}}<br />
; 構文<br />
: (vla-get-flowdirection ''vla-object'' )<br />
<br />
<br />
; 機能<br />
: タイトル行とヘッダ行を表の下部に配置するか、上部に配置するかを取得する。 <br />
<br />
; 引数<br />
:* vla-object … VLAオブジェクト(Table、TableStyle)<br />
<br />
<br />
; 戻り値<br />
: 次の定数のいずれかを指定。(AcTableDirection 列挙型)<br />
::* acTableBottomToTop: 表の流出方向は下から上へ; 値 = 1<br />
::* acTableTopToBottom: 表の流出方向は上から下へ(既定); 値 = 0<br />
<br />
<br />
; サンプル<br />
<pre class="brush:autolisp;"><br />
(vl-load-com)<br />
(defun c:Example_TitleSuppressed()<br />
(vl-load-com)<br />
(defun c:Example_BitFlags()<br />
;; 表スタイルオブジェクトを作成し、スタイル名とか<br />
;; その他の属性の値を設定するサンプル。<br />
(setq acadObj (vlax-get-acad-object))<br />
(setq doc (vla-get-ActiveDocument acadObj))<br />
<br />
(setq dictionaries (vla-get-Dictionaries doc))<br />
(setq dictObj (vla-Item dictionaries "acad_tablestyle"))<br />
<br />
;; 辞書でカスタム TableStyle オブジェクトを作成<br />
(setq keyName "NewStyle"<br />
className "AcDbTableStyle")<br />
<br />
(setq customObj (vla-AddObject dictObj keyName className))<br />
<br />
(vla-put-Name customObj "NewStyle")<br />
(vla-put-Description customObj "New Style for My Tables")<br />
<br />
(vla-put-FlowDirection customObj acTableBottomToTop)<br />
(vla-put-HorzCellMargin customObj 0.22)<br />
(vla-put-BitFlags customObj 1)<br />
(vla-SetTextHeight customObj (+ acDataRow acTitleRow) 1.3)<br />
(vla-SetTextStyle customObj (+ acDataRow acTitleRow) "Standard")<br />
<br />
(setq col (vlax-create-object "AutoCAD.AcCmColor.20")) ; バージョンに合わせて変える<br />
(vla-SetRGB col 12 23 45)<br />
<br />
(vla-SetBackgroundColor customObj (+ acDataRow acTitleRow) col)<br />
(vla-SetGridVisibility customObj (+ acHorzInside acHorzTop) (+ acDataRow acTitleRow) :vlax-true)<br />
(vla-SetAlignment customObj (+ acDataRow acTitleRow) acBottomRight)<br />
(vla-SetRGB col 244 0 0)<br />
(vla-SetGridColor customObj (+ acHorzTop acHorzInside) acDataRow col)<br />
<br />
(alert (strcat "テーブルスタイル名 = " (vla-get-Name customObj)<br />
"\nスタイルの説明 = " (vla-get-Description customObj)<br />
"\n流れの方向 = " (itoa (vla-get-FlowDirection customObj))<br />
"\nセルの水平余白 = " (rtos (vla-get-HorzCellMargin customObj) 2)<br />
"\nビットフラグ = " (itoa (vla-get-BitFlags customObj))<br />
"\nタイトル行の文字の高さ = " (rtos (vla-GetTextHeight customObj acTitleRow) 2)<br />
"\nタイトル行のテキスト スタイル = " (vla-GetTextStyle customObj acTitleRow)<br />
"\n水平下面タイトル行グリッドの可視性 = " (if (= (vla-GetGridVisibility customObj acHorzBottom acTitleRow) :vlax-true) "True" "False")<br />
"\nタイトル行の配置 = " (itoa (vla-GetAlignment customObj acTitleRow))<br />
"\nヘッダーの抑制 = " (if (= (vla-get-HeaderSuppressed customObj) :vlax-true) "True" "False")<br />
"\nタイトルの省略 = " (if (= (vla-get-TitleSuppressed customObj) :vlax-true) "True" "False")<br />
)<br />
)<br />
(vlax-release-object col) <br />
)<br />
)<br />
</pre><br />
<br />
-----<br />
関連事項<br />
* [[vlax-get-acad-object]]<br />
* [[vla-get-activedocument]]<br />
* [[vla-put-name]]<br />
* [[vla-put-description]]<br />
* [[vla-put-flowdirection]]<br />
* [[vla-put-horzcellmargin]]<br />
* [[vla-put-bitflags]]<br />
* [[vla-settextheight]]<br />
* [[vla-settextstyle]]<br />
* [[vla-setgridvisibility]]<br />
* [[vla-setalignment]]<br />
* [[vla-put-headersuppressed]]<br />
* [[vla-put-titlesuppressed]]<br />
* [[vla-get-name]]<br />
* [[vla-get-description]]<br />
* [[vla-get-flowdirection]]<br />
* [[vla-get-horzcellmargin]]<br />
* [[vla-get-bitflags]]<br />
* [[vla-gettextheight]]<br />
* [[vla-gettextstyle]]<br />
* [[vla-getgridvisibility]]<br />
* [[vla-getalignment]]<br />
* [[vla-get-headersuppressed]]<br />
* [[vla-get-titlesuppressed]]<br />
<br />
[[Category:AutoLISP]]</div>
Gizmon