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
页:
[1]