[求助]~希望高手进来解答！~

130demon

像大家请教一个问题：希望知道的高手进来帮我写一个实现这个功能的代码：很简短的就行。

我有一张dwg格式的图片，上面画了很多实体的点，我想当鼠标点击图中的某一个点的时候，能够知道，我选中的这个点的具体的坐标值，应该是用acadApp.activeDocument.utility.getpoint（）这个语句，可是括号内选中的点该如何表示呢？也就是我如何用代码表示我用鼠标选中的点呢？

希望高手给以指点，能写一小段完整的代码！~谢谢！

xiaoyaobest

Dim PT1(2) As Double, PT() As Double
PT = ThisDrawing.Utility.GetPoint(PT1)

PT1：前一个点的座标，可设定一个值，未指定则为(0,0,0)

PT：所选择的点的座标

130demon

非常感谢，现在终于知道怎么用这个函数了，可是有一个问题，这个函数，运行一次，只能取一个点的坐标，我想当我在图上任意点击的任意个点的时候都能将该点的坐标赋给一个变量输出！~请问有什么好办法吗？