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

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

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

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

Sub test()<br/>&nbsp; Dim pt As Variant<br/>&nbsp; <br/>&nbsp; On Error Resume Next<br/>&nbsp; <br/>&nbsp; pt = ThisDrawing.Utility.GetPoint(, vbCr &amp; "拾取点：")<br/>&nbsp; MsgBox pt(0)<br/>&nbsp; MsgBox pt(1)<br/>&nbsp; MsgBox pt(2)<br/>End Sub
页: [1]
查看完整版本: 新手求才教--怎样在VBA中读出所点取的坐标的数值!