| 種別 | アノテーション |
|---|---|
| 説明 | 指定したDocuWorksファイルに、指定した文字列をアノテーションする。 |
| 構文 | XdwAnnText([FilePath], TextData [, page][, x][, y][, size][, r][, g][, b][, FontName] [, angle][, unit][, crBack][, nFusen][, nLock][, nHanko]) |
| 引数 | FilePath：アノテーションするDocuWorksファイルを指定。無しなら自ファイル TextData：アノテーションする文字列を指定します。 page ：ページ番号を数値で指定します。（初期値は、1） x,y ：貼付Ⅹ位置、Ｙ位置。（初期値は、0,0） sz ：文字サイズ。（初期値は、9） r,g,b ：文字色RGB。（初期値は、RGB(0,0,0)＝黒） FontName：文字フォント名。（初期値は、"ＭＳ ゴシック"） angle ：文字列の回転角度を指定します。（初期値は、0） unit ： 位置の単位。0ならmm、1ならピクセル。（初期値は、0） crBack ：背景色をRGB(r,g,b)で指定。マイナスなら背景なし（初期値は、-1） nFusen ：0なら通常、1なら付箋（初期値は、0） nLock ：0なら固定なし、1なら固定。（初期値は、0） nHanko ：1なら文字スタンプにする（初期値は、0） |
| 戻り値 | |
| 使用例 | Dim sFile,s,page,x,y,sz,r,g,b,sFont,angle,unit,crBack,nFusen,nLock sFile = "C:\shimizu\PenDocuWorks\0_TEST\白紙.xdw" s = "FAX:03-1111-2222" page = 1 x = 200 'unit=0なので、mm単位 y = 30 'unit=0なので、mm単位 sz = 10 r = 255 g = 0 b = 0 sFont = "ＪＳＰ明朝" angle = 90 unit = 0 '自ファイルに、通常テキスト貼付 XdwAnnText(,s,page,x,y,sz,r,g,b,sFont,angle) s = "文字列を\n付箋化して\n貼り付けます。" '\nで改行する crBack = RGB(0,255,255) '背景色 nFusen = 1 '付箋にする nLock = 1 '固定にする '他ファイルに、固定した付箋を貼り付けXdwAnnText(sFile,s,page,x,y,sz,r,g,b,sFont,angle,crBack,nFusen,nLock) '<@INF2@>以降は、下表示文字になります。 s = "スタンプ\n二段目<@INF2@>下表示文字" nHanko = 1 ’文字スタンプにする '文字スタンプの貼り付け XdwAnnText(sFile,type,page,x,y,sz,r,g,b,sFont,angle,unit,crBack, nFusen,nLock,nHanko) 'TI（テキスト情報）を、CSVファイルから読み込む方法。 ’ ① 文字の後に、<@INFO@>を入れる（記号は全て半角） ’ ② TI項目名を、<@*@>と<@|@>で囲む。 ’ ③ TIデータを、②の後に入れる。 ' ④ 項目の数分、②と③を繰り返し、１つの文字にする。 Dim sFile,s,page,x,y,sz,r,g,b,sFont,angle,unit,i,cnt cnt = CsvData(#FILE_DIR# & #FILE_NAME# & ".csv")'CSVの行数を返す For i=1 To cnt s = CsvData("文字列", i) & "<@INFO@>" s = s & "<@*@>基準寸法<@|@>" & CsvData("基準寸法", i) s = s & "<@*@>寸法公差<@|@>" & CsvData("寸法公差", i) s = s & "<@*@>測定値<@|@>" & CsvData("測定値", i) page = CsvData("X位置", i) x = CsvData("X位置", i) 'unit=0なので、mm単位 y = CsvData("Y位置", i) 'unit=0なので、mm単位 sz = CsvData("フォントサイズ", i) r = CsvData("R", i) g = CsvData("G", i) b = CsvData("B", i) sFont = "ＪＳＰ明朝" angle = CsvData("角度", i) unit = 0 XdwAnnText(,s,page,x,y,sz,r,g,b,sFont,angle)’自己ファイルに注釈 Next i |
| 実例 | |
| 備考 |
関連する関数（XdwAnnText、XdwAnnProperty、XdwAnnDate、 XdwAnnImage、XdwAnnShape、XdwFieldData、GetTextData） フォント名は、適当に入れても対応できません。 空白や全角半角などで間違いがあると、動作しません。 簡単な方法は、WordやExcelを開き、そこからコピーする方法です。 
以下、代表的なフォント名を記述しますので、コピーいただいてもOKです。 ＭＳ Ｐ明朝 ＭＳ Ｐゴシック ＭＳ ゴシック ＭＳ 明朝 MS UI Gothic メイリオ 游ゴシック 游明朝 フォントがインストールしていない場合、利用できないことがありますが、 上記は、「Windows 10 によってインストールされるフォント」です。 |