[VBA函数]：求助，能用point.Coordinates（i）吗？谢谢了！

xqyll · 发表于 2004-6-8 19:34:40

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

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

×

*-*6
请问各位大哥，在CAD图中多个对象中获取多个POINT的坐标，怎么办！能用point.Coordinates（i）吗？谢谢了！

efan2000 · 发表于 2004-6-8 20:37:43

什么是多个对象中获取多个POINT的坐标？
Point只可能有一点的坐标，而Line有起点和终点的坐标，其它的依情况而定。

雪山飞狐(lzh) · 发表于 2004-6-8 20:38:10

不行
Coordinates不是点的数组，而是浮点数数组
Object.Coordinates(3n-2),
Object.Coordinates(3n-1),
Object.Coordinates(3n)
分别是对应对象（LightweightPolyline除外）的第n个点的XYZ坐标值

xqyll · 发表于 2004-6-9 10:11:58

谢谢了，我是说图中用很多散点，要以此读出他们的坐标怎么办？*-*6

雪山飞狐(lzh) · 发表于 2004-6-9 10:35:37

可以
Sub Test()
Dim ss As AcadSelectionSet
Dim i As AcadPoint
Dim ft(0) As Integer
Dim fd(0) As Variant
ft(0) = 0
fd(0) = "Point"
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.Select acSelectionSetAll, , , ft, fd
For Each i In ss
MsgBox i.Coordinates(0) & "," & i.Coordinates(1) & "," & i.Coordinates(2)
Next i
End Sub

xqyll · 发表于 2004-6-12 19:06:59

我怎么每次运行到 i.Coordinates(0)处便会提示编译错误——错误的参数号或无效的属性赋值，不知是怎么回事！谢谢了

雪山飞狐(lzh) · 发表于 2004-6-12 19:37:39

不会吧，我调试的没问题

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

[VBA函数]：求助，能用point.Coordinates（i）吗？谢谢了！

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

相关帖子

我刚入门