Computer Aided Automation
Example 1 : Draw a line using AutoCAD VBA - Printable Version

+- Computer Aided Automation (https://computeraidedautomation.com)
+-- Forum: CAA Discussions (https://computeraidedautomation.com/forum-7.html)
+--- Forum: VBA Programming (https://computeraidedautomation.com/forum-1.html)
+---- Forum: AutoCAD VBA (https://computeraidedautomation.com/forum-3.html)
+---- Thread: Example 1 : Draw a line using AutoCAD VBA (/thread-3.html)



Example 1 : Draw a line using AutoCAD VBA - techberth - 21-11-2019

Example 1 : Draw a line using AutoCAD VBA

'Set Start point and End Point Variables
Dim Startpoint(0 To 2) As Double
Dim Endpoint(0 To 2) As Double
'Start Coordinates XYZ values
Startpoint(0) = 100: Startpoint(1) = 100: Startpoint(2) = 0
'End Coordinates XYZ values
Endpoint(0) = 200: Endpoint(1) = 200: Endpoint(2) = 0
'Line object in to drawing space
ThisDrawing.ModelSpace.AddLine Startpoint(), Endpoint()

This programs uses 2 variables called Startpoint and Endoint to store the values of X,Y,Z coordinates of start point and end point of the line to be drawn, X1, Y1, and Z1 belongs to Startpoint where as X2,Y2 and Z2 belongs to Endpoint.
In this example, X1 = 100; Y1 = 100 and Z1 = 0 (z value is 0 for 2D drawings) and X2 = 200; Y2 = 100 and Z2 = 0.
Just copy and paste the above program snippet in between, Sub module1 () and End Sub
And final code will be something like below mentioned


Sub module1()
On Error Resume Next        ‘ To bypass run time error occurred (if any)
'Set Start point and End Point Variables
Dim Startpoint(0 To 2) As Double
Dim Endpoint(0 To 2) As Double
'Start Coordinates XYZ values
Startpoint(0) = 100: Startpoint(1) = 100: Startpoint(2) = 0
'End Coordinates XYZ values
Endpoint(0) = 200: Endpoint(1) = 200: Endpoint(2) = 0
'Line object in to drawing space
ThisDrawing.ModelSpace.AddLine Startpoint(), Endpoint()
End Sub

To see it in action, you have to load it to the drawing from where you have saved your module
Just go to Tools-> Macro -> Macros
[Image: 1.JPG]

And click Run Button, and the output should be something like below
[Image: 2.JPG]