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

wings0312 · 发表于 2004-7-29 11:53:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

自由的鱼 · 发表于 2004-7-29 21:28:03

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

bengold · 发表于 2004-8-1 15:37:38

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

雪山飞狐(lzh) · 发表于 2004-8-1 15:41:46

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

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

lsjjm · 发表于 2004-8-2 05:03:52

最初由 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 · 发表于 2004-9-29 16:07:12

能转换成LISP程序吗?

lsjjm · 发表于 2004-10-3 05:03:00

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

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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