.net调用com接口启动zwcad并作对象后进行打印。

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 ZWCAD.ZcadDocument
        Dim ss As ZWCAD.ZcadApplication
        Dim myspace As ZWCAD.ZcadModelSpace
        ss = CreateObject("zwcad+.application")
        myDoc = ss.ActiveDocument
        myspace = myDoc.ModelSpace
        ss.Visible = True
        Dim myline As ZWCAD.ZcadLine
        Dim startpoint(2) As Double
        startpoint(0) = 0 : startpoint(1) = 0 : startpoint(2) = 0
        Dim endpoint(2) As Double
        endpoint(0) = 10 : endpoint(1) = 200 : endpoint(2) = 0
        myline = myspace.AddLine(startpoint, endpoint)
        myline.Update()
        myDoc.Plot.PlotToFile("c:/d13.pdf", "DWG To PDF.pc5")
    End Sub
End Class