求助：关于SelectByPolygon

sk8xiaobao

我想通过四点坐标建立选择集   为什么总是提示  模式或点列表错误啊  ？

2. Private Sub CommandButton1_Click()
   
3.   UserForm1.hide
   
4.   Dim ssdmx As AcadSelectionSet, TDMX As Object, FTDMX(1) As Integer, FDDMX(1) As Variant
   
5.   Dim ssgcd As AcadSelectionSet, Tgcd As Object, FTgcd(1) As Integer, FDgcd(1) As Variant
   
6.   Dim Pxdmx1 As Double
   
7.   Dim Pxdmx2 As Double
   
8.   Dim Pydmx1 As Double
   
9.   Dim Pydmx2 As Double
   
10.   Dim V As Variant '断面线顶点坐标
    
11.   Dim sin As Double
    
12.   Dim cos As Double
    
13.   Dim pfwx(12) As Double
    
14.   Dim kx As Double
    
15.   Dim ky As Double
    
16.   
    
17. ' FTDMX(0) = 0: FDDMX(0) = "LWPOLYLINE"
    
18.   Set ssdmx = ThisDrawing.SelectionSets.Add("ssdmx")
    
19.   ssdmx.SelectOnScreen 'FTDMX, FDDMX
    
20.   If ssdmx.Count > 0 Then
    
21.     V = ssdmx.Item(ssdmx.Count - 1).Coordinates '提取二维多段线顶点坐标(二维)
    
22.     For I = 0 To 1
    
23.       If I = 0 Then
    
24.         Pxdmx1 = V(I * 2)
    
25.         Pydmx1 = V(I * 2 + 1)
    
26.       End If
    
27.       If I = 1 Then
    
28.         Pxdmx2 = V(I * 2)
    
29.         Pydmx2 = V(I * 2 + 1)
    
30.       End If
    
31.     Next I
    
32.   End If
    
33.   ssdmx.Delete
    
34.   If Pxdmx1 - Pxdmx2 = 0 Then
    
35.     If Pydmx1 > Pydmx2 Then
    
36.       kx = Pxdmx1
    
37.       ky = Pydmx1
    
38.       Pydmx1 = Pydmx2
    
39.       Pydmx2 = ky
    
40.       Pxdmx1 = Pxdmx2
    
41.       Pxdmx2 = kx
    
42.     End If
    
43.     pfwx(0) = Pxdmx1 + Val(TextBox1.Text): pfwx(1) = Pydmx1: pfwx(2) = 0
    
44.     pfwx(3) = Pxdmx2 + Val(TextBox1.Text): pfwx(4) = Pydmx2: pfwx(5) = 0
    
45.     pfwx(6) = Pxdmx2 - Val(TextBox1.Text): pfwx(7) = Pydmx2: pfwx(8) = 0
    
46.     pfwx(9) = Pxdmx1 - Val(TextBox1.Text): pfwx(10) = Pydmx1: pfwx(11) = 0
    
47.   End If
    
48.   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) = 0 Then
    
49.     If Pxdmx1 > Pxdmx2 Then
    
50.       kx = Pxdmx1
    
51.       ky = Pydmx1
    
52.       Pydmx1 = Pydmx2
    
53.       Pydmx2 = ky
    
54.       Pxdmx1 = Pxdmx2
    
55.       Pxdmx2 = kx
    
56.     End If
    
57.     pfwx(0) = Pxdmx1: pfwx(1) = Pydmx1 - Val(TextBox1.Text): pfwx(2) = 0
    
58.     pfwx(3) = Pxdmx2: pfwx(4) = Pydmx2 - Val(TextBox1.Text): pfwx(5) = 0
    
59.     pfwx(6) = Pxdmx2: pfwx(7) = Pydmx2 + Val(TextBox1.Text): pfwx(8) = 0
    
60.     pfwx(9) = Pxdmx1: pfwx(10) = Pydmx1 + Val(TextBox1.Text): pfwx(11) = 0
    
61.   End If
    
62.   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) > 0 Then
    
63.     If Pxdmx1 > Pxdmx2 Then
    
64.       kx = Pxdmx1
    
65.       ky = Pydmx1
    
66.       Pydmx1 = Pydmx2
    
67.       Pydmx2 = ky
    
68.       Pxdmx1 = Pxdmx2
    
69.       Pxdmx2 = kx
    
70.     End If
    
71.     cos = (Pydmx1 - (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1) / (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2))
    
