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
#2Hi,
Try to use this sample.
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