社区 › VB › vba里边有没有返回一个点坐标值的函数呀

97jr 发表于 2002-7-8 10:26:00

vba里边有没有返回一个点坐标值的函数呀

mccad 发表于 2002-7-8 13:04:00

函数为GetPoint:
RetVal = GetPoint([, Prompt])
示例：
Dim returnPnt As Variant
    returnPnt = ThisDrawing.Utility.GetPoint(, "选择点: ")
    MsgBox "点坐标为: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2) & vbCrLf , , "GetPoint 示例"

97jr 发表于 2002-7-8 14:49:00

我的具体操作是这样的。有一些没有规则的点，我现在想把这些点的坐标得到并且显示在一个文本文件里。我想把这些点放到一个选择集中，然后再一个点一个点的得出坐标，不知道可否这样。对选择集的操作还请老师指教一下。

mccad 发表于 2002-7-8 15:05:00

本站有相关内容，先看一下，有什么不清楚的地方再问。
有关选择集的内容：
http://www.mjtd.com/develop/vba/vba04-12.htm
有关创建空白选择集的函数：
http://www.mjtd.com/function/vba/008.htm

97jr 发表于 2002-7-8 15:28:00

您给我的getpoint（）函数是选择一个点的，而且不论这个点在那里，有没有数字都可以，我想要只能选择数字或者字符的函数，可以一起选择，然后同时显示坐标

97jr 发表于 2002-7-8 15:38:00

我已经看了关于选择集的问题。还有一点要请教，我要把这些数字输出到记事本需要那个函数。

mccad 发表于 2002-7-8 15:52:00

通过选定的内容用ForEach语句遍历各个对象，通过对象的属性来获取对象的坐标点。

查看完整版本: vba里边有没有返回一个点坐标值的函数呀