72.     sin = (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2)) / (Pydmx1 - (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1)
    
73.     pfwx(0) = Pxdmx1 + Val(TextBox1.Text) * cos: pfwx(1) = Pydmx1 - Val(TextBox1.Text) * sin: pfwx(2) = 0
    
74.     pfwx(3) = Pxdmx2 + Val(TextBox1.Text) * cos: pfwx(4) = Pydmx2 - Val(TextBox1.Text) * sin: pfwx(5) = 0
    
75.     pfwx(6) = Pxdmx2 - Val(TextBox1.Text) * cos: pfwx(7) = Pydmx2 + Val(TextBox1.Text) * sin: pfwx(8) = 0
    
76.     pfwx(9) = Pxdmx1 - Val(TextBox1.Text) * cos: pfwx(10) = Pydmx1 + Val(TextBox1.Text) * sin: pfwx(11) = 0
    
77.   End If
    
78.   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) < 0 Then
    
79.     If Pxdmx1 < Pxdmx2 Then
    
80.       kx = Pxdmx1
    
81.       ky = Pydmx1
    
82.       Pydmx1 = Pydmx2
    
83.       Pydmx2 = ky
    
84.       Pxdmx1 = Pxdmx2
    
85.       Pxdmx2 = kx
    
86.     End If
    
87.     sin = (Pydmx1 - ((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2)) * Pxdmx1) / (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2))
    
88.     cos = (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2)) / (Pydmx1 - ((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2)) * Pxdmx1)
    
89.     pfwx(0) = Pxdmx1 + Val(TextBox1.Text) * sin: pfwx(1) = Pydmx1 + Val(TextBox1.Text) * cos: pfwx(2) = 0
    
90.     pfwx(3) = Pxdmx2 + Val(TextBox1.Text) * sin: pfwx(4) = Pydmx2 + Val(TextBox1.Text) * cos: pfwx(5) = 0
    
91.     pfwx(6) = Pxdmx2 - Val(TextBox1.Text) * sin: pfwx(7) = Pydmx2 - Val(TextBox1.Text) * cos: pfwx(8) = 0
    
92.     pfwx(9) = Pxdmx1 - Val(TextBox1.Text) * sin: pfwx(10) = Pydmx1 - Val(TextBox1.Text) * cos: pfwx(11) = 0
    
93.    ' pfwx(12) = Pxdmx1 + Val(TextBox1.Text) * sin: pfwx(13) = Pydmx1 + Val(TextBox1.Text) * cos: pfwx(14) = 0
    
94.   End If
    
95.   FTgcd(0) = 8: FDgcd(0) = "gcd"
    
96.   Set ssgcd = ThisDrawing.SelectionSets.Add("gcd")
    
97.   ssgcd.SelectByPolygon acSelectionSetWindowPolygon, pfwx, FTgcd, FDgcd
    
98.   If ssgcd.Count > 0 Then
    
99.     For Each Tgcd In gcd
    
100.       I = I + 1
     
101.       Tgcd.Delete
     
102.     Next
     
103.   End If
     
104. End sub

