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

gaich

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

gaich

mccad

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

gaich

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

gaich

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

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