为什么用getpoint方法时的提示会在调用VBA后出现两次？多谢！

myfreemind

ps = ThisDrawing.Utility.GetPoint(, vbCrLf & "请选择第一个点")
pm = ThisDrawing.Utility.GetPoint(ps, vbCrLf & "请选择第二个点")
pe = ThisDrawing.Utility.GetPoint(pm, vbCrLf & "请选择第三个点")


上面是我的程序中的一段，但当我用工具条调用以后，CAD的命令行就会出现下面的这个情况，就是"请选择第一个点"这个提示出现两次，这是怎么回事呢？




命令: _getjd _.-VBARUN
宏名: getjd.dvb!getjd
请选择第一个点
请选择第一个点

mccad