Private Sub CommandButton1_Click()<br />   UserForm1.hide<br />   Dim ssdmx As AcadSelectionSet, TDMX As Object, FTDMX(1) As Integer, FDDMX(1) As Variant<br />   Dim ssgcd As AcadSelectionSet, Tgcd As Object, FTgcd(1) As Integer, FDgcd(1) As Variant<br />   Dim Pxdmx1 As Double<br />   Dim Pxdmx2 As Double<br />   Dim Pydmx1 As Double<br />   Dim Pydmx2 As Double<br />   Dim V As Variant '断面线顶点坐标<br />   Dim sin As Double<br />   Dim cos As Double<br />   Dim pfwx(12) As Double<br />   Dim kx As Double<br />   Dim ky As Double<br />   <br /> ' FTDMX(0) = 0: FDDMX(0) = "LWPOLYLINE"<br />   Set ssdmx = ThisDrawing.SelectionSets.Add("ssdmx")<br />   ssdmx.SelectOnScreen 'FTDMX, FDDMX<br />   If ssdmx.Count > 0 Then<br />     V = ssdmx.Item(ssdmx.Count - 1).Coordinates '提取二维多段线顶点坐标(二维)<br />     For I = 0 To 1<br />       If I = 0 Then<br />         Pxdmx1 = V(I * 2)<br />         Pydmx1 = V(I * 2 + 1)<br />       End If<br />       If I = 1 Then<br />         Pxdmx2 = V(I * 2)<br />         Pydmx2 = V(I * 2 + 1)<br />       End If<br />     Next I<br />   End If<br />   ssdmx.Delete<br />   If Pxdmx1 - Pxdmx2 = 0 Then<br />     If Pydmx1 > Pydmx2 Then<br />       kx = Pxdmx1<br />       ky = Pydmx1<br />       Pydmx1 = Pydmx2<br />       Pydmx2 = ky<br />       Pxdmx1 = Pxdmx2<br />       Pxdmx2 = kx<br />     End If<br />     pfwx(0) = Pxdmx1 + Val(TextBox1.Text): pfwx(1) = Pydmx1: pfwx(2) = 0<br />     pfwx(3) = Pxdmx2 + Val(TextBox1.Text): pfwx(4) = Pydmx2: pfwx(5) = 0<br />     pfwx(6) = Pxdmx2 - Val(TextBox1.Text): pfwx(7) = Pydmx2: pfwx(8) = 0<br />     pfwx(9) = Pxdmx1 - Val(TextBox1.Text): pfwx(10) = Pydmx1: pfwx(11) = 0<br />   End If<br />   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) = 0 Then<br />     If Pxdmx1 > Pxdmx2 Then<br />       kx = Pxdmx1<br />       ky = Pydmx1<br />       Pydmx1 = Pydmx2<br />       Pydmx2 = ky<br />       Pxdmx1 = Pxdmx2<br />       Pxdmx2 = kx<br />     End If<br />     pfwx(0) = Pxdmx1: pfwx(1) = Pydmx1 - Val(TextBox1.Text): pfwx(2) = 0<br />     pfwx(3) = Pxdmx2: pfwx(4) = Pydmx2 - Val(TextBox1.Text): pfwx(5) = 0<br />     pfwx(6) = Pxdmx2: pfwx(7) = Pydmx2 + Val(TextBox1.Text): pfwx(8) = 0<br />     pfwx(9) = Pxdmx1: pfwx(10) = Pydmx1 + Val(TextBox1.Text): pfwx(11) = 0<br />   End If<br />   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) > 0 Then<br />     If Pxdmx1 > Pxdmx2 Then<br />       kx = Pxdmx1<br />       ky = Pydmx1<br />       Pydmx1 = Pydmx2<br />       Pydmx2 = ky<br />       Pxdmx1 = Pxdmx2<br />       Pxdmx2 = kx<br />     End If<br />     cos = (Pydmx1 - (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1) / (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2))<br />     sin = (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2)) / (Pydmx1 - (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1)<br />     pfwx(0) = Pxdmx1 + Val(TextBox1.Text) * cos: pfwx(1) = Pydmx1 - Val(TextBox1.Text) * sin: pfwx(2) = 0<br />     pfwx(3) = Pxdmx2 + Val(TextBox1.Text) * cos: pfwx(4) = Pydmx2 - Val(TextBox1.Text) * sin: pfwx(5) = 0<br />     pfwx(6) = Pxdmx2 - Val(TextBox1.Text) * cos: pfwx(7) = Pydmx2 + Val(TextBox1.Text) * sin: pfwx(8) = 0<br />     pfwx(9) = Pxdmx1 - Val(TextBox1.Text) * cos: pfwx(10) = Pydmx1 + Val(TextBox1.Text) * sin: pfwx(11) = 0<br />   End If<br />   If (Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) < 0 Then<br />     If Pxdmx1 < Pxdmx2 Then<br />       kx = Pxdmx1<br />       ky = Pydmx1<br />       Pydmx1 = Pydmx2<br />       Pydmx2 = ky<br />       Pxdmx1 = Pxdmx2<br />       Pxdmx2 = kx<br />     End If<br />     sin = (Pydmx1 - ((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2)) * Pxdmx1) / (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2))<br />     cos = (((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2) * Pxdmx1 - Pydmx1) * (Pxdmx1 - Pxdmx2) / (Pydmx1 - Pydmx2)) / (Pydmx1 - ((Pydmx1 - Pydmx2) / (Pxdmx1 - Pxdmx2)) * Pxdmx1)<br />     pfwx(0) = Pxdmx1 + Val(TextBox1.Text) * sin: pfwx(1) = Pydmx1 + Val(TextBox1.Text) * cos: pfwx(2) = 0<br />     pfwx(3) = Pxdmx2 + Val(TextBox1.Text) * sin: pfwx(4) = Pydmx2 + Val(TextBox1.Text) * cos: pfwx(5) = 0<br />     pfwx(6) = Pxdmx2 - Val(TextBox1.Text) * sin: pfwx(7) = Pydmx2 - Val(TextBox1.Text) * cos: pfwx(8) = 0<br />     pfwx(9) = Pxdmx1 - Val(TextBox1.Text) * sin: pfwx(10) = Pydmx1 - Val(TextBox1.Text) * cos: pfwx(11) = 0<br />    ' pfwx(12) = Pxdmx1 + Val(TextBox1.Text) * sin: pfwx(13) = Pydmx1 + Val(TextBox1.Text) * cos: pfwx(14) = 0<br />   End If<br />   FTgcd(0) = 8: FDgcd(0) = "gcd"<br />   Set ssgcd = ThisDrawing.SelectionSets.Add("gcd")<br />   ssgcd.SelectByPolygon acSelectionSetWindowPolygon, pfwx, FTgcd, FDgcd<br />   If ssgcd.Count > 0 Then<br />     For Each Tgcd In gcd<br />       I = I + 1<br />       Tgcd.Delete<br />     Next<br />   End If<br /> End sub