ArcSmoothness Example |
Using Programming Languages other than VBA
Sub Example_ArcSmoothness() ' This example returns the current setting of ' ArcSmoothness. It then changes the value, and finally ' it resets the value back to the original setting. Dim currArcSmoothness As Integer Dim newArcSmoothness As Integer ' Retrieve the current ArcSmoothness value currArcSmoothness = ThisDrawing.ActiveViewport.ArcSmoothness MsgBox "The current value for ArcSmoothness is " & currArcSmoothness, vbInformation, "ArcSmoothness Example" ' Change the value for ArcSmoothness newArcSmoothness = 2001 ThisDrawing.ActiveViewport.ArcSmoothness = newArcSmoothness MsgBox "The new value for ArcSmoothness is " & newArcSmoothness, vbInformation, "ArcSmoothness Example" ' Reset ArcSmoothness to its original value ThisDrawing.ActiveViewport.ArcSmoothness = currArcSmoothness MsgBox "The ArcSmoothness value is reset to " & currArcSmoothness, vbInformation, "ArcSmoothness Example" End Sub
Comments? |