Error Createpoint in VB.NET
Posted: Fri Apr 09, 2021 8:52 pm
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
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