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

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

怎样读出一个封闭的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

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