.net调用com接口打开已存在的图纸并给图纸中的块添加属性。

Imports ZWCAD


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myDoc As ZcadDocument
        Dim ss As ZcadApplication
        Try
            ss = CreateObject("zwcad+.application")
        Catch ex As Exception
            MsgBox("can't create ZWCAD+")
        End Try
        ss.Visible = True
        ss.Documents.Open("F:/tt.dwg")
        myDoc = ss.ActiveDocument

        Dim prompt As String
        Dim tag As String
        Dim value As String
        prompt = "New Prompt"
        tag = "NEW_TAG"
        value = "New Value"
        Dim newAttr As ZcadAttribute = myDoc.Blocks.Item("test").AddAttribute(5, ZcAttributeMode.zcAttributeModeInvisible, prompt, myDoc.Blocks.Item("test").Origin, tag, value)
        Dim currentBlock As ZcadBlock = myDoc.Blocks.Item("test")
        MsgBox(currentBlock.Name.ToString)

    End Sub
End Class