Error Createpoint in VB.NET

#1
I am have a code but error Createpoint
Please Help Me !!!!!

Link image Error
https://ibb.co/ZJW6M8x

Code Error
Imports vb = Microsoft.VisualBasic
Imports System.IO
Imports IntelliCAD
Imports System.Math
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim acadapp As IIcadApplication
Dim atcc As Object
Dim Thisdrawing As Document
Try
acadapp = GetObject(, "ICAD.Application")
Catch
Try
acadapp = CreateObject("ICAD.Application")
Thread.Sleep(1000)
Catch
MsgBox("Not found ProgeCAD in your Windows.")
Exit Sub
End Try
End Try

Thisdrawing = acadapp.Documents.Add()
Thisdrawing.Activate()
Thisdrawing.SaveAs("3D Shape L.dwg")

Dim myLine As IntelliCAD.Line
Dim P1 As Point
Dim P2 As Point
P1 = Library.CreatePoint(4, 4)
P2 = Library.CreatePoint(7, 1)
myLine = Thisdrawing.ModelSpace.AddLine(P1, P2)
myLine.Update()
MsgBox("Line created from 4,4 to 7,1.")
End Sub

Re: Error Createpoint in VB.NET

#2
Hi,

Try to use this sample.

Code: Select all

Imports IntelliCAD
Imports System.Threading

Public Class Form1
    Dim iCadLibrary As Object

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim iCadApp As Object
        Dim activeDwg As Object

        Dim myLine As Line
        Dim P1 As Point
        Dim P2 As Point

        Try
            iCadApp = GetObject(, "ICAD.Application")
        Catch
            Try
                iCadApp = CreateObject("ICAD.Application")
                Thread.Sleep(1000)
            Catch
                MsgBox("Not found ICAD in your Windows.")
                Exit Sub
            End Try
        End Try

        iCadApp.Visible = True

        activeDwg = iCadApp.ActiveDocument

        iCadLibrary = iCadApp.Library

        P1 = iCadLibrary.CreatePoint(4, 4)
        P2 = iCadLibrary.CreatePoint(2, 2)

        myLine = activeDwg.ModelSpace.AddLine(P1, P2)
        myLine.Update()
        'MsgBox("Line created from 4,4 to 7,1.")
    End Sub

End Class