Get list of Length and width of Rectangle or polyine shape to excel from Autocad
Accepted solution
I'm not sure I understand what you want. Do you mean that you want to get the length of each segment of the polyline? If so, you can use the function below to get the distance between the points you are adding to the polyline.
Public Function XYZDistance(Point1 As Variant, Point2 As Variant) As Double
On Error GoTo Err_Control
'Returns the distance between two points
Dim dblDist As Double
Dim dblXSl As Double
Dim dblYSl As Double
Dim dblZSl As Double
Dim varErr As Variant
On Error GoTo Err_Control
'Calc distance
dblXSl = (Point1(0) - Point2(0)) ^ 2
dblYSl = (Point1(1) - Point2(1)) ^ 2
dblZSl = (Point1(2) - Point2(2)) ^ 2
dblDist = Sqr(dblXSl + dblYSl + dblZSl)
'Return Distance
XYZDistance = dblDist
Exit_Here:
Exit Function
Err_Control:
Select Case Err.Number
'Add your Case selections here
'Case Is = 1000
'Handle error
'Err.Clear
'Resume Exit_Here
Case Else
MsgBox Err.Number & ", " & Err.Description, , "XYZDistance"
Err.Clear
Resume Exit_Here
End Select
End Function
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
In your code above, you have:
Set outerLoop(0) = MyDWG.ModelSpace.AddPolyline(points)
While you are defining the collection of points, use the function I gave you.
Dim dist As Double
dist = XYZDistance(pt1,pt2)
dist = dist + XYZDistance(pt3,pt4)
'etc.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
