AutoCAD VBA User prompt example

by putting this code under the command button (vba) you can enable the User Promt action

Private Sub CommandButton1_Click()

Dim x As Double

Me.Hide

x = ThisDrawing.Utility.GetReal(“Enter a number: “)

Me.Show

End Sub