Dim startPt As Variant, endPt As Variant startPt = ThisDrawing.Utility.GetPoint(, "Pick start point: ") endPt = ThisDrawing.Utility.GetPoint(startPt, "Pick end point: ") Dim lineObj As AcadLine Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt) lineObj.Layer = "S_ANNO-TEXT" 'Enforce standards instantly lineObj.Color = acRed
VBA is an object-oriented programming environment embedded directly within AutoCAD. To begin your journey: Mastering AutoCAD VBA
VBA serves as the perfect primer for more advanced programming. It introduces object-oriented programming (OOP) concepts—objects, methods, properties, and events—in a forgiving environment. Once you master VBA, the transition to VB.NET or C# becomes significantly less daunting. Dim startPt As Variant, endPt As Variant startPt