Due to scheduled maintenance, the Autodesk Community will be inaccessible from 10:00PM PDT on Oct 16th for approximately 1 hour. We appreciate your patience during this time.
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
If you have the Line object, you can always get the Length property.
Sub Test()
Dim pt1(2) As Double
Dim pt2(2) As Double: pt2(0) = 10: pt2(1) = 10
Dim myLine As AcadLine
Set myLine = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
Dim oldLen As Double
oldLen = myLine.Length
Dim newPt(2) As Double: newPt(0) = 20: newPt(1) = 20
myLine.EndPoint = newPt
Dim newLen As Double
newLen = myLine.Length
Debug.Print "Old length: " & oldLen & ", New length: " & newLen
End Sub
