Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Interop
Public Class TLCad <CommandMethod("test")> Public Shared Sub MytestCmd() Dim DataType(1) As Short, Data(1) As Object Dim c As Line Dim d(2), e(2) As Double Dim f As Autodesk.AutoCAD.Interop.AcadApplication e(1) = 10 f = GetObject(, "AutoCAD.Application.16") DataType(0) = 1001 : Data(0) = "TLCad" DataType(1) = 1000 : Data(1) = "TLCadTest" f.ActiveDocument.ModelSpace.AddLine(d, e).SetXData(DataType, Data) End Sub
End Class