新手求才教--怎样在VBA中读出所点取的坐标的数值!

laker24

像大家求教VBA中用a=thisdrawing.utility.getpoint(,"")后

怎样随机读出交互时所点取的这个坐标的数据!!

即用什么办法,读出所选取的这个交互点的坐标数据a

laoliu09

Sub test()
  Dim pt As Variant
 
  On Error Resume Next
 
  pt = ThisDrawing.Utility.GetPoint(, vbCr & "拾取点：")
  MsgBox pt(0)
  MsgBox pt(1)
  MsgBox pt(2)
End Sub