HandleToObject Example
Sub Example_HandleToObject() ' This example creates a spline in model space. It then returns the ' handle for the spline. The spline is returned from the handle, and ' then colored. ' Create the spline Dim splineObj As AcadSpline Dim startTan(0 To 2) As Double Dim endTan(0 To 2) As Double Dim fitPoints(0 To 8) As Double startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0 endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0 fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0 fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0 fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0 Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan) ZoomAll ' Find the handle of the spline Dim handle As Integer handle = splineObj.handle MsgBox "The handle of the Spline is: " & splineObj.handle, , "HandleToObject Example" ' Find an object from a given handle Dim tempObj As AcadObject Set tempObj = ThisDrawing.HandleToObject(handle) ' Now use the newly initialized object variable to color the object red tempObj.Color = acRed ThisDrawing.Regen True MsgBox "The Spline is now red.", , "HandleToObject Example" End Sub