[VBA程序]：vba如何在画完多段线后返回对象和点坐标

ourtibet

大家举例都是先定义多段线的点，在用addpolyline函数在图上画线。但是如何先不定义点坐标，直接用鼠标在图上画完后把对象
和坐标点返回呢？

雪山飞狐(lzh)

Sub Test()
On Error GoTo ErrHandle
Dim pFrom, pTo
Dim p1(3) As Double, p2(1) As Double
Dim pPL As AcadLWPolyline
pFrom = ThisDrawing.Utility.GetPoint(, vbCr & "请输入第一点：")
pTo = ThisDrawing.Utility.GetPoint(pFrom, vbCr & "请输入下一点：")
p1(0) = pFrom(0): p1(1) = pFrom(1)
p1(2) = pTo(0): p1(3) = pTo(1)
Set pPL = ThisDrawing.ModelSpace.AddLightWeightPolyline(p1)
Do While True
pTo = ThisDrawing.Utility.GetPoint(pTo, vbCr & "请输入下一点：")
p2(0) = pTo(0): p2(1) = pTo(1)
pPL.AddVertex (UBound(pPL.Coordinates) + 1) / 2, p2
Loop
ErrHandle:
End Sub

headbegger

谢谢，又学了一招

lsjjm

最初由 lzh741206 发布
[B]Sub Test()
On Error GoTo ErrHandle
Dim pFrom, pTo
Dim p1(3) As Double, p2(1) As Double
Dim pPL As AcadLWPolyline....[/B]

斑竹, 1楼主请求 "画完后把对象和坐标点返回" . 你的程序并没有返回坐标点呀?

雪山飞狐(lzh)

pPL就是返回的对象，有时候不用写得那么清楚吧

lsjjm

最初由 lzh741206 发布
[B]pPL就是返回的对象，有时候不用写得那么清楚吧 [/B]

不是清楚不清楚的问题, 是你根本就没有回答呀?!

雪山飞狐(lzh)

我回答的是解决方法，而不是返回值，至于返回值把Sub改为Functioin加个返回值就可以了

lsjjm

最初由 lzh741206 发布
[B]我回答的是解决方法，而不是返回值，至于返回值把Sub改为Functioin加个返回值就可以了 [/B]

斑主, 不是要和你抬杠. 原本就是想提醒你一下, 没有回答完全一楼的原问. 可你开始说"不用写得那么清楚" 后面又说"是解决办法, 不是返回值",  甚至"...加个返回值就可以了".  
那么说来说去还是没有回答完全呀. 或者你说回答了她的前问, 后一问留给其他朋友回答把, 这不也就结了? 其实人无完人, 谁能不出错呢? 更不用说你这也不是什么大错呀!