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? |