AddPoint方法示例
2015-12-15 22:24:57 来源: 评论:0 点击:
下列示例为
对象Polygon1添加一个点。Dim iPoint as FixFloatPoint Set iPoint = New FixFloatPoint iPoint x = 50 5 iPoint y = 60 1 Polygon1 AddPoint iPoint
下列示例为 对象Polygon1添加一个点。
Dim iPoint as FixFloatPoint
Set iPoint = New FixFloatPoint
iPoint.x = 50.5
iPoint.y = 60.1
Polygon1.AddPoint iPoint