BricsCADのVBAでボックス属性

Question

BricsCADで、VBAで図面の作成日付だけを変換したいと思ってます。
そもそもCADを使った事がないのでよく分からないのですが、とりあえず

・図面上には沢山のレイヤーとブロックがある。
・目的の変換したい箇所は「TITLE」というブロックの「BITEM8」という
場所の値である。

という所までは分かっています。
なので
BOX = AcadBlocks("TITLE")（うろ覚え）
としてやって目的のブロックを取るとこまでは出来ました。が、
プロパティを見ても肝心の値がありません。

エクセルで言えば、Bookに沢山あるシートから目的のシートの
目的のRangeオブジェクトを取るところまでは来ているのですが、
肝心の値がとれない状態です。

お手数をおかけしますが、どこかサンプルがあるようなサイトか、
取り方を教えてください。

Answer 1

きっともっとスマートな方法があるはず。（エラー処理なし）
For each BLR in ThisDrawing.ModelSpace
If BLR.Name ="TITLE" then
ITEM_Array = BLR.GetAttributes
'ITEM_ArrayはVariant配列
'TagStringプロパティ＝「名称」
'TextString =「値」

 For i = 0 to ubound(ITEM_Array)
              if ITEM_Array(i).TagString ="BITEM8" then
                   ITEM_Array(i).TextString =本日の日付
              End if
         Next i

End If

Answer 2

CAD系のVBAは触ったことがないですが、BricsCADの公式サイトで開発言語を見ると、「AutoCAD相当」と書かれていますので、概ねAutoCADと同じオブジェクトモデルが使用されていると思ってよさそうですね。
AutoCAD VBAで探した方が、文献は見つかりやすいと思います。

たとえばこれ。
AutoCAD Object Summary(PDF)

AcadBlocks("TITLE")でAcadBlockオブジェクトが取得でき、AcadBlockの中には複数種類のItemを格納できるようです。

おそらくそのItemがプロパティを持っているのだと思いますが、以下のようにTypeName関数でItemの型を調べることはできますでしょうか。

MsgBox TypeName(AcadBlocks("TITLE").Item(1))

そうして調べた型をまたドキュメントで参照したりGoogleで検索したりしながら、目的のプロパティを絞り込んでいきます。

あるいはオブジェクトブラウザを使用するとプロパティなどを簡単に調べられます。
Excel VBA のオブジェクト ブラウザの使い方メモ

が、BricsCADのVBEにオブジェクトブラウザが備わっているのかは不明です。無い場合は、ExcelからBricsCADのAPIorAutoCADのAPIを参照設定してやれば、ExcelのVBEからオブジェクトブラウザでオブジェクトモデルをブラウズできます。

参考になれば幸いです。

Comments

[Chika]

メーカーが違うので違うかなと思っておりました。。
ありがとうございます。
連休明けの昼休みに確認します。

[thom.jp]

まあ、普通はそう思いますよね。
AcadBlocksってのが恐らく、AutoCADBlocksの略です。

BITEM8ってのを見落としてましたので補足です。

BlockItemの8番目という意味かと思うので、以下のどちらかで子オブジェクトをとれるかもしれません。
AcadBlocks("TITLE").Item("BITEM8")
AcadBlocks("TITLE").Item(8)

そしたらそれのプロパティで設定できるかと。

[Chika]

中々確認の時間がとれず、遅くなりました。
結論から言うと、AcadBlocksでは値をとれないことが分かりました。
値を変更するためのオブジェクトはAcDbBlockReference内のプロパティでした。
色々調べていただき、本当にありがとうございました。

とりあえず自分のメモとして取り方を自己解決欄に記載しておきます。

[thom.jp]

解決されたようで安心しました。
CAD系のVBAは情報が少ないので大変かと思いますが、がんばってください。