jxb8888 发表于 2003-8-6 01:24:00

斑竹大哥,怎样按逆时针找出一个封闭的POLYLINE对象的各个点的坐标?

怎样读出一个封闭的POLYLINE对象的各个点的坐标？(在封闭的POLYLINE对象中有直线,倒圆角,圆弧,角度)按逆时针找出每一个2D坐标,写在一个文本文件里????

zxj_76 发表于 2003-8-11 17:33:00

首先你得定义一下什么叫逆时针？

thankyou 发表于 2003-8-13 13:15:00

Dim n ,Ptnumber
exp = Plyobject.Explode
Ptnumber = UBound(exp)

For n=1 to Ptnumber
Plyobject.Coordinates(2 * n)      ' n点的X坐标
Plyobject.Coordinates(2 * n+ 1)    'n点的Y坐标
......
Next
页: [1]
查看完整版本: 斑竹大哥,怎样按逆时针找出一个封闭的POLYLINE对象的各个点的坐标?