Scribd
Upload
135 views2 pages

AutoCad Drawing

This macro uses coordinates from an Excel sheet to draw a polyline in AutoCAD. It declares variables to represent the AutoCAD application object, active document, last row of coordinates, and polyline object. It then gets the coordinate values from the Excel sheet, passes them to an array, and adds a light-weight polyline to the active AutoCAD drawing space using the coordinate array. Finally, it zooms to the extents and notifies the user that the polyline was created.

Uploaded by

amit77999
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
135 views2 pages

AutoCad Drawing

This macro uses coordinates from an Excel sheet to draw a polyline in AutoCAD. It declares variables to represent the AutoCAD application object, active document, last row of coordinates, and polyline object. It then gets the coordinate values from the Excel sheet, passes them to an array, and adds a light-weight polyline to the active AutoCAD drawing space using the coordinate array. Finally, it zooms to the extents and notifies the user that the polyline was created.

Uploaded by

amit77999
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Option Explicit

Sub DrawPolyline()
'Draws a polyline in AutoCAD using X and Y coordinates from sheet Coordinate
s.
'By Christos Samaras
'http://www.myengineeringworld.net
'In order to use the macro you must enable the AutoCAD library from VBA edit
or:
'Go to Tools -> References -> Autocad xxxx Type Library, where xxxx depends
'on your AutoCAD version (i.e. 2010, 2011, 2012, etc.) you have installed to
your PC.
'Declaring the necessary variables.
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim LastRow As Long
Dim acadPol As AcadLWPolyline
Dim dblCoordinates() As Double
Dim i As Long
Dim j As Long
Dim k As Long
Sheet1.Activate
'Find the last row.
With Sheet1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
'Check if there are at least two points.
If LastRow < 3 Then
MsgBox "There not enough points to draw the polyline!", vbCritical, "Poi
nts Error"
Exit Sub
End If
'Check if AutoCAD is open.
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
On Error GoTo 0
'If AutoCAD is not opened create a new instance and make it visible.
If acadApp Is Nothing Then
Set acadApp = New AcadApplication
acadApp.Visible = True
End If
'Check if there is an active drawing.
On Error Resume Next
Set acadDoc = acadApp.ActiveDocument
On Error GoTo 0
'No active drawing found. Create a new one.
If acadDoc Is Nothing Then
Set acadDoc = acadApp.Documents.Add
acadApp.Visible = True
End If

'Get the array size.


ReDim dblCoordinates(2 * (LastRow - 1) - 1)
'Pass the coordinates to array.
k = 0
For i = 2 To LastRow
For j = 1 To 2
dblCoordinates(k) = Sheet1.Cells(i, j)
k = k + 1
Next j
Next i
'Draw the polyline either at model space or at paper space.
If acadDoc.ActiveSpace = acModelSpace Then
Set acadPol = acadDoc.ModelSpace.AddLightWeightPolyline(dblCoordinates)
Else
Set acadPol = acadDoc.PaperSpace.AddLightWeightPolyline(dblCoordinates)
End If
'Leave the polyline open (the last point is not connected with the first poi
nt).
'Set the next line to true if you need to connect the last point with the fi
rst one.
acadPol.Closed = False
acadPol.Update
'Zooming in to the drawing area.
acadApp.ZoomExtents
'Inform the user that the polyline was created.
MsgBox "The polyline was successfully created!", vbInformation, "Finished"
End Sub

You might also like