laker24 发表于 2007-5-14 17:19:00

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

像大家求教VBA中用a=thisdrawing.utility.getpoint(,"")后
怎样随机读出交互时所点取的这个坐标的数据!!
即用什么办法,读出所选取的这个交互点的坐标数据a

laoliu09 发表于 2007-5-14 19:03:00

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
页: [1]
查看完整版本: 新手求才教--怎样在VBA中读出所点取的坐标的数值!