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

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

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

gaich 发表于 2002-8-2 15:35:00

版主再帮我一次好吗?

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方法，这样可以自由选择

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

页: [1]

明经CAD社区's Archiver