GetCorner Example

Using Programming Languages other than VBA

Sub Example_GetCorner()
	' This example provides a base point and prompts the user to
	' input the second point to make a rectangle.

	Dim returnPnt As Variant
	Dim basePnt(0 To 2) As Double
	basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#

	' Prompt the user to pick second point and returns the point
	returnPnt = ThisDrawing.Utility.GetCorner(basePnt, "Enter Other corner: ")

	' Display the point picked
	MsgBox "The point picked was " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetCorner Example"

End Sub

 

   Comments?