locked
Visio2010でAutoCAD図面を読み、図面に書かれている文字列の一覧と画面表示位置を知りたい RRS feed

 > 

  • 質問

  • Question
    サインインして投票
    0
    サインインして投票

    Visio2010もしくはVisioViewerを利用して、標記のデータ一覧をVB2008でテスト的に作成しています。

    VB.NETよりVisioを制御し下記命令で取り込んでおります。

    Dim appVisio As Visio.Application 'Instance of Visio
Dim docsObj As Visio.Documents    'Documents collection of instance
Dim docObj As Visio.Document      'Document to work in
Dim docObj As Visio.Document      'Document to work in
Dim pagsObj As Visio.Pages        'Pages collection of document
appVisio = New Visio.Application
docsObj = appVisio.Documents
docObj = docsObj.Add("")
appVisio.Addons.ItemU("Insert AutoCAD Drawing").Run("/unit=65 C:\Temp\Test4.dwg") 　'65:visInches

    その後、定義されているShapeを下記のように探そうとしましたが、Shapeが１個しか見つけられません

    pagsObj = appVisio.ActiveDocument.Pages
shpsObj = pagsObj.Item(1).Shapes
For Each shpObj In shpsObj
   ’ここで探そうとしました
Next

    探し方をご存知であるか、AutoCADを取り込んだ場合のShapeオブジェクトの構造が記述されている

    場所をご存知であれば教えて頂きたくお願い致します。

    2013年8月8日 6:53