PrintToDWG example

Example for PrintToDWG method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "PrintToDWG"
    cAvax1.StartAvax()
    Call CAvax1.Add_Line(0, 5, 0, 10, 5, 0, Nothing, 1, 1, -1, -1)
    Call CAvax1.Add_Line(5, 0, 0, 5, 10, 0, Nothing, 1, 1, -1, -1)
    Call CAvax1.Add_Circle(5, 5, 0, 3, Nothing, 5, -1, -1, -1)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Dim sDWGFile As String
    Dim fSelected As Boolean
    Dim xBase As Single
    Dim yBase As Single
    Dim zBase As Single
    Dim Version As Avax.AvaxACADVersion
    Dim Answer As Boolean
    sDWGFile = My.Application.Info.DirectoryPath & "\..\temp.DWG"
    Version = Avax.AvaxACADVersion.ACAD_10
    xBase = 0
    yBase = 0
    zBase = 0
    fSelected = False
    Answer = cAvax1.PrintToDWG(sDWGFile, fSelected, xBase, yBase, zBase, Version)
End Sub