| Select Point and Return Coördinates |
 |
 |
 |
| Tutorials | |||
|
This code return a coordinate that has been selected on screen.  Dim returnObj As AcadObject
Dim basePnt As Variant
ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
MsgBox basePnt(0) & vbNewLine & _
basePnt(1) & vbNewLine & _
basePnt(2)
|