获取选择集中多线段的坐标

guangyaola · 发表于 2011-4-20 21:29:13

新建一个选择集，选中内容中每个多线段的坐标怎么读写出来和使用（我建立一个循环），深层次一点的话：多线段是闭合的，1：要读取多线段的坐标。2，从获取的坐标计算闭合多线段的中线点或者计算出一个点，在其多现在面内（不一定是几何中心）。求助！

chmenf087 · 发表于 2011-4-21 09:20:31

论坛里有的你为什么不搜索一下

guangyaola · 发表于 2011-4-23 20:32:51

回复 chmenf087 的帖子

好的，我去搜搜！

quyeming1987 · 发表于 2011-6-14 16:23:35

楼主，请问问题解决了吗？如果解决了能否告诉下如何实现获取选择集中多线段的坐标！谢谢！

conqibo · 发表于 2011-7-17 19:54:22

本帖最后由 conqibo 于 2011-7-17 20:08 编辑

楼主试试list命令，
如果你有更好的可否共享一下？

hgo1984924 · 发表于 2011-7-24 17:42:43

声明一条多段线：
dim pline as AcadLWPolyline
Set pline = sset.Item(0)'让选择集的对象赋给pline
ReDim pline_pts(UBound(pline.Coordinates)) As Double‘声明一个点数组
pline_pts = pline.Coordinates’把pline的点赋给点数组
然后操作点数组就可以了

a2109 · 发表于 2011-8-4 18:11:49

感谢楼上的

lee-cc · 发表于 2011-8-4 21:28:02

弱弱滴说句:6楼的好像有点多此一举哦,直接操作pline.Coordinates就得了呗.

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