XdwAnnShape

種別 アノテーション
説明 指定したDocuWorksファイルに、図形をアノテーションする。

構文 XdwAnnShape(FilePath, page, type, xs, ys, xe, ye,
　　cr[, trans][, line][, unit][, crFill])
引数 FilePath ：アノテーションするDocuWorksファイルを指定。
　　""なら、現在のファイル（初期値は、""）
page ：ページ番号を数値で指定。（初期値は、1）
type ：図形タイプ。四角=1、円=2
x,y,w,h ：画像の開始位置と幅、高さ
cr ：線の色をRGB(r,g,b)で指定。
trans ：1なら透過、0なら不透過。（初期値は、0）
line ：線の太さ。0なら線なし。（初期値は、1）
unit ：0ならmm単位、1ならピクセル単位。（初期値は、0）
crFill ：塗りつぶし色をRGB(r,g,b)で指定。
　　マイナス値なら塗りつぶししない。（初期値は、-1）
戻り値 成功時は1、失敗時は0。
使用例 dim pno, sFind, cc, sFile, xs,ys,xe,ye,i,pcnt,no

sFile = #FILE_DIR# & "abcd.xdw"
sFind = "PCK"

pcnt = XdwProperty(0,1,sFile)'指定ファイルの総ページ数
no = 0

for pno = 1 to pcnt
　　cc = XdwFindText(sFind, pno, sFile)
　　
　　for i = 1 to cc
　　　　'検索結果の文字の文書内の位置を返す
　　　　xs = XdwFindText(, i, 1)
　　　　ys = XdwFindText(, i, 2)
　　　　xe = XdwFindText(, i, 3)
　　　　ye = XdwFindText(, i, 4)
　　　　
　　　　XdwAnnShape(sFile, pno, 1, xs, ys, xe, ye,
　　　　　　RGB(0,255,255), 2, 0, 0) '検索範囲を四角を貼付
　　　　
　　　　XdwAnnShape(sFile, pno, 2, xs, ys, xe, ye, RGB(255,0,0),
　　　　　　0, 0, 0, RGB(0,255,255))'検索範囲を塗りつぶし円を貼付
　　　　no = no + 1
　　next i
next pno

MsgBox(sFind & " は、" & no & "個あります。")
実例  
備考 関連する関数（XdwAnnText、XdwAnnProperty、XdwAnnDate、 XdwAnnImage、XdwAnnShape、XdwFieldData、GetTextData）

ver7.0以降、利用可能。