vb.net(C#)调用CAD并画图

首先要引用dll:

Imports AutoCAD       

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = New AutoCAD.AcadApplication
        a.Visible = True
        '------------------------------------------外框
        DL(New Double() {x0, y0 + jk, 0}, New Double() {x0, y0 + wh - jk, 0}) '左竖
        DL(New Double() {x0 + ww, y0 + jk, 0}, New Double() {x0 + ww, y0 + wh - jk, 0}) '右竖
        DL(New Double() {x0 + jk, y0, 0}, New Double() {x0 + jk + ww - jk * 2, y0, 0}) '下线
        DL(New Double() {x0 + jk, y0 + wh, 0}, New Double() {x0 + jk + ww - jk * 2, y0 + wh, 0}) '上线

......

end sub

 Sub DL(ByVal sp() As Double, ByVal ep() As Double)
        Try
            a.ActiveDocument.ModelSpace.AddLine(sp, ep)
        Catch
            MsgBox("line")
            DL(sp, ep)
        End Try
    End Sub