Dim p1 as Variant
Dim p2 as Variant
p1 = ThisDrawing.Utility.GetPoint(, vbCr & "Select Point 1: ")
p2 = ThisDrawing.Utility.GetPoint(, vbCr & "Select Point 2: ")
Hope this helps.
EDIT: Can a mod please move this to the correct section of the forum. Thanks.




Reply With Quote

Bookmarks