怎么去画不规则的多边形,就象闭合的PLine一样?

gaich · 发表于 2002-8-2 14:10:00

我想画一个任意不规则的多边形,并取得顶点坐标,用GetPoint取点又不知道该在什么时候结束?各位帮帮忙吧!!!

mccad · 发表于 2002-8-7 20:12:00

再详细一点吧，这应该是怎么将点保存为到一个数组中而已

gaich · 发表于 2002-8-10 15:08:00

我就是想取得多边形中的元素,就像在画一个闭合的pLine一样,每点一下能记下点的坐标在数组中,在SelectByPolygon可以用到这个数组,我用的是循环用GetPoint,但是这个方法不能直观的画出多边形,(只是能取得点,在图上看不出点的位置,能像画闭合的Pline那样就好了)而且退出循环时,我用的是点击右键Err值改变实现的,这样是不是太笨了,有没有什么更好的方法?谢谢了!!!

gaich · 发表于 2002-8-10 15:16:00

Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Item("TEST_SSET2")
ssetObj.Clear
Dim p As Variant
Dim dd(100) As Double
ii = 0
Do Until Err  0
On Error GoTo msg
p = ThisDrawing.Utility.GetPoint(, "选点")
      s = s & Format(p(0), "##.##") & "  " & Format(p(1), "#.##") & vbCrLf
      dd(ii) = p(0): dd(ii + 1) = p(1): dd(ii + 2) = 0#
ii = ii + 3
Loop
msg:
'MsgBox Err.Description & " " & Err.Number & Err.Source
ReDim points(0 To ii - 4) As Double
For I = 0 To ii - 4
      points(I) = dd(I)
Next I

      Dim mode As Integer
mode = acSelectionSetCrossingPolygon

ssetObj.SelectByPolygon mode, points

mccad · 发表于 2002-8-10 19:38:00

做为选择，如果不确定位置的话，最好是用SelectOnScreen方法，这样用户就可以使用任意的选择手段来选择对象了。

怎么去画不规则的多边形,就象闭合的PLine一样?

发表回复

精选推荐