[VBA函数]：如何得到polyline各端点的坐标？？？

wings0312

如何得到polyline各端点的坐标？

自由的鱼

这个问题论坛有答案了，找找吧！

bengold

令polylineobj 等于你要处理的polyline。然后通过调用polylineobj.item(i)好像就可以得到它的坐标了。你也可以自己通过设置断点将该多义线添加到监视窗口里看看。

雪山飞狐(lzh)

最初由 bengold 发布
[B]令polylineobj 等于你要处理的polyline。然后通过调用polylineobj.item(i)好像就可以得到它的坐标了。你也可以自己通过设置断点将该多义线添加到监视窗口里看看。 [/B]

好像?不要误导别人，发贴前自己先看看帮助
另外这个问题以前有，自己搜索一下

lsjjm

最初由 wings0312 发布
[B]如何得到polyline各端点的坐标？ [/B]

请参考
[php]
Sub test()
  Dim pl As AcadObject
  Dim pickpoint As Variant
  Dim vps As Variant
  Dim stri As String
  ThisDrawing.Utility.GetEntity pl, pickpoint, "Select Polyline: "
  If pl.ObjectName = "AcDbPolyline" Then
    vps = pl.Coordinates
    For i = 0 To UBound(vps) - 1 Step 2
      stri = stri & vbCrLf & "POINT:" & str((i + 2) / 2) & ":  X=" & str(vps(i)) & "  ,   Y=" & str(vps(i + 1))
    Next
  End If
  MsgBox stri
End Sub[/php]

lihb

能转换成LISP程序吗?

lsjjm

最初由 lihb 发布
[B]能转换成LISP程序吗? [/B]

不需要再转换了. 本论坛AUTOLISP/VLISP开发技术专栏有这样的贴子.