29 | 04 | 2017

Select Point and Return Coördinates

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)
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2237960
Latest Articles