vb.net怎样引用图形中已有的块参照？

跃池先生

雪山飞狐_lzh 发表于 2016-11-3 15:35
Modelspace.addblock

我打开的DWG里已经有一块A，怎么还要用ADD，我的代码是这样子的，先打开一个文件，里面已经有一个块A,现在想提取A的特性，如图片所示的坐标等信息
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim filename As String = "d:\1.dwg"
        Dim blk1 As AcadBlock
        AcadApp = CType(CreateObject("autocad.application"), AcadApplication) '打开AutoCAD
        AcadApp.Visible = True   '显示AutoCAD窗口
        AcadApp.WindowState = AcWindowState.acMax '使AutoCAD窗口最大化
        AcadApp.Documents.Open(filename)
        AcadDoc = AcadApp.ActiveDocument
        blk1 = AcadDoc.Blocks.Item("A")
                  
End Sub